Mở tài liệu Word
Macro Word VBA này sẽ mở một tài liệu từ từ thư mục được chỉ định:
Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'thay đổi thành đường dẫn tệp của bạn If Dir (strFile) "" Sau đó "Trước tiên, chúng tôi kiểm tra xem tài liệu có tồn tại hay không. vị trí đã cho Documents.Open strFile End If End Sub
Bây giờ bạn có thể tương tác với tài liệu mới mở bằng Đối tượng ActiveDocument. Mã này sẽ thêm một số văn bản vào tài liệu.
ActiveDocument.Range (0, 0) .Text = "Thêm một số văn bản"
Mở tài liệu thành biến
Bạn cũng có thể mở tài liệu Word, ngay lập tức gán tài liệu đó cho một biến:
Sub OpenDoc () Dim strFile As String Dim oDoc as Document strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" "thay đổi thành đường dẫn tệp của bạn If Dir (strFile)" "Sau đó" Trước tiên, chúng tôi kiểm tra xem tài liệu tồn tại ở tất cả tại vị trí nhất định Đặt oDoc = Documents.Open strFile End If End Sub
Cho phép bạn tương tác với tài liệu thông qua biến oDoc .:
oDoc.Range (0, 0) .Text = "Thêm một số văn bản"
Nói chung, cách tốt nhất là mở cho một biến, giúp bạn có thể dễ dàng tham khảo tài liệu tại bất kỳ thời điểm nào.
Mở tài liệu Word từ Excel
Thủ tục VBA này sẽ mở Tài liệu Word từ một chương trình MS Office khác (ví dụ: Excel):
Sub OpenDocFromExcel () Dim wordapp Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" Set wordapp = CreateObject ("word.Application") wordapp.Documents.Open strFile wordapp.Vible = True End Phụ
