Hallo,
durch ein Makro sollen Word-Dokumente aktualisiert werden, die mit einem Schreibschutz belegt sind. Beim Öffnen (Documents.Open) setze ich schon „ReadOnly = False“. Trotzdem wird das Dokument noch schreibgeschützt geöffnet. Anschließend nochmal den Befehl „ActiveDocument.ReadOnly = False“ absetzen, ist nicht erlaubt (Geschützter boolscher Wert!).
Wie kann ich den Schreibschutz mit dem Makro deaktivieren um die
Änderungen zu speichern?
Vielen Dank für eure Hilfe!
Tom
Hallo,
Dim fs As Object
Dim oldAttr as Long
Set fs = CreateObject(„Scripting.FileSystemObject“)
oldAttr = fs.GetAttr „TSTDATEI“ ’ alter Wert speichern
fs.SetAttr „TSTDATEI“, vbNormal ’ neuer Wert setzen
'— deine Verarbeitung ------
fs.SetAttr „TSTDATEI“, oldAttr ’ alter Wert zurueck
===================================================
obiges in 2 Functionen verpackt, kann man die auch auch aus einem Makro aufrufen
Tschau
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Peter,
vielen Dank für die Antwort. Leider erhalte ich beim Benutzen
der GetAttr/SetAttr - Funktionen einen Laufzeitfehler.
(Laufzeitfehler ‚438‘, Objekt unterstützt diese Eigenschaft oder
Methode nicht.)
Liegt das an meiner Word-Version (Word 2002 SP3 und VB 6.0) oder
mache ich noch einen Programmierfehler?
Gruß,
Tom