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

Kako spremeniti ime avtorja za komentar v Wordu

Ta članek govori o spreminjanju privzetega imena avtorja za komentarje ali spreminjanju obstoječega imena avtorja v dokumentu na novega. Poskusite spodnji dve metodi.

Spremenite ime avtorja komentarjev za prihodnjo uporabo

Spremenite ime avtorja obstoječih komentarjev dokumenta


Spremenite ime avtorja komentarjev za prihodnjo uporabo

Če želite spremeniti ime avtorja komentarja za prihodnjo uporabo, spremenite uporabniško ime v oknu Wordove možnosti.

1. V odprtem Wordovem dokumentu kliknite file > možnosti. v Wordove možnosti okno, preverite, ali najdete v splošno zavihek, spremenite ime v uporabniško ime , kot je prikazano na spodnji sliki zaslona, ​​in na koncu kliknite OK gumb.

Zdaj ste spremenili privzeto uporabniško ime za komentarje v dokumentu Word.


Spremenite ime avtorja obstoječih komentarjev dokumenta

Če ste prejeli dokument z veliko komentarji in želite spremeniti imena avtorjev vseh komentarjev v določeno, vam bo naslednja koda VBA naredila uslugo.

1. Izberite obseg, ki vsebuje komentarje, ali pa izberite celoten dokument, s katerim boste spremenili imena avtorjev s pritiskom na Ctrl + A tipke, pritisnite tipko druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Na odprtju Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno modula.

Koda VBA: spremenite ime avtorja obstoječih komentarjev dokumenta

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. Pritisnite F5 tipko za zagon kode. V uvodu Komentarji Ime avtorja v pogovorno okno vnesite novo ime avtorja v besedilno polje in kliknite OK gumb.

4. V naslednjem odprtju Inicialke komentarjev v pogovorno okno vnesite začetnice, kot jih potrebujete, in kliknite na OK gumb.

Nato se imena avtorjev komentarjev v izbranem obsegu takoj spremenijo v določeno, kot je prikazano spodaj.


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (29)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Yardımı oldu, teşekkürler.
Ta komentar je moderator na spletnem mestu minimiziral
Skript VBA je odlično deloval, da je ime avtorja spremenilo v ime mojega podjetja. Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
Tukaj je spremenjen makro, ki vam bo omogočil, da najprej določite ime, ki ga želite zamenjati, če obstajajo drugi komentarji, ki jih ne želite spremeniti.

PodSpremembaAvtorjaKomentara()
'Posodobil EntendOffice 20181112
Dim I As Long
Dim xOldName kot niz
Dim xNewName kot niz
Dim xShortName kot niz
Če je Selection.Comments.Count = 0 Potem
MsgBox "V vašem izboru ni komentarjev!", vbInformation, "KuTools za Word"
Exit Sub
Konec Če
xOldName = InputBox("Ime starega avtorja?", "KuTools za Word")
xNewName = InputBox("Novo ime avtorja?", "KuTools za Word")
xShortName = InputBox("Nove začetnice avtorja?", "KuTools za Word")
Če je xOldName = "" Ali xNewName = "" Ali xShortName = "" Potem
MsgBox "Ime avtorja/inicial ne morejo biti prazne.", vbInformation, "Kutools za Word"
Exit Sub
Konec Če
Z izborom
Za I = 1 Do .Comments.Count
Če je .Comments(I).Author = xOldName Potem
.Komentarji(I).Avtor = xNewName
.Komentarji(I).Initial = xShortName
Konec Če
Naslednji jaz
Končaj s
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, Olivier, dober človek si!
Ta komentar je moderator na spletnem mestu minimiziral
И салата неплох
Ta komentar je moderator na spletnem mestu minimiziral
La même en anglais

PodSpremembaAvtorjaKomentara()
'Posodobljeno 20220603
Dim Index As Long
Dim xOldName kot niz
Dim xNewName kot niz
Dim xShortName kot niz
Če je Selection.Comments.Count = 0 Potem
MsgBox "V vašem izboru ni komentarjev!", vbInformation, "KuTools za Word"
Exit Sub
Konec Če
xOldName = InputBox("Ime starega avtorja?", "KuTools za Word")
xNewName = InputBox("Novo ime avtorja?", "KuTools za Word")
xShortName = InputBox("Nove začetnice avtorja?", "KuTools za Word")
Če je xNewName = "" Ali xShortName = "" Potem
MsgBox "Ime avtorja/inicial ne morejo biti prazne.", vbInformation, "Kutools za Word"
Exit Sub
Konec Če
Z izborom
Za indeks = 1 do .Comments.Count
Če (.Comments(Index).Author = xOldName) Potem
.Komentarji(Kazalo).Avtor = xNovoIme
.Komentarji(Kazalo).Initial = xShortName
Konec Če
Naslednji indeks
Končaj s
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala za to. Deluje Popolno. Vendar opozorilo; vsi komentarji bodo spremenjeni, ne glede na več avtorjev. Nekaj, kar me ni motilo.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za vadnico. res mi je pomagalo
Ta komentar je moderator na spletnem mestu minimiziral
Zdelo se je, da to deluje, vendar datoteke nisem mogel shraniti, ne da bi se povrnila na prvotnega avtorja.

Moja rešitev je bila, da spremenim razširitev .docx v imenu datoteke v .zip. Nato sem odprl zip datoteko. Prebrskal sem mapo "word" in nato kopiral datoteko "comments.xml". Odprite datoteko "comments.xml" v urejevalniku besedil. Izvedite iskanje in zamenjajte ime avtorja, nato pa shranite datoteko. Kopirajte in zamenjajte stari "comments.xml" z novim v datoteki .zip. Zdaj spremenite pripono datoteke nazaj v .docx in ime avtorja je zdaj zamenjano v shranjeni datoteki Word.
Ta komentar je moderator na spletnem mestu minimiziral
Verjetno ste imeli omogočen skript, ki je po shranjevanju povrnil avtorja komentarjev.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam! Popolnoma je spremenil komentarje, vendar ne formatiranja, kot je poudarjanje. Ali je mogoče kaj spremeniti v VBA? VBAproblem@mt2015.com
Ta komentar je moderator na spletnem mestu minimiziral
Zelo sem hvaležen za te informacije. Kode VBA delujejo odlično na dokumentu, ne želim, da bi avtor še vedel, kdo je recenzent. Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, koda VBN je delovala kot čarobno!!
Ta komentar je moderator na spletnem mestu minimiziral
Uporabniško ime sem spremenil po navodilih, vendar je moje dejansko ime še vedno prikazano v komentarjih. Svoje pripombe poskušam narediti anonimne, medtem ko obdržim komentarje drugih recenzentov z njihovim imenom.
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda VBA je delovala kot čar - hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Delalo odlično, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
traduction en français neuporaben. Dommage !
Ta komentar je moderator na spletnem mestu minimiziral
Francoski prevod onemogoča delo zaradi razlik na tipkovnici
Ta komentar je moderator na spletnem mestu minimiziral
Vau! Čudovito! najlepša hvala ! 
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni
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 rešitev?
Merci d'avance.
Ta komentar je moderator na spletnem mestu minimiziral
ZA TISTE, KI ŽELITE MENJATI AVTORJE SAMO DOLOČENIH KOMENTARJ.Odprite svoj dokument z arhivarjem (npr. ZIP), pojdite v mapo word, poiščite datoteko comments.xml, izvlecite, odprite z beležnico, ustrezno uredite (ctrl+H, da poiščete in spremenite trenutnega avtorja in začetnice na tiste, ki jih želite), shranite, vrnite datoteko nazaj v mapo word v zip in voila
Ta komentar je moderator na spletnem mestu minimiziral
Cette astuce ne fonctionne pas avec toutes les versions d'office
Ta komentar je moderator na spletnem mestu minimiziral
Super, delalo zelo dobro ... hvala
Ta komentar je moderator na spletnem mestu minimiziral
Odlične informacije v tej objavi in ​​tudi v komentarjih. Hvala vsem.
Ta komentar je moderator na spletnem mestu minimiziral
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
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL