mein Problem ist:
ich habe eine Excel Datei in die immer wieder neue Datensätze eingegeben werden. Zu jedem Datensatz soll nun ein neues Word Document aus einer vorlage erstellt werden und wenn möglich ein Link aus Excel zu diesem Dokument. Bis jetzt schaffe ich es Word zu öffnen und die vorlage, auch die Daten kommen an die richtige Stelle. Aber wie schaffe ich es nun den die vorlage unter einem aus den Zellen ausgelesenen Dateinamen zu Sichern ??
Bisheriger Code:
Private Sub exta()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim lZeile As Integer
Dim DNamen As String
lZeile = [g65536].End(xlUp).Row
DNamen = Cells(lZeile, 1) & Cells(lZeile, 2) & Cells(lZeile, 3) & ".doc"
Dim sFile As String
sFile = "U:\Formbl01.dot"
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(sFile)
wdDoc.Bookmarks("ErstelltVon").Range = Cells(lZeile, 1).Value
wdDoc.Tables(1).Cell(2, 1).Range = Cells(lZeile, 2).Value
wdDoc.Tables(1).Cell(3, 1).Range = Cells(lZeile, 3).Value
wdDoc.Tables(1).Cell(3, 2).Range = Cells(lZeile, 4).Value
wdDoc.Tables(1).Cell(4, 1).Range = Cells(lZeile, 5).Value
wdDoc.Tables(1).Cell(5, 1).Range = Cells(lZeile, 6).Value
wdDoc.Tables(1).Cell(5, 2).Range = Cells(lZeile, 7).Value
'wdDoc.SaveCopyAs FileName:=ThisWorkbook.Path & "\" & Range '??("C1").Value & Range("B34").Value & ".XLS" '??
'wdDoc.SaveCopyAs Filename:=DNamen ?'?
'wdDoc.Close savechanges:=False 'True '??
'wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
Kann mir jemand auf die Sprünge helfen ??
MfG klausS