[Bug 169537] text in BASIC runtime error cannot be selected

[bugzilla-daemon]

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

--- Comment #2 from Vincent Lefevre <vincent-d...@vinc17.net> ---
(In reply to Werner Tietz from comment #1)
> please post your BASIC Code

The (uncorrected) BASIC code that gave the error:

Sub DeleteAllHeadersFooters
    Dim oDoc As Object
    Dim oStyles As Object
    Dim oStyle As Object

    oDoc = ThisComponent
    oStyles = oDoc.StyleFamilies.getByName("PageStyles")

    For Each oStyle In oStyles
        oStyle.HeaderIsOn = False
        oStyle.FooterIsOn = False
    Next oStyle
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.