批量将word转换为pdf

Sub 批量将word转换为pdf()

‘B列存放word文件名，D列存放word文件保存路径。

‘E列为要保存为pdf的文件名（带.pdf后缀），F列存放pdf保存路径(若跟word同文件夹，则将D列复制过来)

Dim n As Integer

Dim wdApp As Object, wdoc As Object

Dim Path As String, path2 As String

For n = 1 To Sheet1.Range(“e10000”).End(xlUp).Row

If Sheet1.Range(“d” & n).Value <> “” And Sheet1.Range(“e” & n).Value <> “” And Sheet1.Range(“f” & n).Value <> “” Then

Path = Sheet1.Range(“d” & n).Value

path2 = Sheet1.Range(“f” & n).Value

s = Sheet1.Range(“b” & n).Value

Set wdApp = CreateObject(“word.Application”)

wdApp.Visible = False

Set wdoc = wdApp.Documents.Open(Path & s)

pdfFilePath = path2 & Sheet1.Range(“e” & n).Value

    wdoc.ExportAsFixedFormat _

        OutputFileName:=pdfFilePath, _

        ExportFormat:=17, _

        OpenAfterExport:=False, _

        OptimizeFor:=0, _

        Range:=0

    wdoc.Close

   wdApp.Quit

End If

Next

End Sub