Propriedade Field.Code (Publisher)

Retorna uma cadeia de caracteres que representa o texto exibido quando o modo de exibição de página é definido para mostrar os códigos de campo. Somente leitura.

Sintaxe

expressão. Código

expressão Uma variável que representa um objeto Campo .

Valor de retorno

Cadeia de caracteres

Exemplo

Este exemplo percorre todos os campos na publicação ativa e, em seguida, apresenta uma mensagem sobre se a cadeia "www" foi encontrada no código de qualquer um dos 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.