Tôi đã mất công giải thích cho bạn mà bạn vẫn cố tình không đính kèm tập tin. Thôi thì đã trót, bạn tự chỉnh sửa thích hợp, đưa code sau vào code đã có của mình. Tôi kết thúc tại đây.
Sub test()
Const wdSeparateByTabs = 1
Dim WordApp As Object, doc As Object...