I found the answer to my question. DocProperties are set as follows (notice there are both built-in and custom properties):



Sub SetPropertiesAcme()
With ActiveDocument
.BuiltInDocumentProperties("Company").Value = "Acme"
.CustomDocumentProperties("Product Name").Value = "Star"
.Fields.Update
End With
End Sub