Word Speichern unter
08.09.2020 20:23:25
Bert
Ich habe eine Excel Datenbank die ein Word öffnen soll, die Verknüpfungen aktualisieren und an einen anderen Ort Speichern soll.
Allerdings Funktion iert das Speichern Unter nicht! Die Datei Test.2.docx ist zwar vorhanden aber "durch anderen Benützer zur Bearbeitung gesperrt, und wenn man es Schreibgeschützt öffnen Will dann kommt "nicht lesbarer Inhalt"
Danke für etwaige Hilfe
Private Sub CommandButton1_Click()
Dim test As Object
Set test = CreateObject("word.application")
With test
.Visible = True
.documents.Open "C:\Users\Shandabert\Documents\Excel\test.docx"
End With
ActiveWorkbook.SaveAs "C:\Users\Shandabert\Documents\Excel\test2.docx"
test.documents.Close
test.Quit
End Sub