閱讀英文

共用方式為


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 支援與意見反應