Table of contents
Collapse the table of content
Expand the table of content

Field.Code Property (Publisher)

office 365 dev account|Last Updated: 8/24/2017
3 Contributors

Returns a String that represents the text displayed when the page view is set to show field codes. Read-only.


expression. Code

_expression_A variable that represents a Field object.

Return Value



This example loops through all the fields in the active publication, and then displays a message as to whether the string "www" was found in the code of any of the fields.

Sub FindWWWHyperlinks() 
 Dim intItem As Integer 
 Dim intField As Integer 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange.Fields 
 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." 
 MsgBox "You have no hyperlink fields in your publication." 
 End If 
End Sub
© 2017 Microsoft