Publisher (的 Field.Code 屬性)
會傳回代表頁面檢視設為顯示功能變數代碼時所顯示的文字 字串 。 唯讀。
運算式。代碼
表達 代表 Field 物件的變數。
字串
本範例會迴圈查看使用中出版物中的所有欄位,然後顯示訊息,指出是否在任何欄位的程式碼中找到字串 "www"
。
Sub FindWWWHyperlinks()
Dim intItem As Integer
Dim intField As Integer
With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange.Fields
Do
intItem = intItem + 1
If InStr(1, .Item(intItem).Code, "www") > 0 Then
intField = intField + 1
End If
Loop Until intItem = .Count
End With
If intField > 0 Then
MsgBox "You have " & intField & " World Wide Web " & _
"hyperlinks in your publication."
Else
MsgBox "You have no hyperlink fields in your publication."
End If
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。