OOoBasic/Writer/headerandfooter

ヘッダとフッタ

ヘッダとフッタにはページのスタイルからアクセスします。ヘッダおよびフッタのテキストに関しても同様です。

設定

Dim oDoc As Object
Dim oStyleFamilies As Object
Dim oPageStyles As Object
Dim oStyle As Object
  oDoc = ThisComponent
  oStyleFamilies = oDoc.getStyleFamilies()
  oPageStyles = oStyleFamilies.getByName("PageStyles")
  oStyle = oPageStyles.getByIndex("Standard")

まずは，ヘッダとフッタを利用するかどうかを指定するプロパティを true にしてヘッダおよびフッタを利用します。

boolean FooterIsOn
boolean HeaderIsOn

また，ヘッダとフッタは右ページと左ページの区別があるときには別々の内容にすることができます。その右ページと左ページの内容同じにするかどうかを指定するプロパティがあります。ture にすると右ページと左ページのフッタおよびヘッダの内容が同じになります。

boolean FooterIsShared
boolean HeaderIsShared

実際のヘッダとフッタのないように関しては，FooterText プロパティもしくは HeaderText プロパティからアクセスします。これらのプロパティから取得できるオブジェクトの取り扱い方はテキストオブジェクトと同じです。また，右ページと左ページが違う場合のためにそれぞれ違うプロパティがあります。

boolean /void FooterText
boolean /void FooterTextLeft
boolean /void FooterTextRight

boolean /void HeaderText
boolean /void HeaderTextLeft
boolean /void HeaderTextRight

書式設定

フッタとヘッダの書式設定に関しては，段落の書式設定と同様です。

ヘッダ

ヘッダ用のプロパティです。

フッタ

フッタ用のプロパティです。

例

ヘッダやフッタを使用する例。

ヘッダに画像を挿入する

標準のページスタイルのヘッダをオンにして画像を挿入します。アンカーの種類を AS_CHARACTER などにするといいかもしれません。

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21

Sub header_example_1
  oDoc = ThisComponent
  oSFs = oDoc.getStyleFamilies()
  oPageStyles = oSFs.getByName("PageStyles")
  oPageStyle = oPageStyles.getByName("Standard")
  
  oImage = oDoc.createInstance("com.sun.star.text.TextGraphicObject")
  oImage.GraphicURL = "file:///C:/usr/selection_16.bmp"
  Dim aSize As New com.sun.star.awt.Size
  aSize.Width = 1000
  aSize.Height = 1000
  oImage.Size = aSize
 
  With oPageStyle
    .HeaderIsOn = True
    oHeaderText = .HeaderText
  End With
  oCursor = oHeaderText.createTextCursor()
  oHeaderText.insertTextContent(oCursor, oImage, False)
  
  oImage.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
End Sub

ヘッダにビューカーソルを移動させる

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9

sub MoveCursorToHeader
  oDoc = ThisComponent
  oViewCursor = oDoc.getCurrentController().getViewCursor()
  
  oStyleFamilies = oDoc.getStyleFamilies()
  oStyle = oStyleFamilies.getByName("PageStyles").getByName("Standard")
  oHeaderText = oStyle.HeaderText
  
  oViewCursor.gotoRange(oHeaderText, False)
end sub