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 Field .
Valor de retorno
Cadeia de caracteres
Exemplo
Este exemplo percorre todos os campos da publicação ativa e exibe uma mensagem sobre se a cadeia de caracteres "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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de