ppt-to-pdf.ps

Get-ChildItem -Path 'D:\PATH' -Filter *pptx -Recurse |
ForEach-Object -Begin {
    $null = Add-Type -AssemblyName Microsoft.Office.Interop.powerpoint
    $SaveOption = [Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType]::ppSaveAsPDF
    $PowerPoint = New-Object -ComObject "PowerPoint.Application"
} -Process {
    $Presentation = $PowerPoint.Presentations.Open($_.FullName)
    $PdfNewName = $_.FullName -replace '\.pptx$','.pdf'
    $presentation.SaveAs($PdfNewName,$SaveOption)
    $presentation.close()
} -end{
    $powerpoint.quit()
    Stop-Process -name POWERPNT -Force
}