White Tiger

LibreOffice Calc Basic - ヘッダー、フッターを設定する方法

◆概要

　ヘッダーやフッターは、印刷時にページ毎にページ番号をつけたり、見出しやタイトルをつけたりする機能です。文字通り、ヘッダーはページ上部にフッターはページ下部に表示されます。 　LibreOffice Basicでヘッダー、フッターを設定を設定するには次のようにします。

Sub setHeaderAndFooter

       oDoc = ThisComponent
       oStyles = oDoc.getStyleFamilies().getByName( "PageStyles" )
       oPStyle = oStyles.getByName( "Default" )
       
       ' ページ番号とページ数のオブジェクトを取得します。
       oPageNumber = oDoc.createInstance( "com.sun.star.text.TextField.PageNumber" )
       oPageCount  = oDoc.createInstance( "com.sun.star.text.TextField.PageCount" )
       oDateTime   = oDoc.createInstance( "com.sun.star.text.TextField.DateTime" )
       
       ' ヘッダーを編集する
       oHeader = oPStyle.RightPageHeaderContent
       oHeader.getLeftText().setString( "" )
       oHeader.getCenterText().setString( "あいうえお株式会社." )
       oCursor = oHeader.getRightText().createTextCursor()
       oHeader.getRightText().insertTextContent( oCursor, oDateTime, True )
       oPStyle.RightPageHeaderContent = oHeader
       
       ' フッターを編集する
       oFooter = oPStyle.RightPageFooterContent
       oFooter.getLeftText().setString( "月次レポート" )
       oFooter.getCenterText().setString( "" )
       
       oFooter.getRightText().setString( "Page " )
       oCursor = oFooter.getRightText().createTextCursor()
       oCursor.gotoEnd( False )
       oFooter.getRightText().insertTextContent( oCursor, oPageNumber, True )
       oCursor.gotoEnd( False )
       oCursor.setString( " of " )
       oCursor.gotoEnd( False )
       oFooter.getRightText().insertTextContent( oCursor, oPageCount, True )
       oPStyle.RightPageFooterContent = oFooter

End Sub

Link