Sut i newid enw'r awdur am sylw yn Word

Mae'r erthygl hon yn sôn am newid enw'r awdur diofyn ar gyfer sylwadau, neu newid enw'r awdur presennol mewn dogfen i un newydd. Rhowch gynnig ar y ddau ddull isod.

Newidiwch enw awdur y sylwadau i'w ddefnyddio yn y dyfodol

Newid enw awdur y sylwadau presennol ar gyfer dogfen

Newidiwch enw awdur y sylwadau i'w ddefnyddio yn y dyfodol

Os ydych chi am newid enw awdur y sylw i'w ddefnyddio yn y dyfodol, newidiwch yr enw Defnyddiwr yn ffenestr Dewisiadau Word.

1. Mewn dogfen Word a agorwyd, cliciwch Ffeil > Dewisiadau. Yn y Opsiynau Word ffenestr, gwnewch yn siŵr eich bod chi'n lleoli yn y cyffredinol tab, newid yr enw yn y Enw defnyddiwr blwch fel y dangosir isod screenshot, ac yn olaf cliciwch y OK botwm.

Nawr rydych chi wedi newid yr enw defnyddiwr diofyn ar gyfer sylwadau yn nogfen Word.

Newid enw awdur y sylwadau presennol ar gyfer dogfen

Os ydych wedi derbyn dogfen gyda llawer o sylwadau, a'ch bod am newid enwau awduron yr holl sylwadau i un penodol, bydd y cod VBA canlynol yn gwneud ffafr i chi.

1. Dewiswch yr ystod sy'n cynnwys sylwadau neu dewiswch y ddogfen gyfan byddwch chi'n newid enwau'r awdur trwy wasgu'r Ctrl + A allweddi, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Newid enw awdur y ddogfen sylwadau presennol

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. Gwasgwch y F5 allwedd i redeg y cod. Yn yr agoriad Sylwadau Enw Awdur blwch deialog, rhowch enw'r awdur newydd yn y blwch testun a chlicio ar y OK botwm.

4. Yn yr agoriad nesaf Sylwadau blaenlythrennau blwch deialog, nodwch y llythrennau cyntaf yn ôl yr angen a chliciwch ar y OK botwm.

Yna mae enwau awduron yr holl sylwadau mewn ystod ddethol yn cael eu newid i'r un penodedig yn syth fel y dangosir isod y llun.

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀

Lawrlwythiad Am Ddim     Prynu Nawr     Dysgwch fwy am Kutools ar gyfer Word

 

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

• 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
• 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
• ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
• 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
• ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools