Forums Neueste Beiträge
 

DocProperty

13/11/2009 - 13:12 von Thomas Mangold | Report spam
Wie kann ich von außen (VBA oder FillIn) ein DocProperty-Feld
erstelellen und mit einem Wert belegen? Bei Makro-Aufzeichnen wird
nichts aufgezeichnet.

Thomas

Word 2003
 

Lesen sie die antworten

#1 Christian Freßdorf
13/11/2009 - 13:32 | Warnen spam
Hallo Thomas,

Wie kann ich von außen (VBA oder FillIn) ein DocProperty-Feld erstelellen
und mit einem Wert belegen? Bei Makro-Aufzeichnen wird



also ein CustomDocumentProperties:

z.B. so:

Function MyDocProperty(oDoc As Document, str_Prop As String, str_Val As
String)
Dim obj_Prop As DocumentProperty
Dim bProp As Boolean: bProp = False
For Each obj_Prop In oDoc.CustomDocumentProperties
If obj_Prop.Name = str_Prop Then
obj_Prop.Value = str_Val
bProp = True
Exit For
End If
Next obj_Prop
If bProp = False Then
oDoc.CustomDocumentProperties.Add _
Name:=str_Prop, _
LinkToContent:=False, _
Value:=str_Val, _
Type:=msoPropertyTypeString
End If
End Function
'
Sub Aufruf_myDocProperty()
MyDocProperty ActiveDocument, "PropertyName", "PropertyWert"
End Sub


Gruß Christian
~~~~~~~~~~~~
Antworten / Rückmeldungen nur in die NG!
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)

Ähnliche fragen