Publisher () 的 Fields 物件
一群 欄位 代表文字範圍中的所有欄位的物件。
出版物中這個集合的 Count 屬性會傳回指定圖案或選取範圍中的專案數。
使用 TextRange.Fields 屬性可傳回 Fields 集合。 使用 Fields (index) ,其中 index 是索引編號,可傳回單一 Field 物件。 索引編號代表選取範圍、 範圍或出版物中欄位的位置。
下列範例會顯示使用中出版物的每個文字方塊中的功能變數代碼與第一個功能變數的結果。
Sub ShowFieldCodes()
Dim pagPage As Page
Dim shpShape As Shape
For Each pagPage In ActiveDocument.Pages
For Each shpShape In pagPage.Shapes
If shpShape.Type = pbTextFrame Then
With shpShape.TextFrame.TextRange
If .Fields.Count > 0 Then
MsgBox "Code = " & .Fields(1).Code & vbLf _
& "Result = " & .Fields(1).Result & vbLf
End If
End With
End If
Next
Next
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。