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

or

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

Newidiwch enw awdur y sylw presennol mewn 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.


Newidiwch enw awdur y sylw presennol mewn dogfen

Os ydych wedi derbyn dogfen gyda llawer o sylwadau, a'ch bod am newid enwau awduron pob sylw i un benodol, bydd y cod VBA canlynol yn ffafrio 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: Newidiwch enw awdur y 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 Cynhyrchedd Geiriau a Argymhellir

 

Kutools For Word - Mwy na 100 o Nodweddion Uwch ar gyfer Word, Arbedwch Eich Amser 50%

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
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 · 6 days ago
    Wow ! Awesome ! many thanks ! 
  • To post as a guest, your comment is unpublished.
    fondeur · 19 days ago
    French translation makes the work impossible, due to keyboard differences
  • To post as a guest, your comment is unpublished.
    Fondeur · 19 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.