Eigenschaften eintragen

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich möchte gerne mit einer VBA Routine über ein selbsterstelltes UserForm die momentanen Dokumenteigenschaften beschreiben.
Das heisst, ich möchte in das Feld Titel, Autor und selbstdefinierten Variablen unter Datei/Eigenschaften einen Wert hinterlegen. Dabei soll beim schliessen des Dokumentes eine Maske erscheinen, welche die Eigenschaftswerte zum Ändern anzeigt. Mit bestätigung von OK sollen die geänderten Werte gespeichert werden.

Das UserFormular konnte ich mit den von mir gewünschen Feldern noch erzeugen. Bei der Datenübergabe bin ich jedoch gescheitert. Ich konnte zwar die Werte vom UserForm in eine VBA Variable schreiben, jedoch nicht in die Variable des Dokumentes.

Kann mir bitte bei diesem Übergang einer helfen.

ich hoffe das war noch verständlich ausgedrückt!

Vielen dank im vorraus

Gruss

Andreas

#2

hi,

das errorhandling, gleicht ein wenig einem spaghetti code, aber sinn und zweck wird erfüllt:

http://www.mvps.org/word/FAQs/MacrosVBA/MixedDocProp…

gruss

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Danke,

ich habs probiert, der code läuft einwandfrei, es werden jedoch die Eigenschaftsnamen nicht gefunden. Es läuft also immer das errorhandling ab. gibt es eine besondere Schreibweise für die Eigenschaftsnamen?

Gruss

Andreas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

hallo

folgender code liefert dir alle namen der properties
und setzt dem author einen neuen wert.

gruss

giuseppe

Sub test()

Dim doc_prop As DocumentProperty

For Each doc_prop In ActiveDocument.BuiltInDocumentProperties
Selection.TypeText doc_prop.Name & vbCrLf
Next

ActiveDocument.BuiltInDocumentProperties(„Author“).Value = „ME :wink:“

End Sub

#5

Dim doc_prop As DocumentProperty

For Each doc_prop In ActiveDocument.BuiltInDocumentProperties
Selection.TypeText doc_prop.Name & vbCrLf
Next

ActiveDocument.BuiltInDocumentProperties(„Author“).Value = „ME
:wink:“

für die selber erstellten DocumentProperties gibt es dann noch die CustomDocumentProperties.

Gruss, DaHo