in meiner Excel-Anwendung rufe ich wiederholt folgende Sequenz auf:
On Error Resume Next
Set ObjWord = GetObject("Word.Application." & version)
If ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application." & version)
End If
On Error GoTo 0
If Not ObjWord Is Nothing Then
ObjWord.Visible = True
Set DocNeu = ObjWord.Documents.Add(Template:= _
Workbooks("Jutta.xls").Sheets("Konstanten").Range("aLW").Value _
& Workbooks("Jutta.xls").Sheets("Konstanten").Range("Vorlagen").Value _
& Workbooks("Jutta.xls").Sheets("Konstanten").Range("Brief").Value, _
NewTemplate:=False, DocumentType:=0)
End If
With DocNeu
der einzige Unterschied ist, dass die Vorlage immer anders ist. Wie müsste eine entsprechende Funktion aussehen, die den Dateinamen der Vorlage übergibt und und das "neue" Dokument zurückgibt.
Set DocNeu = Objekt_Erzeugen(Name_der_Vorlage)
oder wie geht das?
Ich bedanke mich für Eure Mühe und wünsche ein schönes Wochenende!
Mit freundlichen Grüßen
Albrecht