ในไฟล์เอกสารทางวิชาการ ไฟล์ ms word เมื่อเราส่งให้ผู้เชี่ยวชาญตรวจสอบแล้ว ท่านๆผู้เชี่ยวชาญจะทำการคอมเม้นต์ลงในเอกสาร เพื่อให้ผู้แต่งไปทำการแก้ไขปรับปรุง แต่ทางผู้เขี่ยนหรือผู้แต่งไม่ต้องการให้แสดงชื่อผู้ตรวจที่คอมเม้นไว้ ให้คงไว้แค่คำคอมเม้นต์เฉยๆ เลยอยากเปลี่ยนชื่อผู้คอมเม้นต์เป็นอย่างอื่น ทำได้ดังนี้
1.เปิดไฟล์เวิร์ดที่มีคอมเม้นต์
2.เลือกทั้งหมด crtl+ A
3.กด Alt+F11 เพื่อเปิด ms virsual basic
4.กดเปิด insert ตามด้วย Module จะมีหน้าต่างขี้นมา
5.คัดลอกสคริปไปวางในหน้าต่างที่เปิดอยุ่
////////////////////////////
Sub ChangeCommentAuthor()
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
/////////////////////
6.กด F5 เพื่อให้โปรแกรมทำงาน จะมีหน้าต่างขี้นมา 1 อันให้ใส่ชื่อคนคอมเม้นต์ที่เราต้องการค้นหาแล้วกด ok
7.ใส่ชื่อที่เราอยากเอาไปแทนชื่อเดิม เช่น xxx แล้วกด ok
8.ผลที่ได้ ชื่อคนคอมเม้นต์เดิมจะกลายเป็น xxx
