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

Ինչպես փոխել հեղինակի անունը 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 Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (26)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Yardımı oldu, teşekkürler.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA սկրիպտը հիանալի աշխատեց հեղինակի անունը իմ ընկերության անունով փոխելու համար: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ահա փոփոխված մակրո, որը թույլ կտա ձեզ նախ նշել այն անունը, որը ցանկանում եք փոխարինել, եթե կան այլ մեկնաբանություններ, որոնք դուք չեք ցանկանում փոփոխել:

Sub ChangeCommentAuthor()
«Թարմացվել է EntendOffice 20181112-ի կողմից
Dim I As Long
Dim xOldName որպես տող
Dim xNewName-ը որպես տող
Dim xShortName որպես տող
Եթե ​​Selection.Comments.Count = 0 Ապա
MsgBox «Ձեր ընտրության մեջ մեկնաբանություններ չկան», vbInformation, «KuTools for Word»
Ելք ենթ
Վերջ: Եթե
xOldName = InputBox («Հին հեղինակի անունը», «KuTools for Word»)
xNewName = InputBox («Նոր հեղինակի անուն?», «KuTools Word-ի համար»)
xShortName = InputBox («Նոր հեղինակի սկզբնատառերը», «KuTools Word-ի համար»)
Եթե ​​xOldName = "" Կամ xNewName = "" Կամ xShortName = "" Ապա
MsgBox «Հեղինակի անունը/սկզբնագրերը չեն կարող դատարկ լինել», vbInformation, «Kutools for Word»
Ելք ենթ
Վերջ: Եթե
Ընտրությամբ
For I = 1 To .Comments.Count
Եթե ​​.Comments(I).Author = xOldName Այնուհետեւ
.Comments(I).Author = xNewName
.Comments(I).Initial = xShortName
Վերջ: Եթե
Հաջորդը ես
Վերջ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, Օլիվիե, դու լավ մարդ ես:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
И салат неплох
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
La même en anglais

Sub ChangeCommentAuthor()
«Թարմացվել է 20220603
Dim Index As Long
Dim xOldName որպես տող
Dim xNewName-ը որպես տող
Dim xShortName որպես տող
Եթե ​​Selection.Comments.Count = 0 Ապա
MsgBox «Ձեր ընտրության մեջ մեկնաբանություններ չկան», vbInformation, «KuTools for Word»
Ելք ենթ
Վերջ: Եթե
xOldName = InputBox («Հին հեղինակի անունը», «KuTools for Word»)
xNewName = InputBox («Նոր հեղինակի անուն?», «KuTools Word-ի համար»)
xShortName = InputBox («Նոր հեղինակի սկզբնատառերը», «KuTools Word-ի համար»)
Եթե ​​xNewName = "" Կամ xShortName = "" Ապա
MsgBox «Հեղինակի անունը/սկզբնագրերը չեն կարող դատարկ լինել», vbInformation, «Kutools for Word»
Ելք ենթ
Վերջ: Եթե
Ընտրությամբ
Համար Index = 1 Դեպի .Comments.Count
Եթե ​​(.Comments(Index).Author = xOldName) Այնուհետեւ
.Comments(Index).Author = xNewName
.Comments(Index).Initial = xShortName
Վերջ: Եթե
Հաջորդ ինդեքս
Վերջ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն սրա համար: Կատարյալ աշխատում է: Այնուամենայնիվ, նախազգուշացում; բոլոր մեկնաբանությունները կփոխվեն՝ անկախ բազմաթիվ հեղինակներից: Մի բան, որն ինձ չէր անհանգստացնում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն ձեռնարկի համար: դա իսկապես օգնեց ինձ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Թվում էր, թե սա աշխատում էր, բայց ես չկարողացա պահպանել ֆայլը, եթե այն չվերադառնա սկզբնական Հեղինակին:

Իմ լուծումը ֆայլի անվան .docx ընդլայնումն էր .zip-ի: Հետո բացեցի zip ֆայլը։ Զննեց «word» թղթապանակը և այնուհետև պատճենեց «comments.xml» ֆայլը: Բացեք «comments.xml» ֆայլը տեքստային խմբագրիչում: Որոնեք և փոխարինեք հեղինակի անունը, այնուհետև պահեք ֆայլը: Պատճենեք և փոխարինեք հին «comments.xml»-ը նորով .zip ֆայլում: Այժմ փոխեք ֆայլի ընդլայնումը դեպի .docx, և հեղինակի անունը այժմ փոխարինվում է պահպանված Word ֆայլում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Այն հիանալի փոխեց մեկնաբանությունները, ԲԱՅՑ ոչ ֆորմատավորումը, ինչպես լուսաբանումը: Կա՞ ինչ կարող է փոփոխվել VBA-ում:VBAproblem@mt2015.com-ում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես շատ շնորհակալ եմ այս տեղեկատվության համար: VBA կոդերը հիանալի աշխատում են փաստաթղթի վրա, ես դեռ չեմ ուզում, որ գրողը իմանա, թե ով է գրախոսը: Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն, VBN կոդը մոգության պես աշխատեց։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փոխեցի իմ օգտանունը, ինչպես հրահանգվեց, բայց իմ իրական անունը դեռևս հայտնվում է մեկնաբանություններում: Ես փորձում եմ իմ մեկնաբանությունները դարձնել անանուն՝ պահպանելով մյուս գրախոսի մեկնաբանությունները՝ իրենց անունով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այդ VBA կոդը հմայքի պես աշխատեց. շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կատարյալ աշխատեց, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
traduction en français անօգտագործելի. Դումաժ!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ֆրանսերեն թարգմանությունը անհնարին է դարձնում աշխատանքը՝ ստեղնաշարի տարբերությունների պատճառով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վայ Հիանալի ! շատ շնորհակալություն ! 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ձեզ
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 լուծում.
Merci d'avance:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՆՐԱՆՑ ՀԱՄԱՐ, ՈՎՔԵՐ ՈՒԶՈՒՄ ԵՆ ՓՈԽԵԼ ՄԻԱՅՆ ՈՐՈՇ ՄԵԿՆԱԲԱՆՈՒԹՅՈՒՆՆԵՐԻ ՀԵՂԻՆԱԿՆԵՐԸ.բացեք ձեր փաստաթուղթը արխիվատորով (օրինակ՝ ZIP), գնացեք word թղթապանակ, գտեք comments.xml ֆայլը, հանեք, բացեք նոթատետրով, համապատասխանաբար խմբագրեք (ctrl+H՝ ընթացիկ հեղինակին գտնելու և փոխելու համար և սկզբնատառերը ձեր ուզածների համար), պահեք, ֆայլը վերադարձրեք word թղթապանակը zip-ում և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Cette astuce ne fonctionne pas avec toutes les versions d'office
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի, շատ լավ աշխատեց ... շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի տեղեկատվություն այս գրառման մեջ և նաև մեկնաբանություններում: Շնորհակալություն բոլորին.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Microsoft-ը դա Շրոտն է: 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
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր