Mở tài liệu Word trong môi trường Excel

CHÀO,

Tôi muốn mở tài liệu Word trong khi vẫn đang ở môi trường Excel. Ý tôi là, tôi có trang tính 1 nơi tôi làm việc và bất cứ khi nào tôi muốn cập nhật hồ sơ nhân viên này, tôi nhấp vào nút lệnh hoặc nhập tên vào ô và tệp sẽ mở để xem hoặc cập nhật.

Xin hãy giúp đỡ.

tiểu vương

Trả lời:

CHÀO,

Cảm ơn sự giúp đỡ.

Chỉ để hiểu thêm, nếu đoạn mã này dùng để gắn với nút (viết văn bản) thì tại sao chúng ta lại phải viết "openworddoc()"? Tôi nghĩ chúng ta viết như vậy khi cần khai báo một cú pháp tổng quát.

Amir

CHÀO,

Tôi không hiểu câu hỏi đó, nếu gắn mã vào nút trên bảng tính thì đơn giản chỉ cần như sau:

Private Sub CommandButton1_Click()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Đặt wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Documents\test.docx")
End Sub

Trả lời:

CHÀO,

Gắn đoạn mã này vào một nút. Lưu ý rằng để đoạn mã này hoạt động, bạn cần thiết lập tham chiếu trong trình soạn thảo VB.

Công cụ | Tham khảo - Cuộn xuống và chọn 'Thư viện đối tượng Microsoft Word 12.0'.

Sub OpenWordDoc()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Đặt wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Documents\test.docx")
End Sub