Como alterar o tamanho da fonte do texto dos comentários num documento do Word?

Conforme ilustrado na imagem abaixo, se pretender aumentar o tamanho da fonte do texto dos comentários num documento do Word, o que pode fazer? Este artigo apresenta-lhe dois métodos para resolver este problema.

Alterar o Tamanho da fonte do comentário com a função incorporada no Word

Alterar o Tamanho da fonte do comentário com código VBA

---

Alterar o Tamanho da fonte da caixa de comentário com a função incorporada no Word

Pode alterar diretamente o tamanho da fonte do texto das caixas de comentário no painel Todos os Estilos no Word. Siga estes passos:

1. Prima as teclas Ctrl + Alt + Shift + S para abrir o painel Estilos.

2. No painel Estilos, clique em Opções. Veja a imagem:

3. Na janela Opções do Painel de Estilos aberta, selecione Todos os estilos na lista suspensa Selecionar estilos a mostrar.

4. Em seguida, clique em OK para regressar ao painel Estilos. Desloque-se para baixo até encontrar a entrada Texto da Caixa de Comentário, clique no botão para expandir a lista pendente e, de seguida, clique em Modificar. Veja a imagem:

5. Na janela Modificar Estilo, selecione o tamanho da fonte pretendido na secção Formatação, tal como mostrado na imagem abaixo, e clique no botão OK.

6. Feche o painel Estilos.

De seguida, o tamanho da fonte de todas as caixas de comentário é alterado para o valor especificado.

Nota: Esta definição será aplicada a todos os comentários futuros.

---

Alterar o Tamanho da fonte da caixa de comentário com código VBA

Esta secção apresenta um código VBA que facilita a alteração do tamanho da fonte na caixa de comentário de um documento do Word.

1. No documento onde pretende alterar o tamanho da fonte da caixa de comentário, prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.

2. Na janela aberta, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela do Módulo.

Código VBA: alterar o Tamanho da fonte da caixa de comentário no Word

Sub SetCommentTextStyle()
'Updated by ExtendOffice 20181112
    Dim objComment As Comment
    Dim objDoc As Document
    Dim strFontName As String
    Dim strFontSize As String 
    Set objDoc = ActiveDocument
    strFontName = InputBox("Enter text font name here: ", "Font name")
    strFontSize = InputBox("Enter font size here: ", "Font size") 
    With objDoc
      For Each objComment In .Comments
        objComment.Range.Font.Name = strFontName
        objComment.Range.Style = ActiveDocument.Styles("Balloon Text Char")
      Next objComment
    End With
    ActiveDocument.Styles("Balloon Text").Font.Size = Val(strFontSize)
End Sub

3. Prima a tecla F5 para executar o código.

4. Na primeira caixa de diálogo Kutools para Word, introduza um novo tipo de letra para o seu comentário e clique em OK.

5. Na segunda caixa de diálogo Kutools para Word, introduza o tamanho da fonte pretendido e clique em OK.

De seguida, o tamanho da fonte de todas as caixas de comentário é alterado para o valor especificado no Documento Atual.