You can create & update any custom document properties you might require with code like:
Code:
Dim StrClient As String, StrAddr As String
StrClient = "Client Name": StrAddr = "Client Address"
With ActiveDocument
With .CustomDocumentProperties
On Error Resume Next
.Add Name:="Client Name", Type:=msoPropertyTypeString, LinkToContent:=False, Value:=StrClient
.Item("Client Name").Value = StrClient
.Add Name:="Client Address", Type:=msoPropertyTypeString, LinkToContent:=False, Value:=StrAddr
.Item("Client Address").Value = StrAddr
End With
End With
Simply replace "Client Name" and "Client Address" in the above code with references to the appropriate textboxes on your userform.