[Libreoffice-bugs] [Bug 119609] Macro for Writer: Cannot read property of ParaBackGraphicURL

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=119609

--- Comment #3 from Oliver Brinzing <oliver.brinzing at gmx.de> ---
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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20180830/a034fb21/attachment.html>