Como alterar o nome do autor exibido nos comentários do Word

Author: Siluvia Last Modified: 2025-06-04

Este artigo aborda como alterar o nome do autor padrão usado para comentários no Word, bem como como atualizar o nome do autor em comentários existentes em um documento. Você pode fazer isso usando as configurações internas do Word ou uma macro VBA.

Alterar o nome do autor padrão para novos comentários

Alterar o nome do autor dos comentários existentes em um documento

Alterar o nome do autor padrão para novos comentários

Se você deseja que novos comentários mostrem um nome de autor diferente, é necessário alterar o nome do usuário nas configurações de Opções do Word.

Abra um documento do Word, depois clique em "Arquivo" > "Opções".
Na janela "Opções do Word", vá para a aba "Geral".
Altere o nome na caixa "Nome do usuário".
Clique em "OK" para salvar a alteração.

Agora, qualquer novo comentário que você inserir mostrará o nome do usuário atualizado.

Alterar o nome do autor dos comentários existentes em um documento

Se você tem um documento com muitos comentários e precisa atualizar os nomes dos autores de uma só vez, pode usar uma macro VBA para fazer isso rapidamente.

Selecione o intervalo que contém os comentários que deseja alterar, ou pressione "Ctrl + A" para selecionar todo o documento.
Pressione "Alt + F11" para abrir a janela do Microsoft Visual Basic for Applications.

No editor VBA, clique em "Inserir" > "Módulo". Depois, cole o seguinte código VBA na janela do módulo:

Sub ChangeCommentAuthor()
'Updated by ExtendOffice 20181112
    Dim I As Long
    Dim xNewName As String
    Dim xShortName As String
    If Selection.Comments.Count = 0 Then
        MsgBox "No comments in your selection!", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xNewName = InputBox("New author name?", "Kutools for Word")
    xShortName = InputBox("New author initials?", "Kutools for Word")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    With Selection
        For I = 1 To .Comments.Count
            .Comments(I).Author = xNewName
            .Comments(I).Initial = xShortName
        Next I
    End With
End Sub

Pressione "F5" para executar a macro. Na caixa de diálogo que aparece, digite o novo nome do autor e clique em "OK".
Na próxima caixa de diálogo, digite as novas iniciais e clique em "OK".

Os nomes dos autores de todos os comentários no intervalo selecionado agora estão atualizados.

Melhores Ferramentas de Produtividade para Office

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...