Question

我正在使用VB.net，我想将文件夹中的多个doc / docx转换为PDF格式，我该如何实现？任何帮助将不胜感激

Answer 1

Office 2010引入了一些基本的PDF功能。

Sub SaveDocsToPDF()

  Dim FSO As Object 'Scripting.FileSystemObject
  Dim oFolder As Object 'Scripting.Folder
  Dim oFile As Object 'Scripting.File
  Dim doc As Word.Document
  Dim sNewName As String

  Set FSO = CreateObject("Scripting.FileSystemObject")

  Set oFolder = FSO.GetFolder("C:\Docs")

  For Each oFile In oFolder.Files
    Set doc = Application.Documents.Open(oFile.Path)
    sNewName = FSO.BuildPath(oFolder.Path, oFile.Name & ".pdf")
    doc.SaveAs2 sNewName, Word.wdFormatPDF
    doc.Close False
  Next oFile

End Sub

但是，如果您需要合并文档，添加具有某种加密类型的密码，您将需要一个不同的解决方案

如何使用Visual Basic自动将多个doc / docx文件转换为pdf

1 个答案: