PowerShell 将Word文档批量转换成PDF文档

1、打开Windows PowerShell ISE

2、输入下面命令。

$dirPath           = 'C:\test'                                             # 要导成pdf的word文件所在目录地址

 

$wordToPdfLog      = Join-Path -Path $dirPath -ChildPath "wordToPdfLog.txt"        # 已导文件列表wordToPdfLog

 

$notWordFilelog    = Join-Path -Path $dirPath -ChildPath "notWordFilelog.txt"      # 目录下面不是word文件列表

 

$errorlog          = Join-Path -Path $dirPath -ChildPath "errorlog.txt"            # 错误日志

 

dir $dirPath | ForEach-Object {   

 

    WordConvertToPDF($_.FullName)   

 

}

 

# 将word文件转换成pdf，并生成日志

 

function WordConvertToPDF($wordfile){   

 

    $pdffile = GetPdffile($wordfile)

 

    try

 

    {     

 

        if(![String]::IsNullOrEmpty($pdffile) -and $wordfile.ToString().Contains('.doc')){           

 

            $wordApp = New-Object -ComObject Word.Application

 

            $document = $wordApp.Documents.Open($wordfile)

 

            $document.SaveAs([ref] $pdffile, [ref] 17)

 

            $document.Close()

 

            $wordApp.Quit()

 

            $wordfile + "`t>>>>>`t" + $pdffile >> $wordToPdfLog     # 将转换的成功的word文件写入日志

 

        }

 

        else

 

        {

 

            $wordfile >> $notWordFilelog   # 将非word文件写入日志

 

        }   

 

    }

 

    catch

 

    {

 

        $wordfile >> $errorlog    # 错误日志

 

    }

 

}

 

# 将.docx .doc转为.pdf

 

function GetPdffile($wordfile){

 

    $pdffile = ''

 

    if($wordfile.ToString().Contains('.docx'))

 

    {

 

        $pdffile = $wordfile.ToString().Replace('.docx','.pdf')

 

    }

 

    else

 

    {

 

        $pdffile = $wordfile.ToString().Replace('.doc','.pdf')

 

    }           

 

    return $pdffile

 

}

3、点击运行脚本或直接按F5，把test目录下面的word转换成pdf。

如果第一次运行报错，就再运行一次。