Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

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 o utilizare viitoare

Schimbați numele autorului comentariului existent al unui document


Schimbați numele autorului comentariilor pentru o utilizare viitoare

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 comentariului existent al unui document

Dacă ați primit un document cu o mulțime de comentarii și doriți să schimbați numele autorului 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: Modificați numele autorului documentului pentru comentariile 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.


Instrumente de productivitate Word recomandate

 

Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp

  • Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
  • Inserați mai multe imagini în foldere în documentul Word simultan.
  • Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
  • Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
  • Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kat · 4 days ago
    Wow ! Awesome ! many thanks ! 
  • To post as a guest, your comment is unpublished.
    fondeur · 18 days ago
    French translation makes the work impossible, due to keyboard differences
  • To post as a guest, your comment is unpublished.
    Fondeur · 18 days ago
    traduction en français inutilisable. Dommage !
  • To post as a guest, your comment is unpublished.
    Chris · 1 months ago
    Worked perfectly, thanks!
  • To post as a guest, your comment is unpublished.
    Sulaiman Lalani · 3 months ago
    That VBA code worked like a charm - thanks!
  • To post as a guest, your comment is unpublished.
    Cynthia Allen · 5 months ago
    I changed my user name as instructed, but my actual name is still showing up in the comments. I am trying to make my comments anonymous while retaining the other reviewer's comments with their name on them.
  • To post as a guest, your comment is unpublished.
    Vorson · 5 months ago
    VORSON DIGITAL is a Project of VORSON (Pvt.) Ltd.
    <a href="https://vorsondigital.com/">Digital Signage Companies in Pakistan</a>particularize in the support ability of gear administrations and make guarantee about the normalized nature of expert respectability.
  • To post as a guest, your comment is unpublished.
    Nezar · 8 months ago
    Thanks a lot, the VBN code worked like magic!!
  • To post as a guest, your comment is unpublished.
    Josh · 1 years ago
    I am very grateful for this information. The VBA codes works Perfectly on a document I don't want the writer to know who the reviewer is yet.
    Thanks.
  • To post as a guest, your comment is unpublished.
    VBAproblem · 1 years ago
    Thank you! It changed perfectly the comments, BUT not formatting, like highlighting. Is there what can be modified in the VBA?
    VBAproblem@mt2015.com

  • To post as a guest, your comment is unpublished.
    GuyGye · 1 years ago
    This appeared to work but I could not save the file without it reverting to the original Author.

    My workaround was to change the .docx extension on the filename to .zip. Then I opened the zip file. Browsed to the "word" folder and then copied the "comments.xml" file. Open the "comments.xml" file in a text editor. Do a search and replace of the Author name then saved the file. Copy and replace the old "comments.xml" with the new one in the .zip file. Now change the file extension back to .docx and the Author name is now replaced in the saved Word file.


  • To post as a guest, your comment is unpublished.
    Babak · 1 years ago
    Thanks for the tutorial. it really helped me

  • To post as a guest, your comment is unpublished.
    ebb · 1 years ago
    Many thanks for this. Works Perfect. A warning though; all comments will be changed, regardless of multiple authors. Something that didn't bother me.
  • To post as a guest, your comment is unpublished.
    Olivier · 2 years ago
    Here is a modified Macro that will allow you to first specify the Name your want to replace in case there are other comments that you don't want to modify.

    Sub ChangeCommentAuthor()
    'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xOldName As String
    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
    xOldName = InputBox("Old author name?", "KuTools for Word")
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xOldName = "" Or 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
    If .Comments(I).Author = xOldName Then
    .Comments(I).Author = xNewName
    .Comments(I).Initial = xShortName
    End If
    Next I
    End With
    End Sub
    • To post as a guest, your comment is unpublished.
      Dan · 11 months ago
      Thank you, Olivier, you are a good person!
  • To post as a guest, your comment is unpublished.
    JaCo · 2 years ago
    The VBA script worked perfectly to change the name of the author to my company name. Thank you!
  • To post as a guest, your comment is unpublished.
    vahit · 2 years ago
    Yardımı oldu, teşekkürler.