Translations:Macros/Basic/Documents/11/en

    From The Document Foundation Wiki

    Sub Main()
        doc = ThisComponent
        MsgBox doc.Title
    End Sub

    All open documents