Enfocus Community

Code: Select all

#
# Script:  		docToPdf, Save Word files as pdf
#
# Last edit: 	30-07-2018 by Sander, Drukkerij Wihabo
#
# Sources: 		https://stackoverflow.com/questions/16534292/basic-powershell-batch-convert-word-docx-to-pdf
#

param(
[string]$1 = "",     # Switch %1: the absolute path of the input file/job folder
[string]$2 = "",     # Switch %2: the absolute path of the output file/job folder (which does not yet exist) including filename and extension
[string]$3 = ""      # Switch %3: the absolute path of a folder (which does exist) in which output or temp files may be placed
)


<# test 
$3 = "d:\tempOut"
$1 = "d:\temp"
$log = "d:\temp\log.log"
Add-Content -path $log -Value $1
Add-Content -path $log -Value $2
Add-Content -path $log -Value $3
#>

$word = New-Object -ComObject Word.Application


Get-ChildItem -Path $1 -Filter *.doc? | ForEach-Object {

    $doc = $word.Documents.Open($_.FullName)

    $outPdf = "$3\$($_.BaseName).pdf"
    # Add-Content -path $log -Value $outPdf
    $doc.SaveAs([ref] $outPdf, [ref] 17)

    $doc.Close()
}


# Quit Word The Scripting Guy way, just to be sure we can remove all temp files.
$word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($word)
Remove-Variable Word

EXIT 0