• 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

Chuyển file DOC sang file PDF

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
T7
Thành viên danh dự
Thành viên danh dự
Bài viết: 415
Ngày tham gia: T.Năm 24/05/2007 8:19 pm
Đến từ: Long Xuyên - An Giang
Been thanked: 12 time
Liên hệ:

Chuyển file DOC sang file PDF

Gửi bàigửi bởi T7 » CN 06/04/2008 3:37 pm

Thủ thuật: Chuyển file DOC sang file PDF
Tác giả: Sưu tầm
Mô tả: Giúp bạn chuyển file Doc (Word) sang file PDF (Adobe Acrobat Reader). Chú ý: Cần có Adobe Acrobat Distiller & MS Word cài trong máy :D


Mã: Chọn hết

  1. Option Explicit
  2.  
  3. Function DOC2PDF(sDocFile, sPDFFile)
  4. On Error GoTo err:
  5. Dim FSO
  6. Dim objWord
  7. Dim objWordDoc
  8. Dim objWordDocs
  9. Dim sPrevPrinter  As String
  10. Dim objDistiller
  11. Dim sTempFile, sFolder
  12.  
  13. Set objDistiller = CreateObject("PDFDistiller.PDFDistiller")
  14. Set FSO = CreateObject("Scripting.FileSystemObject")
  15. Set objWord = CreateObject("Word.Application")
  16. Set objWordDocs = objWord.Documents
  17.  
  18. sTempFile = App.Path & "\Temp"
  19. sDocFile = FSO.GetAbsolutePathName(sDocFile)
  20. sFolder = FSO.GetParentFolderName(sDocFile)
  21.  
  22. If Len(sPDFFile) = 0 Then
  23.   sPDFFile = FSO.GetBaseName(sDocFile) + ".pdf"
  24. End If
  25.  
  26. If Len(FSO.GetParentFolderName(sPDFFile)) = 0 Then
  27.   sPDFFile = sFolder + "\" + sPDFFile
  28. End If
  29.  
  30. sPrevPrinter = objWord.ActivePrinter
  31.  
  32. objWord.ActivePrinter = "Acrobat Distiller"
  33.  
  34. Set objWordDoc = objWordDocs.Open(sDocFile)
  35.  
  36. objWord.ActiveDocument.PrintOut False, , , sTempFile
  37. objWordDoc.Close
  38. objWord.ActivePrinter = sPrevPrinter
  39. objWord.Quit
  40. Set objWord = Nothing
  41.  
  42. objDistiller.FileToPDF sTempFile, sPDFFile, "Print"
  43. Set objDistiller = Nothing
  44. FSO.DeleteFile (sTempFile)
  45.  
  46. Set FSO = Nothing
  47.  
  48. MsgBox "PDF File Created", vbInformation
  49. Exit Function
  50.  
  51. err:
  52. MsgBox err.Description, vbExclamation
  53. End Function


Cách dùng:

Mã: Chọn hết

  1. DOC2PDF "Path của File doc cần chuyển", "Path của File pdf xuất ra"


While (i <= you) i++;

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Chuyển file DOC sang file PDF

Gửi bàigửi bởi QuangHoa » T.Năm 10/04/2008 2:52 pm

Đọc bài này em thấy có ý tưởng là làm cái Add-in cho Adobe Acrobat Distiller hoặc MS Word nhưng nghĩ lại thì thấy có vấn đề cần anh T7 "tư vấn" là làm thế nào để kiểm tra xem hai phần mềm Adobe Acrobat Distiller và MS Word đã cài vào máy hay chưa.
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
T7
Thành viên danh dự
Thành viên danh dự
Bài viết: 415
Ngày tham gia: T.Năm 24/05/2007 8:19 pm
Đến từ: Long Xuyên - An Giang
Been thanked: 12 time
Liên hệ:

Re: Chuyển file DOC sang file PDF

Gửi bàigửi bởi T7 » T.Năm 10/04/2008 4:03 pm

Nếu dòng code này báo lỗi thì Adobe Acrobat Distiller chưa cài vào máy:

Mã: Chọn hết

  1. Set objDistiller = CreateObject("PDFDistiller.PDFDistiller")


Còn nếu word chưa cài váo máy sẽ báo lỗi ở đoạn này:

Mã: Chọn hết

  1. Set objWord = CreateObject("Word.Application")
While (i <= you) i++;

Hình đại diện của người dùng
deptraithongminh
Thành viên tích cực
Thành viên tích cực
Bài viết: 143
Ngày tham gia: T.Ba 02/07/2013 4:58 pm
Đến từ: TPHCM
Has thanked: 17 time
Been thanked: 1 time

Re: Chuyển file DOC sang file PDF

Gửi bàigửi bởi deptraithongminh » T.Ba 20/08/2013 7:07 pm

thế nếu em làm ngược lại thì sao ?
anh T7 chỉ em với !
chì em luôn cách chuyển file word sang file .xps và ngược lại nha anh !

Hình đại diện của người dùng
ducpkh
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 511
Ngày tham gia: T.Sáu 24/08/2012 12:28 pm
Đến từ: ADAFA
Has thanked: 9 time
Been thanked: 27 time

Re: Chuyển file DOC sang file PDF

Gửi bàigửi bởi ducpkh » T.Sáu 13/09/2013 8:09 pm

Bạn đã chuyển được file Word sang Pdf chưa. Mình dùng code trên mà chưa làm được

Hình đại diện của người dùng
ducpkh
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 511
Ngày tham gia: T.Sáu 24/08/2012 12:28 pm
Đến từ: ADAFA
Has thanked: 9 time
Been thanked: 27 time

Re: Chuyển file DOC sang file PDF

Gửi bàigửi bởi ducpkh » CN 15/09/2013 11:30 pm

T7 cho mình hỏi. Máy mình đã cài Adobe Acrobat Distiller rồi nhưng khi chạy báo lỗi "there is a printer error" là sao bạn? Trong Reference của Project mình đã add Acrobat Distiller rồi. Mong bạn chỉ giúp?


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.2 khách