https://bugs.documentfoundation.org/show_bug.cgi?id=119609
--- Comment #3 from Oliver Brinzing <[email protected]> ---
FooterBackGraphicURL/HeaderBackGraphicURL are affected too
OPTION EXPLICIT
Sub TesPageStyleProps()
On Local Error Goto ErrorHandler
Dim oDoc as Object
Dim osheet as Object
Dim oPStyles as Object
Dim oPStyle as Object
Dim aProps as Object
Dim vTmp
Dim sProp as String
Dim i as Integer
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oPStyles = oDoc.StyleFamilies.getByName("PageStyles")
oPStyle = oPStyles.getByName(oSheet.PageStyle)
aProps = oPStyle.PropertySetInfo.Properties
For i = LBound(aProps) to UBound(aProps)
sProp = aProps(i).Name
vTmp = oPStyle.getPropertyValue(sProp)
Next i
Exit Sub
ErrorHandler:
MsgBox sProp
Resume Next
End Sub
--
You are receiving this mail because:
You are the assignee for the bug._______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
