Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպես փոխել հեղինակի անունը Word- ում մեկնաբանության համար

Այս հոդվածը խոսում է մեկնաբանությունների համար հեղինակի լռելյայն անունը փոխելու կամ փաստաթղթում առկա հեղինակի անունը նորով փոխելու մասին: Խնդրում ենք փորձել ստորև ներկայացված երկու եղանակները:

Փոխեք մեկնաբանությունների հեղինակի անունը հետագա օգտագործման համար

Փոխեք փաստաթղթի առկա մեկնաբանության հեղինակային անունը


Փոխեք մեկնաբանությունների հեղինակի անունը հետագա օգտագործման համար

Եթե ​​ցանկանում եք փոխել մեկնաբանության հեղինակի անունը հետագա օգտագործման համար, խնդրում ենք փոխել Օգտագործողի անունը Word Options պատուհանում:

1. Բացված Word փաստաթղթում կտտացրեք Ֆայլ > Ընտրանքներ, Մեջ Բառի ընտրանքներ պատուհանը, համոզվեք, որ տեղակայված եք ընդհանուր էջանիշը փոխել անունը Աբոնենտի անունը տուփը, ինչպես ցույց է տրված սքրինշոթը ներքևում և վերջապես կտտացրեք OK կոճակը:

Այժմ դուք փոխել եք լռելյայն օգտագործողի անունը Word փաստաթղթում մեկնաբանությունների համար:


Փոխեք փաստաթղթի առկա մեկնաբանության հեղինակային անունը

Եթե ​​դուք ստացել եք բազմաթիվ մեկնաբանություններով փաստաթուղթ, և ցանկանում եք փոխել բոլոր մեկնաբանությունների հեղինակների անունները որոշակի անունով, ապա VBA- ի հետևյալ կոդը ձեզ լավություն կդարձնի:

1. Ընտրեք ընդգրկույթը պարունակում է մեկնաբանություններ կամ ընտրեք ամբողջ փաստաթուղթը, որը կփոխեք հեղինակի անունները ՝ սեղմելով կոճակը Ctrl + A ստեղները, սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:

VBA կոդ. Փոխեք փաստաթղթում առկա մեկնաբանությունների հեղինակային անունը

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. Սեղմեք F5 ծածկագիրը գործելու համար: Բացման մեջ Մեկնաբանություններ Հեղինակ Անուն երկխոսության տուփ, մուտքագրեք հեղինակի նոր անունը տեքստային տուփի մեջ և կտտացրեք այն OK կոճակը:

4. Հաջորդ բացմանը Մեկնաբանում է սկզբնատառերը երկխոսության տուփ, մուտքագրեք սկզբնատառերը, որքան անհրաժեշտ է, և կտտացրեք այն OK կոճակը:

Այնուհետև ընտրված տիրույթում բոլոր մեկնաբանությունների հեղինակների անունները անմիջապես փոխվում են նշվածի, ինչպես ցույց է տրված նկարում:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools for Word - Ավելի քան 100 առաջադեմ գործառույթներ Word- ի համար, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
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 · 5 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.