• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Mở file DOC với Script

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4763
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 517 time

Mở file DOC với Script

Gửi bàigửi bởi truongphu » T.Hai 28/04/2008 9:31 am

Thủ thuật: Mở file DOC với Script
Tác giả: truongphu
Mô tả: Mở file DOC với Script. Trong loạt bài SCRIPT để làm VB6 phong phú hơn.
Lưu ý:
Hoạt động trên XP - SP2, các phiên bản Win khác chưa biết
Chưa Test trên các phiên bản MSWord. Có thể không như ý muốn


Mã: Chọn hết

  1. Dim objWord
  2. Private Sub Form_Load()
  3. Set objWord = CreateObject("Word.Application")
  4. objWord.ChangeFileOpenDirectory ("C:\")
  5. objWord.FileDialog(1).Title = "Select the files"
  6.  
  7. If objWord.FileDialog(1).Show = -1 Then
  8.     For Each objFile In objWord.FileDialog(1).SelectedItems
  9.         Set objDoc = objWord.Documents.Open(objFile)
  10.         objWord.Visible = True ' hoac = False thì tùy
  11.         'Làm cái gì Ðây thì làm
  12.     Next
  13. End If
  14. End Sub
  15.  
  16. Private Sub Form_Unload(Cancel As Integer)
  17. On Error Resume Next
  18. objWord.Quit
  19. End Sub


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách