LibreOffice Writer basic カーソルのあるページ番号を調べるマクロの実験

LibreOffice Writer basic カーソルのあるページ番号を調べるマクロの実験

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

 

あまり使い道のないマクロ

 .getViewCursor.Page

 

Sub pageNo()
'writer カーソルのあるページ番号

Dim PageNo As Integer

    PageNo= ThisComponent.CurrentController.getViewCursor.page
   
    msgbox PageNo & "　ページ"

End Sub