LibreOffice Writer ページの追加操作

LibreOffice Writer ページの追加操作

　

OS LinuxMint19cinnamon 64bit

LibreOffice6.2.0

 

　

LibreOffice Writer ページの追加操作

　

メニューバー　→　挿入　→　改ページ　Ctlr + ENTER

　

　

この操作をマクロで記録すると

　

sub page_insert_2
'ページの追加
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:InsertPagebreak", "", 0, Array())


end sub

ページの移動