Como alterar o nome do autor para comentário no Word
Este artigo fala sobre como alterar o nome do autor padrão para comentários ou como alterar o nome do autor existente em um documento para um novo. Tente os dois métodos abaixo.
Altere o nome do autor dos comentários para uso futuro
Alterar o nome do autor dos comentários existentes de um documento
Altere o nome do autor dos comentários para uso futuro
Se você deseja alterar o nome do autor do comentário para uso futuro, altere o Nome de usuário na janela Opções do Word.
1. Em um documento do Word aberto, clique em Envie o > Opções. No Opções do word janela, verifique se você está localizando no Geral guia, altere o nome no nome de usuário caixa como a imagem abaixo mostrada e, finalmente, clique no OK botão.
Agora você alterou o nome de usuário padrão para comentários no documento do Word.
Alterar o nome do autor dos comentários existentes de um documento
Se você recebeu um documento com muitos comentários e deseja alterar os nomes dos autores de todos os comentários para um determinado, o código VBA a seguir fará um favor a você.
1. Selecione o intervalo contém comentários ou selecione o documento inteiro, você irá alterar os nomes dos autores pressionando o Ctrl + A teclas, pressione as outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Na abertura Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a janela Módulo.
Código VBA: Altere o nome do autor do documento dos comentários existentes
Sub ChangeCommentAuthor()
'Updated by EntendOffice 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
3. aperte o F5 chave para executar o código. Na abertura Comentários Nome do Autor caixa de diálogo, digite o novo nome do autor na caixa de texto e clique no botão OK botão.
4. Na próxima abertura Iniciais dos comentários caixa de diálogo, insira as iniciais conforme necessário e clique no botão OK botão.
Em seguida, todos os nomes dos autores dos comentários no intervalo selecionado são alterados para o especificado imediatamente, conforme mostrado na imagem abaixo.
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...