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

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 Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • 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 ...
sylwadau (26)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yardımı oldu, teşekkürler.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd y sgript VBA yn berffaith i newid enw'r awdur i enw fy nghwmni. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma Macro wedi'i addasu a fydd yn caniatáu ichi nodi'r Enw yr hoffech ei ddisodli yn gyntaf rhag ofn bod sylwadau eraill nad ydych am eu haddasu.

Is NewidCommentAwdur()
'Diweddarwyd gan EntendOffice 20181112
Dim I Cyn Hir
Dim xOldName Fel Llinyn
Dim xNewName Fel Llinyn
Dim xShortName Fel Llinyn
Os Selection.Comments.Count = 0 Yna
MsgBox "Dim sylwadau yn eich dewis!", vbInformation, "KuTools for Word"
Is Allanfa
Gorffennwch Os
xOldName = InputBox ("Hen enw awdur?", "KuTools for Word")
xNewName = InputBox ("Enw awdur newydd?", "KuTools for Word")
xShortName = InputBox ("Llythrennau blaen awdur newydd?", "KuTools for Word")
Os yw xOldName="" Neu xNewName="" Neu xShortName="" Yna
MsgBox "Ni all enw/llythrennau blaen yr awdur fod yn wag.", vbInformation, "Kutools for Word"
Is Allanfa
Gorffennwch Os
Gyda Detholiad
I I = 1 I .Comments.Count
Os .Comments(I).Author = xOldName Yna
.Comments(I).Author = xNewName
.Comments(I).Initial = xShortName
Gorffennwch Os
Nesaf i
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, Olivier, rydych chi'n berson da!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
И salatt nеплох
Lleihawyd y sylw hwn gan y safonwr ar y wefan
La même en anglais

Is NewidCommentAwdur()
'Diweddarwyd 20220603
Mynegai Dim Cyhyd
Dim xOldName Fel Llinyn
Dim xNewName Fel Llinyn
Dim xShortName Fel Llinyn
Os Selection.Comments.Count = 0 Yna
MsgBox "Dim sylwadau yn eich dewis!", vbInformation, "KuTools for Word"
Is Allanfa
Gorffennwch Os
xOldName = InputBox ("Hen enw awdur?", "KuTools for Word")
xNewName = InputBox ("Enw awdur newydd?", "KuTools for Word")
xShortName = InputBox ("Llythrennau blaen awdur newydd?", "KuTools for Word")
Os yw xNewName="" Neu xShortName="" Yna
msgstr "Ni all enw/llythrennau blaen yr awdur fod yn wag.", vbInformation, "Kutools for Word"
Is Allanfa
Gorffennwch Os
Gyda Detholiad
Ar gyfer Mynegai = 1 I .Comments.Count
Os (.Comments(Index).Author = xOldName) Yna
.Comments(Index).Author = xNewName
.Comments(Index).Initial = xShortName
Gorffennwch Os
Mynegai Nesaf
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr am hyn. Yn gweithio'n berffaith. Rhybudd serch hynny; bydd yr holl sylwadau yn cael eu newid, waeth beth fo'r awduron lluosog. Rhywbeth nad oedd yn fy mhoeni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y tiwtorial. roedd yn help mawr i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn i'w weld yn gweithio ond ni allwn gadw'r ffeil heb iddo ddychwelyd at yr Awdur gwreiddiol.

Fy ateb i oedd newid yr estyniad .docx ar enw'r ffeil i .zip. Yna agorais y ffeil zip. Wedi pori i'r ffolder "word" ac yna wedi copïo'r ffeil "comments.xml". Agorwch y ffeil "comments.xml" mewn golygydd testun. Chwiliwch a disodli enw'r Awdur ac yna cadw'r ffeil. Copïwch a disodli'r hen "sylwadau.xml" gyda'r un newydd yn y ffeil .zip. Nawr newidiwch estyniad y ffeil yn ôl i .docx ac mae enw'r Awdur bellach wedi'i ddisodli yn y ffeil Word sydd wedi'i chadw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Newidiodd y sylwadau yn berffaith, OND nid fformatio, fel amlygu. A oes unrhyw beth y gellir ei addasu yn y VBA?VBAproblem@mt2015.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ddiolchgar iawn am y wybodaeth hon. Mae'r codau VBA yn gweithio'n berffaith ar ddogfen Dydw i ddim eisiau i'r awdur wybod pwy yw'r adolygydd eto. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, roedd y cod VBN yn gweithio fel hud!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newidiais fy enw defnyddiwr yn unol â'r cyfarwyddiadau, ond mae fy enw gwirioneddol yn dal i ymddangos yn y sylwadau. Rwy’n ceisio gwneud fy sylwadau’n ddienw tra’n cadw sylwadau’r adolygydd arall gyda’i enw arnynt.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd y cod VBA hwnnw'n gweithio fel swyn - diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio'n berffaith, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
traduction en français na ellir ei ddefnyddio. Domage!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae cyfieithu Ffrangeg yn gwneud y gwaith yn amhosibl, oherwydd gwahaniaethau bysellfwrdd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw ! Gwych! Diolch yn fawr ! 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour
Cette macro fonctionne bien, mais pour anonymizer 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.
Ateb Auriez-vous une?
Merci d'avance.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I'R RHAI SYDD EISIAU NEWID SYLWADAU RHAI SY'N UNIGOL I'R AWDURDOD Agorwch eich dogfen gydag archifydd (e.e. ZIP), ewch i ffolder word, dod o hyd i ffeil sylwadau.xml, echdynnu, agor gyda llyfr nodiadau, golygu yn unol â hynny (ctrl+H i ddod o hyd i'r awdur cyfredol a'i newid a blaenlythrennau i'r rhai yr ydych yn dymuno), arbed, cael y ffeil yn ôl i ffolder word yn y zip, et voila
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cette astuce ne fonctionne pas avec toutes les versions d'office
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych, gweithio'n dda iawn ... diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwybodaeth wych yn y post hwn a hefyd yn y sylwadau. Diolch i bawb.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae Microsoft yn enghraifft o Schrott. Je neuer die Versionen sind, umso weniger findet dyn marw 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
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir