วิธีการส่งออกความคิดเห็นจาก Excel ไปยัง Word

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

ส่งออกความคิดเห็นจากแผ่นงานปัจจุบันไปยัง Word ด้วยรหัส VBA

ส่งออกความคิดเห็นจากแผ่นงานปัจจุบันไปยัง Word ด้วยรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ส่งออกความคิดเห็นจากแผ่นงานปัจจุบันไปยัง Word

Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
    wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
    wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และความคิดเห็นทั้งหมดในแผ่นงานที่ใช้งานได้ถูกส่งออกไปยังเอกสาร Word ใหม่พร้อมที่อยู่เซลล์ ดูภาพหน้าจอ:

บทความที่เกี่ยวข้อง:

วิธีแทรกความคิดเห็นไปยังหลายเซลล์ใน Excel อย่างรวดเร็ว

จะเปลี่ยนรูปร่างของกล่องความคิดเห็นใน Excel ได้อย่างไร?

วิธีเปลี่ยนรูปแบบความคิดเห็นทั้งหมดในเซลล์ใน Excel

จะเปลี่ยนชื่อผู้เขียนความคิดเห็นทั้งหมดใน Excel ได้อย่างไร?