Sub DeleteAllProperties()

    

        Dim oProp As DocumentProperty

        For Each oProp In ActiveDocument.CustomDocumentProperties

            oProp.Delete

        Next oProp

 

End Sub

 

 

Wenn der Makro gelaufen ist schaut man in die Dokumenteigenschaften:  Wunderbar alle Eigenschaften sind weg die vorher da waren.

Man klickt im Dialog auf Abbrechen. Speichert und schließt das Dokument.

Macht dann das Dokument wieder auf, sind alle Eigenschaften im Dokument wieder da.

Von wegen gelöscht.

 

 

Das funktioniert nur, wenn man nach Makrolauf, die Dokumenteigenschaften öffnet, dann mit OK bestätigt und dann speichert und schließt.

 

 

D.h. da muss in das Makro noch irgendeine Funktion rein die das gleiche auslöst wie das Eigenschaftsfenster öffnen und mit OK bestätigen.

 

 

Hintergrund ist:
Ich hatte mir eigentlich das obere Makro in eine Schleife gebaut um alle geöffneten Word-Dokumente zu durchlaufen und hatte mich gewundert, dass das zwar alles durchlaufen inkl. Speichern und Dokument-Schließen durchlaufen war, aber alle Dokument-Eigenschaften noch immer so waren wie vorher.

 

Weiß hier jemand Rat ???? :-) ...

 

 

Ich bin einigermaßen verzweifelt..... :-( ....