Cum se schimbă numele autorului pentru comentariu în Word
Acest articol vorbește despre schimbarea numelui autorului implicit pentru comentarii sau schimbarea numelui autorului existent într-un document într-unul nou. Vă rugăm să încercați cele două metode de mai jos.
Schimbați numele autorului comentariilor pentru utilizare ulterioară
Schimbați numele autorului comentariilor existente al unui document
Schimbați numele autorului comentariilor pentru utilizare ulterioară
Dacă doriți să schimbați numele autorului comentariului pentru o utilizare viitoare, vă rugăm să schimbați numele utilizatorului în fereastra Opțiuni Word.
1. Într-un document Word deschis, faceți clic pe Fișier > Opţiuni. În Opțiunile pentru Word fereastră, asigurați-vă că vă aflați în General fila, schimbați numele în nume utilizator caseta ca în imaginea de mai jos afișată și apoi faceți clic pe OK butonul.
Acum ați schimbat numele de utilizator implicit pentru comentarii în documentul Word.
Schimbați numele autorului comentariilor existente al unui document
Dacă ați primit un document cu multe comentarii și doriți să schimbați numele autorilor tuturor comentariilor cu unul anume, următorul cod VBA vă va face o favoare.
1. Selectați intervalul conține comentarii sau selectați întregul document, veți schimba numele autorului apăsând pe Ctrl + A , apăsați tasta Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În deschidere Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra Module.
Cod VBA: Schimbați numele autorului documentului al comentariilor existente
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. apasă pe F5 tasta pentru a rula codul. În deschidere Comentarii Nume autor caseta de dialog, introduceți noul nume al autorului în caseta de text și faceți clic pe OK butonul.
4. În următoarea deschidere Inițiale de comentarii caseta de dialog, introduceți inițialele după cum aveți nevoie și faceți clic pe OK butonul.
Apoi, numele autorilor tuturor comentariilor din intervalul selectat sunt schimbate imediat cu cel specificat, după cum se arată în imaginea de mai jos.
Cele mai bune instrumente de productivitate de birou
Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!
🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut / Rescrie textul / Rezumat documente / Solicitați informații pe baza Documentului, toate în Cuvânt
📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF / Exportați paginile ca imagini / Imprimați mai multe fișiere simultan...
✏ Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...
🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Toate anteturile / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...
➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Tabel cu linii diagonale / Legenda ecuației / Image Caption / Legenda tabelului / Imagini multiple / Descoperiți mai multe în Inserați grupul...
???? Selectii de precizie: Repera cu precizie pagini specifice / tabele / forme / paragrafele de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...
⭐ Îmbunătățiri de stele: Navigați rapid în orice locație / inserarea automată a textului repetitiv / comutați fără probleme între ferestrele documentelor / 11 Instrumente de conversie...