จะแปลงความคิดเห็นเป็นเชิงอรรถหรืออ้างอิงท้ายเรื่องใน Microsoft Word ได้อย่างไร?

สมมติว่ามีความคิดเห็นหลายรายการในเอกสาร Word ของคุณคุณจะแปลงความคิดเห็นเหล่านี้ทั้งหมดเป็นเชิงอรรถหรืออ้างอิงท้ายเรื่องพร้อมกันได้อย่างไร บทความนี้แสดงวิธีการ VBA เพื่อให้บรรลุ

แปลงความคิดเห็นเป็นเชิงอรรถหรืออ้างอิงท้ายเรื่องด้วยรหัส VBA

แปลงความคิดเห็นเป็นเชิงอรรถหรืออ้างอิงท้ายเรื่องด้วยรหัส VBA

รหัส VBA ด้านล่างสามารถช่วยให้คุณแปลงความคิดเห็นทั้งหมดในเอกสารปัจจุบันเป็นเชิงอรรถหรืออ้างอิงท้ายเรื่องได้อย่างรวดเร็ว กรุณาดำเนินการดังนี้

1. เปิดเอกสารที่มีข้อคิดเห็นที่คุณจะแปลงเป็นเชิงอรรถหรืออ้างอิงท้ายเรื่องกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: แปลงความคิดเห็นเป็นเชิงอรรถ:

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

รหัส VBA: แปลงความคิดเห็นเป็นอ้างอิงท้ายเรื่อง:

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

จากนั้นความคิดเห็นทั้งหมดในเอกสารปัจจุบันจะถูกแปลงเป็นเชิงอรรถหรืออ้างอิงท้ายเรื่องทันทีตามรหัส VBA ที่คุณใช้