• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Chuyển nhiều file Word sang PDF

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Help] Chuyển nhiều file Word sang PDF
• Chuyển nhiều file Word sang PDF

• Chuyển nhiều file Word sang PDF

  jeck09nt > 24-04-19, 11:51 PM

  Gửi các Bạn,
  Mìn có sưu tầm 1 đoạn code chuyển 1 file Word thành PDF như sau : 
  

  Mã PHP:

  Sub PrintWordDoc(sFile As String, sSavePath As String)
    Dim oApp                  As Object
   Dim oDoc                  As Object
   Dim sFileName             As String
   Dim bAppAlreadyOpen       As Boolean

   bAppAlreadyOpen = True
   'Get an instance of word to work with
   'See if Word is already running
   On Error Resume Next
   Set oApp = GetObject(, "Word.Application")
   If Err.Number <> 0 Then
       'Launch a new instance of Word
       Err.Clear
       On Error GoTo Error_Handler
       Set oApp = CreateObject("Word.Application")
       bAppAlreadyOpen = False
   End If
   'Determine the Word doc filename without the path or extension
   sFileName = Right(sFile, Len(sFile) - InStrRev(sFile, "\"))
   sFileName = Left(sFileName, InStr(sFileName, ".") - 1)
   'Ensure the path has the final \
   If Right(sSavePath, 1) <> "\" Then sSavePath = sSavePath & "\"
   'Open the document
   Set oDoc = oApp.Documents.Open(sFile)
   'Print the document as a PDF
   oDoc.ExportAsFixedFormat sSavePath & sFileName & ".pdf", 17

Error_Handler_Exit:
   On Error Resume Next
   'Close the Document
   oDoc.Close False
   Set oDoc = Nothing
   If bAppAlreadyOpen = False Then oApp.Quit
   Set oApp = Nothing
   Exit Sub

Error_Handler:
   MsgBox "The following error has occured" & vbCrLf & vbCrLf & _
          "Error Number: " & Err.Number & vbCrLf & _
          "Error Source: PrintWordDoc" & vbCrLf & _
          "Error Description: " & Err.Description _
          , vbOKOnly + vbCritical, "An Error has Occured!"
   Resume Error_Handler_Exit
End Sub 


  
  Code này chỉ chuyển được 1 file Word duy nhất với tên file và đường dẫn cố định.
  Giờ mình muốn tạo lại code để có thể chuyển nhiều file Word cùng 1 lúc theo Demo nhưng chưa tìm được giải pháp đúng.
  Mình mong cá bạn có thể giúp mình sửa Code như thế nào.
  Trân trọng cám ơn !

• RE: Chuyển nhiều file Word sang PDF

  ongke0711 > 25-04-19, 12:58 PM

  - Đọc toàn bộ đường dẫn từng file Word cần in vô Mảng hoặc Collection.
  - Dùng vòng lặp duyệt từng phần tử trong mảng,  truyền tham số đường dẫn cho hàm PrintWordDoc()
  
  Để đọc file bạn tham khảo bài này: http://thuthuataccess.com/forum/thread-9580-page-2.html

• RE: Chuyển nhiều file Word sang PDF

  ledangvan > 25-04-19, 02:09 PM

  Anh thấy chẳng cần thiết đến mức phải tạo ra một đoạn Code để đổi Word thành PDF 
  
  Anh hay làm đơn giản nhất là mở cái File Word hay bất kể loại File gì ra ấn Ctrl + P rồi trong cửa sổ chọn máy in, thay vì in ra máy in bạn in ra PDF ghi lại tên của nó .... -> Thế là xong 

• RE: Chuyển nhiều file Word sang PDF

  jeck09nt > 25-04-19, 03:52 PM

  Dear ledangvan ,
  Phương án này thì trong Word đã có chức năng save as -> PDF rồi, những ở đây là mình cần thao tác 1 lần với nhiều file word cùng 1 lúc thì thời gian xử lý sẽ giảm.
  Xin cám ơn.
  Mình sẽ xem tiếp hướng dẫn của [b]ongke0711[/b]
• Bài trước Bài tiếp