Partager via


Objet CustomProperties (Word)

Collection d'objets CustomProperty qui représente les propriétés liées à une balise active. La collection CustomProperties comprend toutes les propriétés personnalisées des balises actives dans un document.

Remarques

Utilisez la propriété Properties pour renvoyer un seul objet CustomProperties. Utilisez la méthode Add de la CustomProperties objet avec pour créer une propriété personnalisée à partir d'un Microsoft Word projet Visual Basic pour Applications. Cet exemple crée une propriété pour la première balise active du document actif et affiche le code XML utilisé pour la balise.

Sub AddProps() 
 With ActiveDocument.SmartTags(1) 
 .Properties.Add Name:="President", Value:=True 
 MsgBox "The XML code is " & .XML 
 End With 
End Sub

Utilisez les Propriétés (Index) pour renvoyer une propriété donnée pour une balise active, où Index est le numéro de la propriété. Cet exemple affiche le nom et la valeur de la première propriété de la première balise active dans le document actif.

Sub ReturnProps() 
 With ActiveDocument.SmartTags(1).Properties(1) 
 MsgBox "The Smart Tag name is: " & .Name & vbLf & .Value 
 End With 
End Sub

Utilisez la propriété Count pour renvoyer le nombre de propriétés personnalisées d'une balise active. Cet exemple effectue une boucle dans toutes les balises actives dans le document actif, puis répertorie dans un nouveau document le nom et la valeur des propriétés personnalisées pour toutes les balises actives qui ont des propriétés personnalisées.

Sub SmartTagsProps() 
 Dim docNew As Document 
 Dim stgTag As SmartTag 
 Dim stgProp As CustomProperty 
 Dim intTag As Integer 
 Dim intProp As Integer 
 
 Set docNew = Documents.Add 
 
 'Create heading info in new document 
 With docNew.Content 
 .InsertAfter "Name" & vbTab & "Value" 
 .InsertParagraphAfter 
 End With 
 
 'Loop through smart tags in current document 
 For intTag = 1 To ActiveDocument.SmartTags.Count 
 
 With ActiveDocument.SmartTags(intTag) 
 
 'Verify that the custom properties 
 'for smart tags is greater than zero 
 If .Properties.Count > 0 Then 
 
 'Loop through the custom properties 
 For intProp = 1 To .Properties.Count 
 
 'Add custom property name to new document 
 docNew.Content.InsertAfter .Properties(intProp) _ 
 .Name & vbTab & .Properties(intProp).Value 
 docNew.Content.InsertParagraphAfter 
 Next 
 Else 
 
 'Display message if there are no custom properties 
 MsgBox "There are no custom properties for the " & _ 
 "smart tags in your document." 
 End If 
 End With 
 Next 
 
 'Convert the content in the new document into a table 
 docNew.Content.Select 
 Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=2 
 
End Sub

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.