Option
Explicit
Public
Sub
Test()
Dim
objWordApp
As
Word.Application
Dim
objDocProp
As
Office.DocumentProperty
Set
objWordApp = Application
With
objWordApp.Documents(1)
On
Error
Resume
Next
Set
objDocProp = .CustomDocumentProperties.Add( _
Name:=
"Client"
, _
Value:=
"Bosch GmbH"
, _
Type:=MsoDocProperties.msoPropertyTypeString, _
LinkToContent:=
False
)
Set
objDocProp = .CustomDocumentProperties.Add( _
Name:=
"OrderNo"
, _
Value:=
"12-3456-789-0"
, _
Type:=MsoDocProperties.msoPropertyTypeString, _
LinkToContent:=
False
)
For
Each
objDocProp
In
.CustomDocumentProperties
Err.Clear
Debug.Print
"["
& objDocProp.Name &
"] = '"
& objDocProp.Value &
"'"
If
Err.Number <> 0
Then
Debug.Print
"["
& objDocProp.Name &
"] = {NULL}"
Next
On
Error
GoTo
0
End
With
End
Sub