Propiedad Field.Code (Publisher)

Devuelve una cadena que representa el texto mostrado cuando se establece la vista de página que muestre los códigos de campo. Solo lectura.

Sintaxis

expresión. Código

expresión Variable que representa un objeto Field .

Valor devuelto

String

Ejemplo

En este ejemplo se recorren en bucle todos los campos de la publicación activa y, a continuación, se muestra un mensaje sobre si la cadena "www" se encontró en el código de cualquiera de los campos.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.