'Ein Versuch den Inhalt des aktuellen Dokuments in eine Vorlage mit Logo zu kopieren
Option Explicit

Sub TextMitLogo

	Dim tm As Object						'Variable vom Typ Object deklarieren
	Dim AlteDatei as String
	Dim NeueDatei as String
	Dim LaengeName as Integer
	Dim VorlageMitLogo as String

	VorlageMitLogo = "D:\Daten\Vorlagen\TextMaker\BriefMitLogo.tmvx"

	Set tm = CreateObject("TextMaker.Application")	'Variable mit Objekt verbinden
	tm.Application.Visible = True				'TM sichtbar machen
	tm.Application.Activate					'in den Vordergrund holen

	AlteDatei = tm.ActiveDocument.FullName		'Name mit Pfad des Originals

	tm.Documents.Add VorlageMitLogo			'Neues Dokument mit Logo
	NeueDatei = tm.ActiveDocument.Name			'TM-Name ohne Pfad, fr die Kopie

'	MsgBox AlteDatei & ", " & NeueDatei

	tm.Documents(AlteDatei).Activate			'Original
	tm.ActiveWindow.View.Mode = tmViewModeText	'Editiermodus, das ist ber...
	tm.ActiveDocument.Select				'Alles markieren
	tm.ActiveDocument.Selection.Copy			'in die Zwischenablage kopieren

	tm.Documents(NeueDatei).Activate			'Kopie
	tm.ActiveWindow.View.Mode = tmViewModeText	'Editiermodus
	tm.ActiveDocument.Selection.Paste			'Inhalt einf_gen

	tm.Documents(AlteDatei).Activate			'Original
	tm.ActiveDocument.Selection.GoTo tmGoToParagraph, tmGoToAbsolute, 1
									'Geht zum Anfang des Dokuments
	tm.ActiveWindow.View.Mode = tmViewModeObject	'Objektmodus
	tm.ActiveDocument.Select				'Alles markieren
	tm.ActiveDocument.Selection.Copy			'in die Zwischenablage kopieren

	tm.Documents(NeueDatei).Activate			'Kopie
	tm.ActiveDocument.Selection.GoTo tmGoToParagraph, tmGoToAbsolute, 1
									'Geht zum Anfang des Dokuments
	tm.ActiveWindow.View.Mode = tmViewModeObject	'Objektmodus
	tm.ActiveDocument.Selection.Paste			'Inhalt einf_gen

	LaengeName = Len(AlteDatei) - 4			'Neuen Namen basteln
	NeueDatei = Left(AlteDatei, LaengeName) & "p" & Right(AlteDatei, 4)

	tm.ActiveDocument.SaveAs NeueDatei, tmFormatWinWordXP
									'Mit Pfad speichern

	tm.Documents(AlteDatei).Activate			'Original
	tm.ActiveWindow.View.Mode = tmViewModeText	'Editiermodus
	tm.Documents(NeueDatei).Activate			'Kopie
	tm.ActiveWindow.View.Mode = tmViewModeText	'Editiermodus

'	MsgBox AlteDatei & ", " & NeueDatei

	Set tm = Nothing						'Variable vom Objekt trennen

End Sub

'[UserButton2]
'Exepath=basicmaker /s D:\Daten\Vorlagen\BasicMaker\TextMitLogo.bas
'Text=Mit Logo speichern
'Iconfile=D:\Daten\Vorlagen\BasicMaker\Logo.ico