Propriedade Font.Bold (Publisher)

Retorna ou define uma constante MsoTriState que representa o estado da propriedade Bold nos caracteres em um intervalo de texto. Leitura/gravação.

Sintaxe

mais simples. Negrito

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

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 retornado indicando que o intervalo contém parte do texto formatado em negrito e outro 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 andar da publicação ativa e, se contiver texto em negrito e não negrito, definirá todo o texto como negrito. Se o texto estiver em negrito ou não estiver em negrito, uma mensagem será exibida informando ao usuário que não há 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