Word-Templates füllen
24.03.2003 16:28:38
Peter
Dim MyDoc As Object
Set MyAppl = CreateObject("Word.Application")
sFileName = "u:\Kaufvertrag.dot"
MyAppl.Documents.Open sFileName
Set MyDoc = MyAppl.ActiveDocument
MyDoc.Bookmarks("test").Range.Text = Worksheets("Interessentenliste").Range("A2").Value
MyAppl.Visible = True
MyAppl.WindowState = wdWindowStateMaximize
MyDoc.Close
MyAppl.Quit
Hierbei werden allerdings die Änderungen direkt in das .dot-File geschreiben. Ich möchte aber natürlich, dass eine .doc-Datei erzeugt wird. Kann mir jemand helfen?