ich fülle aus Excel heraus über Verknüpfungen ein Worddokument. Das klappt soweit auch ganz gut. Nun möchte ich aber, dass das Worddokument sich nicht nur öffnet sondern auch automatisch unter einem anderen Namen in einem anderen Pfad abspeichert wird und dabei die Verknüpfungen gelöscht werden (werden nicht mehr gebraucht ). Der neue Dateiname soll die Variable RnNr aus der Excel-Datei sein.
Meine bisherigen Versuche mit SaveAs in der With-Abfolge sind bisher kläglich gescheitert.
Anbei mein Code:
Private Sub CommandButton1_Click()
Dim objWord As Object
Dim strPfad As String
Dim strPfad_neu As String
Dim RnNr As String
strPfad = "D:\Büro\Vorlagen\Rechnung.docx"
StrPfad_neu=D:\Rechnungsausgang\
RnNr = Textbox
Set objWord = CreateObject("Word.application")
With objWord
.Application.Visible = True
.Application.Documents.Open (strPfad)
End With
Set objWord = Nothing
End Sub
Gruß Markus