Xuất comments trong word đến excel

[KhoiSMC]

Kính gửi các bạn GPE,

Mình hay đọc tài liệu trong Microsoft Word và hay tạo các comments trong file word. Hiện nay có phát sinh muốn copy toàn bộ comment trong file word sang excel.

Tuy nhiên mình mới chỉ xuất được các comments sang word với code VBA như sau:
(xem file đính kèm: Schedule visit 10 to 18 March 2014 lgk.doc)

Sub ExportComments()    Dim s As String
    Dim cmt As Word.Comment
    Dim doc As Word.Document


    For Each cmt In ActiveDocument.Comments
        s = s & "Tên file: " & cmt.Parent & "; Ghi chú so: " & cmt.Initial & cmt.Index & "; Noi dung: " & cmt.Scope & cmt.Range.Text & vbCr
    Next


    Set doc = Documents.Add
    doc.Range.Text = s
    
End Sub

Và có kết quả như sau:

Tên file: Schedule visit 10 to 18 March 2014 lgk.doc; Ghi chú so: KLG1; Noi dung: Dominique Chiesura
Title-Hành động bởi: data KLG1
Title-Thời gian thực hiện: data KLG1
Title-Sử dụng cho công việc: data KLG1
Tên file: Schedule visit 10 to 18 March 2014 lgk.doc; Ghi chú so: KLG2; Noi dung: Singapore
Title-Hành động bởi: data KLG2
Title-Thời gian thực hiện: data KLG2
Title-Sử dụng cho công việc: data KLG2
Title-Kinh nghiệm: data KLG2

Mong muốn xuất sang excel thành dạng bảng như sau: (file đính kèm: Book2.xlsx)


Mong các bạn giúp đỡ.

Khoi

 

[KhoiSMC]

Hic, có phương án nào không các bạn nhỉ?

Mình nghĩ code được việt trong word khi chạy sẽ mở một file excel mới và lần lượt đọc các comments của word và đổ vào excel

For Each cmt In ActiveDocument.Comments
[/COLOR] s = s & "Tên file: " & cmt.Parent & "; Ghi chú so: " & cmt.Initial & cmt.Index & "; Noi dung: " & cmt.Scope & cmt.Range.Text & vbCr
Next

sau đó lại dùng vài thao tác thủ công để lọc ra tiêu đề và dữ liệu riêng ra vậy.

Mong các bạn có giải pháp triệt để hơn

Thanks
Khoi

 

[KhoiSMC]

Cám ơn bạn nmhung49,

đã có giải pháp tại
http://www.giaiphapexcel.com/forum/...nts-trong-Word-sang-Excel&p=563699#post563699

Thanks
Khoi