Textvorlagen mit Inhalt füllen

[claves]

Guten Tag lieben OOo-Gemeinde

Mein System:
Windows 7 / Windows Server 2008 r2 mit OOo 3.2.1

Ich bin ein leihe was Programmieren angeht ich bitte um nachsicht

Problem: Ich habe eine Vorlage erstellt mit Adressbereich, Kopf und Fusszeile.
Diese Vorlage soll nun Grundlage für die ca. 1400 alten Dokumente sein.

Mein Lösungsansatz war ich kopiere den Inhalt der Dokumente und füge Ihn in der Vorlage ein und dann save as - bäm fertig.

Aber es scheiter schon am Copy Paste

Ich würde gerne den Inhalt des Cursors in eine Variable packen und diese dann einfüge wenn es geht mit der kompletten Formatierung.

Code: Alles auswählen

Sub Test
	oDoc=thisComponent
	oText=oDoc.text

	oCursor=odoc.text.createtextcursor()  
	  oCursor.gotoEnd(true)

	tCursor=odoc.text.createtextcursor()
		tCursor.gotoEnd(true)	

wText = oCursor
oText.insertString(tCursor, wText, true)
End Sub

vielen Dank für Eure Hilfe

wenn jemand gute Tuturials zur Hand immer her damit ...

Gruß
claves

[claves]

nu gehts
einfach dat bissel Code dazu und dat grundgerüst ist fertig.

Code: Alles auswählen

DIM wText
wText = oCursor.string