Hoppa till huvudinnehåll

Hur man ändrar författarnamnet för kommentarer i Word

Den här artikeln talar om att ändra standardförfattarens namn för kommentarer eller ändra det befintliga författarnamnet i ett dokument till ett nytt. Försök med nedanstående två metoder.

Ändra kommentarernas författares namn för framtida bruk

Ändra de befintliga kommentarernas författarnamn för ett dokument


Ändra kommentarernas författares namn för framtida bruk

Om du vill ändra kommentarens författarnamn för framtida bruk, ändra användarnamnet i Word-alternativfönstret.

1. Klicka på i ett öppnat Word-dokument Fil > Tillbehör. I Word-alternativ se till att du hittar i Allmänt på fliken, ändra namnet i Användarnamn rutan som visas nedan, och slutligen klicka på OK knapp.

Nu har du ändrat standardanvändarnamnet för kommentarer i Word-dokument.


Ändra de befintliga kommentarernas författarnamn för ett dokument

Om du har fått ett dokument med massor av kommentarer, och du vill ändra alla kommentarers författarnamn till ett visst, kommer följande VBA-kod att göra dig en tjänst.

1. Välj intervallet innehåller kommentarer eller välj hela dokumentet du ändrar författarnamnen genom att trycka på ctrl + A tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I öppningen Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan VBA-koden nedan till modulfönstret.

VBA-kod: Ändra de befintliga kommentarernas författarnamn på dokumentet

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. tryck på F5 för att köra koden. I öppningen Kommentarer Författarnamn dialogrutan, ange det nya författarnamnet i textrutan och klicka på OK knapp.

4. I nästa öppning Kommentarer initialer dialogrutan, ange initialerna efter behov och klicka på OK knapp.

Sedan ändras alla kommentarers författarnamn i det valda intervallet till det angivna omedelbart enligt nedanstående skärmdump.

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀
 
Comments (32)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hi, thanks for this guide. However I'm stuck at the module step. What do you mean with pressing F5 keys? Can you show me? Thank you
This comment was minimized by the moderator on the site
Hi Carla,

After adding the VBA code, stay in the Microsoft Visual Basic for Applications window and press the F5 key on your keyboard to run the code.
This comment was minimized by the moderator on the site
Fantastic - many thanks!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Thank you, is there a solution to change the picture of the author in the comments into an anonymous one?
This comment was minimized by the moderator on the site
Hi Niccolo,
Sorry can't help you with this problem.
This comment was minimized by the moderator on the site
Cool thanks!
This comment was minimized by the moderator on the site
Boas. No meu caso funcionou muito bem com os "comentarios", mas não alterou o nome de quem fez as "alterações" ao texto. Alguém consegue efectuar a alteração do autor para todos os tipos de marcações: comentarios, alterações, formatação...
This comment was minimized by the moderator on the site
Microsoft ist schon ein Schrott. Je neuer die Versionen sind, umso weniger findet man die Lösung. Wo ändere ich schlichtweg den Autor grundsätzlich. Bei mir wird nichts geändert und ich suche seit über 2 Stunden... einfach nur Schrott das UX von Microschrott
This comment was minimized by the moderator on the site
Excellent information in this post and also in the comments. Thank you everyone.
This comment was minimized by the moderator on the site
Great, worked very well ... thanks
This comment was minimized by the moderator on the site
FOR THOSE WHO WANNA CHANGE AUTHORS ONLY OF CERTAIN COMMENTSOpen your doc with an archiver (e.g. ZIP), go to word folder, find comments.xml file, extract, open with notepad, edit accordingly (ctrl+H to find and change current author and initials to the ones you desire), save, get the file back to word folder in the zip, et voila
This comment was minimized by the moderator on the site
Cette astuce ne fonctionne pas avec toutes les versions d'office
This comment was minimized by the moderator on the site
Bonjour
Cette macro fonctionne bien, mais pour anonymiser l'auteur des corrections dans un texte, il faudrait, en plus de l'auteur des commentaires, pouvoir changer le nom au niveau de marques de révision, et tel n'est pas le cas.
Auriez-vous une solution?
Merci d'avance.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations