delphi pdf 转换 html5,Delphi使用Word ActiveX将doc转换为pdf

我使用以下.vbs脚本执行此操作.如果你需要Delphi代码,那么转换就很容易了：

Const wdDoNotSaveChanges = 0

Const wdRevisionsViewFinal = 0

Const wdFormatPDF = 17

Dim arguments

Set arguments = WScript.Arguments

Function DOC2PDF(sDocFile)

Dim fso ' As FileSystemObject

Dim wdo ' As Word.Application

Dim wdoc ' As Word.Document

Dim wdocs ' As Word.Documents

Set fso = CreateObject("Scripting.FileSystemObject")

sDocFile = fso.GetAbsolutePathName(sDocFile)

sPdfFile = fso.GetParentFolderName(sDocFile) + "\" + fso.GetBaseName(sDocFile) + ".pdf"

Set wdo = CreateObject("Word.Application")

Set wdocs = wdo.Documents

WScript.Echo "opening: " + sDocFile

Set wdoc = wdocs.Open(sDocFile)

if fso.FileExists(sPdfFile) Then

fso.DeleteFile sPdfFile,True

End If

WScript.Echo "Converting to PDF: " + sPdfFile

Set wview = wdoc.ActiveWindow.View

wview.ShowRevisionsAndComments = False

wview.RevisionsView = wdRevisionsViewFinal

wdoc.SaveAs sPdfFile,wdFormatPDF

WScript.Echo "Conversion completed"

wdo.Quit wdDoNotSaveChanges

Set fso = Nothing

Set wdo = Nothing

End Function

If arguments.Count=1 Then

Call DOC2PDF(arguments.Unnamed.Item(0))

Else

WScript.Echo "Generates a PDF file from a Word document using Word PDF export."

WScript.Echo ""

WScript.Echo "Usage: doc2pdf.vbs "

WScript.Echo ""

End If

总结

以上是生活随笔为你收集整理的delphi pdf 转换 html5,Delphi使用Word ActiveX将doc转换为pdf的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。