Office: offenes Word-Dokument schließen

Hallo,

ich Teste grad wie man per Excel-VBA eine Word-Datei öffnet inkl. des Deaktivierens vom Schreibschutz.

Öffnen u. Schreibschutz deaktivieren funktioniert schon mal super.
Aber Schließen des Word-Dokumentes ohne zu Speichern funktioniert nicht.

Hier meine Sub zum Öffnen des Word-Dokuments:

PHP:

         Sub öffnen ()
Dim appWord As Object
Dim DocTest As Object
Dim strFile As String
Set appWord = CreateObject("Word.Application")
strFile = "file:///P:Downloadsbuch_test.docx"
Set DocTest = appWord.documents.Open(strFile, ReadOnly:=True)

appWord.Visible = True
If DocTest.ProtectionType <> wdNoProtection Then
DocTest.Unprotect Password:="0001"
End If
Set DocTest = Nothing
Set appWord = Nothing
End Sub


:)

 

Hallo Charly842,

ich sehe mir gerade deine Set= an.
Im ersten Sub hast du doctest mit dem Zusatz "open" bereits zugeordnet. Nun versuchst du im Sub2 doctest mit zusätzlichen "Close" zu verbinden.

Meiner Meinung nach kann das nicht funktionieren.
Gruß
Harilo

 

Code:

woher kennt Dein Code den Wert für wdNoProtection?

 

Hallo EarlFred,

Den Code via Google gefunden u. Ihn für meinen Versuch abgeändert.
https://www.herber.de/forum/archiv/1...einfuegen.html

Habe dein Bsp. übernommen, leider gibt er eine Fehlermeldung zurück wenn Ich Sub Schließen starte.
Laufzeitfehler "91"
Objektvariable oder Wiht.Block nicht festgelegt.

Gruß Charly

 

Toll! Und das erklärt was?

Und wann hast Du Schließen gestartet? VOR oder NACHDEM Du öffnen gestartet hast?

 

Habe erst den Sub "Sub öffnen()" gestartet u. dann den zweiten Sub "Sub Schließen()"

Zeile "DocTest.Close SaveChanges:=False" wird dabei Makiert...

 

wenn Du zwischendurch weder Fehler produziert hast, die zum Reset führen, noch ebendiesen anderweitig verursacht hast, kann ich das nicht nachvollziehen.
Bei mir läuft der Code übrigens.

Nebenbei erwarte ich etwas mehr Mitdenken von Fragern als bloßes Nachplappern von Fehlermeldungen.

Dazu gehört, Rückfragen zu beantworten. Meine ist immer noch offen:

 

Hallo,

... 'sier' hat einen Verweis auf die "Microsoft WORD xx.0 Object Library" gesetzt ... allerdings ist meine Kristallkugel schon sehr angestaubt ... *mrcool

Sabina

 

Wie bereits erwänt habe Ich Code aus einem Forum erhraus übernommen.
Ich bin Anfänger im Bereich VBA drum.
Mein Code kennt den Wert für "wdNoProtection" nicht.

Habe diesen Teil "wdNoProtection" aus der Zeile herrausgenommen.
Funktioniert auch ohne.

PHP:

         Dim appWord As Object
Dim DocTest As Object

Sub öffnen()
Dim strFile As String

Set appWord = CreateObject("Word.Application")
strFile = "file:///P:Downloadsbuch_test.docx"
Set DocTest = appWord.documents.Open(strFile, ReadOnly:=True)

appWord.Visible = True
If DocTest.ProtectionType Then
DocTest.Unprotect Password:="0001"
End If
'
'
Set DocTest = Nothing
Set appWord = Nothing
End Sub

Sub schließen()
DocTest.Close SaveChanges:=False
appWord.Quit
Set DocTest = Nothing
Set appWord = Nothing
End Sub


 

bevor du behauptest, mein Code verursache Fehler, solltest du auch meinen Code meinen...

Vergleiche den von dir zuletzt geposteten Code mit meinem und lösche die Zeilen in deinem Code, die bei meinem aus gutem Grund fehlen...

 

Sorry mein Fehler, habe anscheinend nur den Inhalt des zweiten Sub‘s übernommen ohne auf den ersten zu achten.

Danke für den Hinweis, jetzt funktioniert es...
Und Danke für deine Geduld.

Gruß Charly