Propriedade CaptionLabel.BuiltIn (Word)
True se o nome da legenda especificado é um dos rótulos de legenda internos no Word. Boolean somente leitura.
Sintaxe
expressão. Builtin
Expressão Uma variável que representa um objeto "CaptionLabel".
Comentários
Você pode especificar estilos internos em todos os idiomas usando as constantes WdBuiltinStyle ou dentro de um idioma usando o nome do estilo para a versão de idioma do Word. Por exemplo, se você especificar o inglês dos EUA em suas configurações de idioma do Microsoft Office, as instruções a seguir são equivalentes:
ActiveDocument.Styles(wdStyleHeading1)
ActiveDocument.Styles("Heading 1")
Exemplo
Este exemplo verifica todos os estilos do documento ativo. Quando é encontrado um estilo que não é interno, é exibido o nome do estilo.
Dim styleLoop As Style
For Each styleLoop in ActiveDocument.Styles
If styleLoop.BuiltIn = False Then
Msgbox styleLoop.NameLocal
End If
Next styleLoop
Este exemplo verifica todos os rótulos de legenda que foram criados no aplicativo. Quando é encontrado um rótulo de legenda que não é interno, é exibido o nome do rótulo.
Dim clLoop As CaptionLabel
For Each clLoop in CaptionLabels
If clLoop.BuiltIn = False Then
Msgbox clLoop.Name
End If
Next clLoop
Confira também
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.