Tapez les nouvelles déclarations suivantes entre le "Public Sub" et "End Sub" déclarations:
dim PropertyName, ValeurPropriété sous forme de chaîne
PropertyName = InputBox ("S'il vous plaît entrez le nom d'une nouvelle propriété.")
PropertyValue = InputBox ("S'il vous plaît entrer une valeur pour la nouvelle propriété.")
ActiveDocument.CustomDocumentProperties.Add _
Nom: = PropertyName, LinkToContent: = False, _
Valeur: = ValeurPropriété, Type: = msoPropertyTypeString
Ces déclarations invitent l'utilisateur à une nouvelle propriété et sa valeur, puis créer la nouvelle propriété de la saisie de l'utilisateur.