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

วิธีเปลี่ยนชื่อผู้เขียนสำหรับความคิดเห็นใน Word

บทความนี้พูดถึงการเปลี่ยนชื่อผู้เขียนเริ่มต้นสำหรับความคิดเห็นหรือการเปลี่ยนชื่อผู้เขียนที่มีอยู่ในเอกสารเป็นชื่อใหม่ โปรดลองสองวิธีด้านล่างนี้

เปลี่ยนชื่อผู้เขียนความคิดเห็นเพื่อใช้ในอนาคต

เปลี่ยนชื่อผู้เขียนความคิดเห็นที่มีอยู่ของเอกสาร


เปลี่ยนชื่อผู้เขียนความคิดเห็นเพื่อใช้ในอนาคต

หากคุณต้องการเปลี่ยนชื่อผู้เขียนความคิดเห็นเพื่อใช้ในอนาคตโปรดเปลี่ยนชื่อผู้ใช้ในหน้าต่างตัวเลือก Word

1. ในเอกสาร Word ที่เปิดอยู่ให้คลิก เนื้อไม่มีมัน > Options. ใน ตัวเลือกของ ตรวจสอบให้แน่ใจว่าคุณกำลังค้นหาในไฟล์ General เปลี่ยนชื่อในไฟล์ ชื่อผู้ใช้ กล่องด้านล่างภาพหน้าจอที่แสดงและสุดท้ายคลิกไฟล์ 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 ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (26)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Yardımı oldu, teşekkürler.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สคริปต์ VBA ทำงานได้อย่างสมบูรณ์เพื่อเปลี่ยนชื่อผู้เขียนเป็นชื่อบริษัทของฉัน ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่คือมาโครที่แก้ไขแล้วซึ่งจะช่วยให้คุณระบุชื่อที่คุณต้องการแทนที่ก่อนในกรณีที่มีความคิดเห็นอื่น ๆ ที่คุณไม่ต้องการแก้ไข

การเปลี่ยนแปลงย่อยCommentAuthor()
'อัปเดตโดย EntendOffice 20181112
หรี่ฉันนาน
Dim xOldName เป็นสตริง
Dim xNewName เป็นสตริง
Dim xShortName เป็นสตริง
ถ้า Selection.Comments.Count = 0 แล้ว
MsgBox "ไม่มีความคิดเห็นในการเลือกของคุณ!", vbInformation, "KuTools for Word"
ออกจาก Sub
End If
xOldName = InputBox("ชื่อผู้แต่งเก่า?", "KuTools for Word")
xNewName = InputBox("ชื่อผู้แต่งใหม่?", "KuTools for Word")
xShortName = InputBox("ชื่อย่อของผู้เขียนใหม่?", "KuTools for Word")
ถ้า xOldName = "" หรือ xNewName = "" หรือ xShortName = "" แล้ว
MsgBox "ต้องระบุชื่อผู้แต่ง/ชื่อย่อ", vbInformation, "Kutools for Word"
ออกจาก Sub
End If
ด้วยการคัดเลือก
สำหรับฉัน = 1 ถึง .Comments.Count
ถ้า .Comments(I).Author = xOldName แล้ว
.ความคิดเห็น(I).ผู้เขียน = xNewName
.Comments(I).Initial = xShortName
End If
ถัดไปฉัน
จบด้วย
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ Olivier คุณเป็นคนดี!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
И салат неплох
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ลา même en anglais

การเปลี่ยนแปลงย่อยCommentAuthor()
'อัปเดต 20220603
ดัชนี Dim นาน
Dim xOldName เป็นสตริง
Dim xNewName เป็นสตริง
Dim xShortName เป็นสตริง
ถ้า Selection.Comments.Count = 0 แล้ว
MsgBox "ไม่มีความคิดเห็นในการเลือกของคุณ!", vbInformation, "KuTools for Word"
ออกจาก Sub
End If
xOldName = InputBox("ชื่อผู้แต่งเก่า?", "KuTools for Word")
xNewName = InputBox("ชื่อผู้แต่งใหม่?", "KuTools for Word")
xShortName = InputBox("ชื่อย่อของผู้เขียนใหม่?", "KuTools for Word")
ถ้า xNewName = "" หรือ xShortName = "" แล้ว
MsgBox "ต้องระบุชื่อผู้แต่ง/ชื่อย่อ", vbInformation, "Kutools for Word"
ออกจาก Sub
End If
ด้วยการคัดเลือก
สำหรับดัชนี = 1 ถึง .Comments.Count
ถ้า (.Comments(Index).Author = xOldName) แล้ว
.ความคิดเห็น(ดัชนี).Author = xNewName
.Comments(ดัชนี).Initial = xShortName
End If
ดัชนีถัดไป
จบด้วย
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับสิ่งนี้ ทำงานได้อย่างสมบูรณ์แบบ คำเตือนแม้ว่า; ความคิดเห็นทั้งหมดจะมีการเปลี่ยนแปลงโดยไม่คำนึงถึงผู้เขียนหลายคน สิ่งที่ไม่ได้รบกวนฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับการกวดวิชา มันช่วยฉันจริงๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดูเหมือนว่าจะใช้งานได้ แต่ฉันไม่สามารถบันทึกไฟล์ได้โดยไม่ต้องเปลี่ยนกลับเป็นผู้เขียนดั้งเดิม

วิธีแก้ปัญหาของฉันคือเปลี่ยนนามสกุล .docx ในชื่อไฟล์เป็น .zip จากนั้นฉันก็เปิดไฟล์ zip เรียกดูโฟลเดอร์ "word" แล้วคัดลอกไฟล์ "comments.xml" เปิดไฟล์ "comments.xml" ในโปรแกรมแก้ไขข้อความ ทำการค้นหาและแทนที่ชื่อผู้แต่งแล้วบันทึกไฟล์ คัดลอกและแทนที่ "comments.xml" เก่าด้วยอันใหม่ในไฟล์ .zip ตอนนี้เปลี่ยนนามสกุลไฟล์กลับเป็น .docx และตอนนี้ชื่อผู้แต่งถูกแทนที่ในไฟล์ Word ที่บันทึกไว้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ! มันเปลี่ยนความคิดเห็นได้อย่างสมบูรณ์ แต่ไม่ได้จัดรูปแบบเหมือนเน้น มีอะไรที่สามารถแก้ไขได้ใน VBA?VBAproblem@mt2015.com
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันรู้สึกขอบคุณมากสำหรับข้อมูลนี้ รหัส VBA ทำงานได้อย่างสมบูรณ์แบบในเอกสาร ฉันไม่ต้องการให้ผู้เขียนรู้ว่าใครเป็นผู้ตรวจสอบ ขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก รหัส VBN ทำงานเหมือนเวทมนตร์!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันเปลี่ยนชื่อผู้ใช้ตามคำแนะนำ แต่ชื่อจริงของฉันยังคงปรากฏในความคิดเห็น ฉันกำลังพยายามทำให้ความคิดเห็นของฉันเป็นแบบนิรนาม ในขณะที่เก็บความคิดเห็นของผู้วิจารณ์คนอื่นด้วยชื่อของพวกเขา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัส VBA นั้นใช้งานได้อย่างมีเสน่ห์ - ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำงานได้อย่างสมบูรณ์ ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
traduction en français ใช้ไม่ได้ ดูหมิ่น !
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
การแปลภาษาฝรั่งเศสทำให้งานเป็นไปไม่ได้เนื่องจากความแตกต่างของแป้นพิมพ์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ว้าว ! สุดยอด ! ขอบคุณมาก ! 
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Bonjour
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, et voila
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Cette astuce ne fonctionne pas avec toutes les รุ่น d'office
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เยี่ยมมากทำงานได้ดี ... ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ข้อมูลที่ยอดเยี่ยมในโพสต์นี้และในความคิดเห็น ขอบคุณทุกคน.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Microsoft ist schon ein Schrott. Je neuer ตาย 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 ของ Microschrott
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ