LibreOffice write ページのスクロール アップ・ダウン操作

LibreOffice write ページのスクロール　アップ・ダウン操作

　

OS LinuxMint19 Cinnamon 64bit

LibreOffice 6.1.0.3

　

操作

キーボードのPageUp or PageDown

ノートPCだとFN +  PageUp or PageDown　カーソルキーの↑↓

　

移動量は半ページ分？ 訂正　1/3ページ

　

この操作をマクロで記録できるが、連続動作で不安定　１回目は動作せず２回めから動作する。

一応ツールバーに登録した。

　

ページの移動

左下のページ番号をクリックすると移動ダイアログが表示され移動したい番号を入力する。

OSの違いで表示されるダイアログ違う場合がある。

　

　

　

sub pageUp
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PageUp", "", 0, Array())




end Sub

sub pageDown
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")



rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PageDown", "", 0, Array())


end Sub