Code: Select all
Option Explicit
sub Main
rem ----------------------------------------------------------------------
Dim oDoc As Object
Dim oText As Object
oDoc = ThisComponent
MsgBox oDoc.getText() '--> EMPTY STRING
'further on trying to replace some strings, with no effect obviously