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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour