Freigeben über

CustomProperties-Objekt (Word)

  • Artikel

Eine Auflistung von CustomProperty-Objekten , die die Eigenschaften im Zusammenhang mit einem Smarttag darstellt. Die CustomProperties-Auflistung enthält alle benutzerdefinierten Smarttageigenschaften in einem Dokument.

HinwBemerkungeneise

Verwenden Sie die Properties-Eigenschaft , um ein einzelnes CustomProperties-Objekt zurückzugeben. Verwenden Sie die Add-Methode des CustomProperties-Objekts mit , um eine benutzerdefinierte Eigenschaft aus einem Microsoft Word Visual Basic for Applications-Projekt zu erstellen. In diesem Beispiel wird eine neue Eigenschaft für das erste Smarttag im aktiven Dokument erstellt und der für das Tag verwendete XML-Code angezeigt.

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

Verwenden Sie Eigenschaften (Index), um eine einzelne Eigenschaft für ein Smarttag zurückzugeben, wobei Index die Nummer der Eigenschaft ist. In diesem Beispiel werden der Name und der Wert der ersten Eigenschaft des ersten Smarttags im aktuellen Dokument angezeigt.

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

Verwenden Sie die Count-Eigenschaft , um die Anzahl der benutzerdefinierten Eigenschaften für ein Smarttag zurückzugeben. In diesem Beispiel werden alle Smarttags im aktuellen Dokument durchlaufen und dann in einem neuen Dokument der Name und der Wert der benutzerdefinierten Eigenschaften für alle Smarttags mit benutzerdefinierten Eigenschaften aufgelistet.

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

Siehe auch

Referenz zum Word-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.