Hallo zusammen,

wer hilft mir meine Aufgabe zu lösen? Ach muss aus Outlook eine Word Datei öffnen und vorgegebene Platzhalter gegen neuen Text austauschen.

habe das so probiert. Es erscheint aber immer ein Fehler. Was mache ich falsch?

Dim AppWD As Object
Dim r As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.Documents.Open pfad(4) '"D:\test.doc"
'
        AppWD.Visible = True
        AppWD.Application.Activate

Set r = ActiveDocument.Content
r.Find.Execute FindText:="<Tag>", ReplaceWith:=Tag

AppWD.Documents(pfad(4)).Close SaveChanges:=False
AppWD.Quit
Set AppWD = Nothing

Anschließend soll die Worddatei gedruckt aber nicht gespeichert werden.

Danke für eure Hilfe.

Gruß, Tias