OpenOffice.info

Hi theindless, ja, das hilft schon mal weiter. Werde es demnächst ausprobieren. Ich war erst etwas verwirrt, da ich die vorgeschlagenen Textpassagen nicht finden konnte. Die Basic-FAQ hab ich schon seit einiger Zeit. Erst beim 2. Versuch kam ich auf die Idee, dass meine Version veraltet sein könnte. Zudem stimmt die Nummerierung der Onlineversion nicht mit dem PDF überein. Aber nun hab ichs ja gefunden. Danke dir.

Gruß
MH50

Hallo,

in der StarBasic-FAQ von Dannenhöfer sind u.a. folgende Kapitel enthalten:

8.2.17 Wie kann man Dokumente einfügen?

8.2.7 Wie kann ich an eine Textmarke springen und Text eintragen?

Vielleicht hilft dir das ja weiter!

Ich konnte nur das allgemeine Einfügen kurz testen und das funktioniert.
Zu mehr habe ich leider keine Zeit im Moment.

theindless

FileNo = Freefile		'freien Datenkanal öffnen
Open Filename For Input As FileNo		
Do While not eof(FileNo)	' Prüfen, ob Dateiende erreicht ist
Line Input #FileNo, CurrentLine	' Zeile lesen

If CurrentLine <>"" then
Msg = Msg & CurrentLine & Chr(13)
end if
Loop

Tach zusammen. VORSICHT, Flachzangenfrage: :) ich will per Basic-Macro den Inhalt einer Textdatei (.odt) in einen Writertext einlesen. Dieser soll z.B. an einer Textmarke eingefügt werden. Dabei möchte ich die Formatierungen möglichst erhalten. Als Basic-Flaschzange scheitere ich Einfügen des Inhaltes. Datei öffen und Zeilenweise einlesen schein klar. Dazu habe ich folgendes gefunden:
[code]FileNo = Freefile 'freien Datenkanal öffnen
Open Filename For Input As FileNo
Do While not eof(FileNo) ' Prüfen, ob Dateiende erreicht ist
Line Input #FileNo, CurrentLine ' Zeile lesen[/code]

Trotz fleißigem Lesen von "Star-Basic-FAQ", "Basic Programmieren", "OOME_3_0_deutsch" und anderen hier im Forum erwähnten Texten habe ich nichts dazu gefunden, was passt. Vielleicht verstehe ich es ja auch einfach nicht. Also meine Frage:
Wie füge ich den eingelesenen Text in das Writerdocument ein, mit allen Formatierungen?

Zum Testen habe ich eine MessageBox verwendet, um den eingelesenen Text mal anzuzeigen.
[code]If CurrentLine <>"" then
Msg = Msg & CurrentLine & Chr(13)
end if
Loop[/code]
Das hat aber nur mit einer einfachen Textdatei (*.txt) funktioniert, ohne jede Formatierung. Bei einer *.odt kamen nur Steuerzeichen. Das half also nicht weiter. Muss ich das Pferd von einer ganz anderen Seite her aufzäumen?