Compartilhar via

Propriedade Font.Bold (Publisher)

Devolve ou define uma constante MsoTriState que representa o estado da propriedade Negrito nos carateres num intervalo de texto. Leitura/gravação.

Sintaxe

expressão. Negrito

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

Valor de retorno

MsoTriState

Comentários

O valor da propriedade Bold pode ser uma das seguintes constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office.

Constante Descrição
msoFalse Nenhum dos caracteres no intervalo está formatado como negrito.
msoTriStateMixed Um valor devolvido que indica que o intervalo contém algum texto formatado como negrito e algum texto não formatado como negrito.
msoTriStateToggle Um valor definido que alterna entre msoTrue e msoFalse.
msoTrue Todos os caracteres no intervalo são formatados como negrito.

Exemplo

Este exemplo testa todo o texto no segundo bloco da publicação ativa e, se contiver texto a negrito e não texto a negrito, define todo o texto como negrito. Se o texto estiver a negrito ou não estiver a negrito, será apresentada uma mensagem a informar o utilizador de que não existe nenhum negrito misto. Para que este código seja executado adequadamente, devem existir dois ou mais blocos com texto na publicação ativa.

Sub BoldStory() 
 
 Dim stf As Publisher.Font 
 
 Set stf = Application.ActiveDocument.Stories(2).TextRange.Font 
 With stf 
 If .Bold = msoTriStateMixed Then 
 .Bold = msoTrue 
 Else 
 MsgBox "Mixed bolding is not in this story." 
 End If 
 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.

  • Last updated on