sửa lỗi chạy Sub VBA không hoạt động từ office 2016 qua office 2013

[txnghids]

Chạy sub được nhưng nội dung file Word lại không hiển thị nội dung từ file excel !

 

[ptm0412]

Bạn sửa lại nội dung tiếng Việt có dấu đầy đủ và không viết tắt, hy vọng sau đó có người giải đáp cho bạn.

 

[batman1]

Trong code có

Replace:=wdReplaceAll

Do không có Option Explicit nên Excel coi wdReplaceAll là biến không được khai báo tường minh, vì thế ở thời điểm chào buổi sáng wdReplaceAll có giá trị 0. Tức có Replace:=0. Mà 0 là giá trị của wdReplaceNone (hằng số bên Word wdReplaceNone = 0), vì thế những giá trị tìm thấy không được thay thế.

Excel làm sao biết được wdReplaceAll chính là hằng số của Word, và nó có giá trị bao nhiêu. Vậy khai báo hằng số trước khi dùng thôi.

Const wdReplaceAll = 2

Hãy tập thói quen dùng Option Explicit.

 

[befaint]

sửa lỗi chạy Sub VBA không hoạt động từ office 2016 qua office 2013

.
Khi bạn khai báo đối tượng dạng 'late binding' mà không 'load' thư viện của nó thì khi dùng các tham số của đối tượng đó bắt buộc phải dùng ở dạng enum.

Set wordApp = CreateObject("Word.Application")

Nếu bạn 'load' thư viện của đối tượng thì dùng được liền.
Vậy nếu mình không nhớ enum thì có 1 phương án 'load' thư viện của nó lên là được.

Cụ thể, ở cửa sổ VBE, vào Tool/ References..., tìm và chọn mục Microsoft Word xx.x Object Library như hình, ấn OK.
Rồi chạy code cũ của bạn là được.