Hallo,
Sub benutzerdefinierte_Eig_anlegen() starten
danach
Sub benutzerdefinierte_Eig_ansprechen()
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub benutzerdefinierte_Eig_anlegen()
'*.ipt muß auf sein
' Diese sub nur einmal anwenden
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim Text As String
Text = "meine erste Benutzereigenschaft mit VBA"
oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add Text, "Test-Eigenschaft"
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub benutzerdefinierte_Eig_ansprechen()
'*.ipt muß auf sein
' Diese sub kann immer angewendet werden
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim Text As String
Text = "meine Benutzereigenschaft mit VBA ändern"
oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Test-Eigenschaft").Value = Text
End Sub
++++++++++++++++++++++++++++++++++
MFG
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP