Tác giả: truongphu
Mô tả: Nhằm đáp ứng những thắc mắc liên quan đến việc ứng dụng MS Word với VB, tôi mở đề mục nầy để các bạn tiện tra cứu và trao đổi.
* Nhằm đáp ứng những thắc mắc liên quan đến việc ứng dụng MS Word với VB, tôi mở đề mục nầy để các bạn tiện tra cứu và trao đổi
* Đề mục sẽ thường xuyên được cập nhật: gom góp từ các bài cũ, viết bài mới, các câu hỏi và trả lời mà các bạn cùng đóng góp
Mong các bạn ủng hộ
1- Thao tác cơ bản: Tạo mới một file Word và mở một file Word có sẵn
Trong hầu hết các bài trong đề mục nầy, project sẽ được add references MS Word 11.0 (hay 10.0) Object Library (MSWORD.OLB), mong các bạn chú ý
A- Tạo mới một file Word
Mã: Chọn hết
- Private Sub Form_Load()
- 'Kho'i tao biên U'ng dung Word. Ðây là biên phai có
- Dim WordApp As New Word.Application
- 'Kho'i tao biên file
- Dim DocApp As Document
- 'Gán biên file là u'ng dung Word tao mo'i
- Set DocApp = WordApp.Documents.Add
- 'Lu'u file doc mo'i tao
- DocApp.SaveAs ("C:\Test.doc")
- 'Thoát các biên
- DocApp.Close
- WordApp.Quit
- MsgBox "Ðã làm file Doc"
- End Sub
B- Mở một file Word có sẵn
Mã: Chọn hết
- Private Sub Command1_Click()
- 'Kho'i tao biên U'ng dung Word. Ðây là biên phai có
- Dim WordApp As New Word.Application
- 'Kho'i tao biên file
- Dim DocApp As Document
- 'Gán biên file là u'ng dung Word mo' file
- Set DocApp = WordApp.Documents.Open("C:\Test.doc")
- 'Hiên u'ng dung
- WordApp.Visible = True
- End Sub