VBA: offene Word-Datei schließen
08.01.2020 10:44:23
Charly
Ich Beschäftige mich grad via Excel-VBA wie man ein Word-Dokument mit Schreibschutz öffnet u. das Dokument wieder Schließt ohne Speichern,
Das klappt auch teilweise, Word öffnet die Datei die im Pfad angegeben ist inkl. Schreibschutz.
Allerdings öffnet Word ein neues Dokument1 mit dem Inhalt der Datei die Ich Eigentlich öffnen möchte.
Des Weiteren, wie kann Ich das bereits geöffnet Word-Dokument "buch_test.docx" wieder schließen.
Habe jetzt schon einiges Probiert leider ohne Erfolg.
Quelle des Codes:
https://www.herber.de/forum/archiv/1580to1584/1581315_VBA_Excel_Werte_in_Word_einfuegen.html
Hier mein angepasster Code zum Öffnen:
Sub Makro1() 'Öffnen
Dim appWord As Object
Dim DocTest As Object
Set appWord = CreateObject("Word.Application")
Set DocTest = appWord.documents.Add("file:///P:\Downloads\buch_test.docx")
appWord.Visible = True
If DocTest .ProtectionType wdNoProtection Then
DocTest .Unprotect Password:="0001"
End If
Set DocTest = Nothing
Set appWord = Nothing
End Sub