ลบชื่อคนคอมเม้นต์ในไฟล์เวิร์ด remove ms word comment Author

ในไฟล์เอกสารทางวิชาการ ไฟล์ ms word เมื่อเราส่งให้ผู้เชี่ยวชาญตรวจสอบแล้ว ท่านๆผู้เชี่ยวชาญจะทำการคอมเม้นต์ลงในเอกสาร  เพื่อให้ผู้แต่งไปทำการแก้ไขปรับปรุง  แต่ทางผู้เขี่ยนหรือผู้แต่งไม่ต้องการให้แสดงชื่อผู้ตรวจที่คอมเม้นไว้ ให้คงไว้แค่คำคอมเม้นต์เฉยๆ เลยอยากเปลี่ยนชื่อผู้คอมเม้นต์เป็นอย่างอื่น ทำได้ดังนี้

 1.เปิดไฟล์เวิร์ดที่มีคอมเม้นต์ 

2.เลือกทั้งหมด crtl+ A

3.กด Alt+F11 เพื่อเปิด ms virsual basic 

4.กดเปิด insert ตามด้วย Module จะมีหน้าต่างขี้นมา 

5.คัดลอกสคริปไปวางในหน้าต่างที่เปิดอยุ่

////////////////////////////

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




/////////////////////




6.กด F5 เพื่อให้โปรแกรมทำงาน จะมีหน้าต่างขี้นมา 1 อันให้ใส่ชื่อคนคอมเม้นต์ที่เราต้องการค้นหาแล้วกด ok

7.ใส่ชื่อที่เราอยากเอาไปแทนชื่อเดิม เช่น xxx  แล้วกด ok

 8.ผลที่ได้ ชื่อคนคอมเม้นต์เดิมจะกลายเป็น xxx