Adding Custom Document Properties

gmayor · #3 03-09-2021, 11:46 PM

The DIM statements are not required for the macro. As for the rest,you can't put a date in a date field that is not a date, nor a number in a number field that is not a number.
I would suggest using error trapping to avoid crashes while testing the code.

Code:

Option Explicit

Private Sub Document_New()
    AddProp "APS_ContractNumber", False, 4, "[Contract Number]"
    AddProp "APS_DocumentCode", False, 4, "[Document Code]"
    AddProp "APS_DocumentNumber", False, 4, "[Document Number]"
    AddProp "APS_DocumentTitle", False, 4, "[Document Title]"
    AddProp "APS_DocumentType", False, 4, "[Document Type]"
    AddProp "APS_Revision", False, 4, "[RR]"
    AddProp "APS_RevisionDate", False, 3, "01/01/2000"
    AddProp "APS_SubjectCode", False, 4, "[Subject Code]"
    AddProp "APS_UniqueIdentifier", False, 4, "[XXX]"
End Sub

Private Sub AddProp(sName As String, bLink As Boolean, lType As Long, sValue As String)
Dim oProp As DocumentProperty
    With ActiveDocument
        For Each oProp In .CustomDocumentProperties
            If oProp.Name = sName Then
                oProp.Value = sValue
                GoTo lbl_Exit
            End If
        Next oProp
        .CustomDocumentProperties.Add _
                Name:=sName, _
                LinkToContent:=bLink, _
                Type:=lType, _
                Value:=sValue
    End With
lbl_Exit:
    Set oProp = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create Custom Document Properties with Content Control	kschmidt	Word VBA	7	02-04-2019 03:09 PM
Add custom doc properties in "Doc properties control"	eazysnatch	Word	2	09-13-2017 08:08 PM
Updating Document Properties without using advanced properties dialogue	thedr9wningman	Word VBA	3	01-20-2014 05:56 PM
Custom Properties	b-baker	Word	1	03-01-2012 01:15 AM
Add custom document properties into document	NicBodkin	Word	8	05-05-2011 09:09 AM