-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi Dave,
Am 21.01.2008 11:45 schrieb Dave Cawley:
| I want my program to control spreadsheet footer contents.
| In particular I want to be able to set the font size and use PageNumber and
| PageCount fields.
please have a look ...
REM ***** BASIC *****
OPTION EXPLICIT
Sub CreateHeaderText()
Dim oDocument as Object
Dim oPStyle as Object
Dim oHContent as Object
Dim oText as Object
Dim oCursor as Object
Dim oField as Object
oDocument = ThisComponent
oPstyle =
oDocument.StyleFamilies.getByName("PageStyles").getByName("Standard")
oPStyle.HeaderOn = True
oHContent = oPStyle.RightPageHeaderContent
oText = oHContent.LeftText
oCursor = oText.createTextCursor()
oText.insertString(oCursor, "", True)
oCursor.CharHeight = 12
oCursor.CharFontName = "Arial"
oCursor.CharWeight = com.sun.star.awt.FontWeight.NORMAL
oCursor.CharPosture = com.sun.star.awt.FontSlant.NONE
oCursor.CharUnderline = com.sun.star.awt.FontUnderline.NONE
' insert text ...
oText.insertString(oCursor, "Hello World ", False)
~ ' "PageNumber", "PageCount", "Date", "Time"
oField =
oDocument.createInstance("com.sun.star.text.TextField.SheetName")
oText.insertTextContent(oCursor, oField, False)
'write content back
oPStyle.RightPageHeaderContent = oHContent
End Sub
HTH
Oliver
- --
GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFHlNfPTiyrQM/QSkURApIwAJ4rPeKrzXune4LCVRNa054nRrqMlgCeIxCQ
bZcW10p6vPmGKolMjLph2Rk=
=92km
-----END PGP SIGNATURE-----
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
