Propriedade Font.AttachedToText (Publisher)

Verdadeiro se o objeto Tipo de Letra ou ParágrafoFormatar estiver anexado a um objeto TextRange .

Se o objeto for anexado a um objeto TextRange, o documento será atualizado quando as propriedades do objeto forem alteradas. Se o objeto não for anexado, o documento não será alterado até que o objeto seja aplicado ao objeto TextRange ou Style. Boolean somente leitura.

Sintaxe

expressão. AttachedToText

expressão Uma variável que representa um objeto Tipo de Letra .

Exemplo

Este exemplo duplica a formatação do tipo de letra; em seguida, verifica se a formatação duplicada está anexada a um intervalo de texto e, se não estiver, anexa a formatação à segunda forma.

Sub DuplicateText() 
 Dim fntTemp As Font 
 With ActiveDocument.Pages(1) 
 Set fntTemp = .Shapes(1).TextFrame.TextRange.Font.Duplicate 
 If fntTemp.AttachedToText <> True Then _ 
 ActiveDocument.Pages(1).Shapes(2) _ 
 .TextFrame.TextRange.Font = fntTemp 
 End With 
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.