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. ...

Preberi več Prenesi zdaj Nakup