Note: The other languages of the website are Google-translated. Back to English

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örfattarnamn för framtida bruk

Ändra den befintliga kommentarens författarnamn för ett dokument


Ändra kommentarernas författarnamn 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 den befintliga kommentarens författarnamn för ett dokument

Om du har fått ett dokument med många kommentarer och du vill ändra alla kommentarer 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 befintliga kommentarer författarens namn 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.


Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (20)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Yardımı oldu, teşekkürler.
uppenbarelse
Denna kommentar minimerades av moderatoren på webbplatsen
VBA-skriptet fungerade perfekt för att ändra namnet på författaren till mitt företagsnamn. Tack!
JaCo
Denna kommentar minimerades av moderatoren på webbplatsen
Här är ett modifierat makro som gör att du först kan ange det namn du vill ersätta om det finns andra kommentarer som du inte vill ändra.

Sub ChangeCommentAuthor()
'Uppdaterad av EntendOffice 20181112
Dim I As Long
Dim xOldName As String
Dim xNewName As String
Dim xShortName Som sträng
Om Selection.Comments.Count = 0 Då
MsgBox "Inga kommentarer i ditt val!", vbInformation, "KuTools for Word"
Exit Sub
End If
xOldName = InputBox("Gammalt författarenamn?", "KuTools för Word")
xNewName = InputBox("Nytt författarenamn?", "KuTools för Word")
xShortName = InputBox("Nya författares initialer?", "KuTools för Word")
Om xOldName = "" Eller xNewName = "" Eller xShortName = "" Då
MsgBox "Författarens namn/initialer får inte vara tomma.", vbInformation, "Kutools för Word"
Exit Sub
End If
Med urval
För I = 1 Till .Comments.Count
Om .Comments(I).Author = xOldName Då
.Comments(I).Author = xNewName
.Comments(I).Initial = xShortName
End If
Nästa jag
Sluta med
End Sub
Oliv
Denna kommentar minimerades av moderatoren på webbplatsen
Tack, Olivier, du är en bra person!
dan
Denna kommentar minimerades av moderatoren på webbplatsen
Stort tack för detta. Fungerar perfekt. En varning dock; alla kommentarer kommer att ändras, oavsett flera författare. Något som inte störde mig.
ebb
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för handledningen. det hjälpte mig verkligen
Babak
Denna kommentar minimerades av moderatoren på webbplatsen
Detta verkade fungera men jag kunde inte spara filen utan att den återgick till den ursprungliga författaren.

Min lösning var att ändra filnamnstillägget .docx till .zip. Sedan öppnade jag zip-filen. Bläddrade till mappen "word" och kopierade sedan filen "comments.xml". Öppna filen "comments.xml" i en textredigerare. Gör en sökning och ersätt författarens namn och sparade sedan filen. Kopiera och ersätt den gamla "comments.xml" med den nya i .zip-filen. Ändra nu filändelsen tillbaka till .docx och författarens namn ersätts nu i den sparade Word-filen.
GuyGye
Denna kommentar minimerades av moderatoren på webbplatsen
Tack! Det förändrade kommentarerna perfekt, MEN inte formatering, som att markera. Finns det vad som kan ändras i VBA? VBAproblem@mt2015.com
</div>
VBA-problem
Denna kommentar minimerades av moderatoren på webbplatsen
Jag är mycket tacksam för denna information. VBA-koderna fungerar perfekt på ett dokument Jag vill inte att författaren ska veta vem recensenten är ännu. Tack.
Josh
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket, VBN-koden fungerade som magi!!
Nezar
Denna kommentar minimerades av moderatoren på webbplatsen
Jag ändrade mitt användarnamn enligt instruktionerna, men mitt faktiska namn visas fortfarande i kommentarerna. Jag försöker göra mina kommentarer anonyma samtidigt som jag behåller den andra granskarens kommentarer med deras namn på dem.
Cynthia Allen
Denna kommentar minimerades av moderatoren på webbplatsen
Den där VBA-koden fungerade som en smäck - tack!
Sulaiman Lalani
Denna kommentar minimerades av moderatoren på webbplatsen
Fungerade perfekt, tack!
chris
Denna kommentar minimerades av moderatoren på webbplatsen
traduction en français obrukbar. Dommage !
Fondör
Denna kommentar minimerades av moderatoren på webbplatsen
Fransk översättning gör arbetet omöjligt, på grund av tangentbordsskillnader
fondör
Denna kommentar minimerades av moderatoren på webbplatsen
Wow ! Grymt bra ! tack så mycket ! 
Katt
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå
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 en lösning?
Merci d'avance.
Jeferson
Denna kommentar minimerades av moderatoren på webbplatsen
FÖR DE SOM VILL BYTA FÖRFATTARE ENDAST AV VISSA KOMMENTARER Öppna ditt dokument med ett arkiv (t.ex. ZIP), gå till word-mappen, hitta comments.xml-filen, extrahera, öppna med anteckningsblock, redigera därefter (ctrl+H för att hitta och ändra aktuell författare och initialer till de du önskar), spara , hämta tillbaka filen till word-mappen i zip-filen, et voila
George
Denna kommentar minimerades av moderatoren på webbplatsen
Jättebra, fungerade väldigt bra ... tack
Elizabeta
Denna kommentar minimerades av moderatoren på webbplatsen
Utmärkt information i detta inlägg och även i kommentarerna. Tack alla.
sebusca García
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser