Objektvariable nicht belegt
Verfasst: Do, 23.08.2018 17:27
Hallo,
Ich versuche mich in die StarBasic-Programmierung mit einem Beispiel aus dem StarBasic-Handbuch für StarOfiice 4.0 einzuarbeiten. Aber gleich hapert es. Erst einmal ist ein offensichtlicher Schreibfehler drin (switer4 anstelle swriter4), aber dennoch kommt obige Fehlermeldung, die sich auf diese Programmzeile bezieht:
Wer kann mir auf den Sprung helfen?
Ich versuche mich in die StarBasic-Programmierung mit einem Beispiel aus dem StarBasic-Handbuch für StarOfiice 4.0 einzuarbeiten. Aber gleich hapert es. Erst einmal ist ein offensichtlicher Schreibfehler drin (switer4 anstelle swriter4), aber dennoch kommt obige Fehlermeldung, die sich auf diese Programmzeile bezieht:
Code: Alles auswählen
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sZeile As String
Dim aFile As String
aFile = "c:\daten.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Das ist eine Zeile Text"
Print #iNumber, "Das ist eine weitere Zeile Text"
Close #iNumber
Documents.Add("swriter4")
wait 1
iNumber = Freefile
Open aFile For Input As #iNumber
While not eof(#iNumber)
Line Input #iNumber, sZeile
If sZeile <>"" then
Selection.Text.InsertPara()
Selection.Text.Insert(Trim$(sZeile))
end if
wend
Close #iNumber
End Sub