Document Eigenschaften ändern

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich möchte die Eigenschaften einer .doc oder .dot Datei anpassen. Z.B. den Autor der Datei.

Habe leider keine Möglichkeit gefunden dies über eine Windows API zu erledigen (nur lesen ging per API) deshalb habe ich mich damit abgefunden das ich jedes Dokument per code öffnen muss.

Nur dabei ergab sich, dass ich die einzelnen ActiveDocument.BuiltInDocumentProperties zwar ändern konnte und augenscheinlich die Änderungen an den Objekten wirksam waren aber wenn ich das Dokument gespeichert habe und dann im explorer die dateieigenschaften angeschaut habe, dann wurden meine Änderungen nicht übernommen.

Kann mir jemand sagen wie ich das anstelle??

Danke
Grüße

#2

Code
Dim doc As Document

Dim Word_Application As Word.Application
Set Word_Application = CreateObject(„Word.Application“)
Word_Application.Visible = True

Set doc = Word_Application.Documents.Open(FileName:=Dateipfad)
doc.BuiltInDocumentProperties(wdPropertyAuthor).Value = strAutor
doc.BuiltInDocumentProperties(wdPropertyRevision).Value = strVersion
doc.Save
doc.Close

#3

AHHHH
ok, ich habe den einen fehler gefunden! Word speichert das Dokument nicht da er die Änderung der Propierties nicht als Änderungen ansieht und somit die Dokumente gleich sind (standard word verhalten). Habe dies gelößt indem ich ein leerzeichen einfüge und wieder lösche.

Allerdings kann man die Property „Version“ oder „wdProtpertyRevision“ nicht speichern…weiss jemand wie ich die Version anpasse? Sie ist unter dem Register „Statistik“ zu finden (als READONLY) aber nur per Rechtsklick auf die Datei im Explorer kann man sie ändern.

Sie wird bei jedem Speichern des jeweiligen Dokuments/der Vorlage inkrementiert…