LibreOffice Writer ページの挿入？追加をするマクロの実験

LibreOffice Writer ページの挿入？追加をするマクロの実験

　

OS LinuxMint 19 cinnamon 64bit

LibreOffice 6.1.0.3

　

カーソル位置の下に新しいページを挿入（追加）するマクロ

お　の位置にカーソルを持っていきマクロを実行

カーソル位置以降の文字「かきくけこ」が挿入された

　

　

　

　

Sub page_insert
    'writer Pageの追加
    'カーソル位置の下に新しいページを挿入
    Dim oCtrl As Object
        oCtrl = ThisComponent.getCurrentController()
        oFrame = oCtrl.getFrame()
    'Page Insert
        createUnoService("com.sun.star.frame.DispatchHelper") _
         .executeDispatch(oFrame, ".uno:InsertPagebreak", "", 0, Array())

End Sub