mở Word 2013 từ Excel 2013 nhưng không có tài liệu

Xin chào, trước đây tôi đã hỏi về việc mở word trong Excel vào ngày 30/7. Bây giờ tôi có thể làm điều đó nhưng tôi không thể mở tài liệu word bằng mã VBA. Tôi đã chọn Thư viện đối tượng Word 15.0 theo gợi ý.

Tôi đang chạy Office 365 (Cá nhân) trên Windows 7 và viết mã bằng Excel. Tôi mong đợi có thể mở tài liệu Word từ Excel. Cho đến nay tôi đã không thể làm được điều đó

Tôi đã xem cài đặt "Lưu" trong "Tùy chọn" và chèn Vị trí tệp mặc định trên ổ cứng cho cả Word & Excel. Tôi nghĩ tất cả tài liệu cũng đang được lưu vào tài khoản OneDrive của tôi!.

Tôi liên tục gặp lỗi thời gian chạy 5174 - Tôi đang sử dụng mã VBA sau - Lưu ý- nếu tôi nhận xét dòng bắt đầu bằng "sFn" Word opens , không có tài liệu nào được mở. Làm cách nào để giải quyết vấn đề này mà tôi gặp phải? Cảm ơn rất nhiều, tôi mong nhận được câu trả lời

Phụ mcr_Open_DOCX_Document()

Dim wdDOCX dưới dạng Word.Document, wdAPP dưới dạng Word.Application mới
Dim sFn dưới dạng chuỗi

sFn = ThisWorkbook.Path & "\My_document.docx"
Đặt wdDOCX = wdAPP.Documents.Open(Tên tệp:=sFn, ReadOnly:=True)

wdAPP.Visible = Đúng

wdAPP.Kích hoạt

'wdDOCX.Đóng LưuThay đổi:=wdDoNotSaveChanges
'wdAPP.Quit
Đặt wdDOCX = Không có gì
Đặt wdAPP = Không có gì
Kết thúc phụ

Trả lời:

Xin chào David,

Hãy thử một cái gì đó như thế này:

Phụ mcr_Open_DOCX_Document()

Dim wdDOCX Như Word.Document
Dim wdAPP Như Word.Application
Dim sFn dưới dạng chuỗi

Khi xảy ra lỗi Tiếp tục tiếp theo
Đặt wdAPP = Word.Application
Nếu Err.Number <> 0 thì
Err.Xóa
Đặt wdAPP = CreateObject("Word.Application")
Kết thúc nếu

sFn = ThisWorkbook.Path & "\My_document.docx"
Đặt wdDOCX = wdAPP.Documents.Open(Tên tệp:=sFn, ReadOnly:=True)

wdAPP.Visible = Đúng

wdAPP.Kích hoạt

'wdDOCX.Đóng LưuThay đổi:=wdDoNotSaveChanges
'wdAPP.Quit
Đặt wdDOCX = Không có gì
Đặt wdAPP = Không có gì
Kết thúc phụ