mp4096 · April 28, 2016 10:56 · Apr 28, 2016
diff --git a/ppt2pdf.ps1 b/ppt2pdf.ps1
@@ -0,0 +1,32 @@
+# Batch convert all .ppt/.pptx files encountered in folder and all its subfolders
+# The produced PDF files are stored in the invocation folder
+#
+# Adapted from http://stackoverflow.com/questions/16534292/basic-powershell-batch-convert-word-docx-to-pdf
+# Thanks to MFT, takabanana, ComFreek
+#
+# If PowerShell exits with an error, check if unsigned scripts are allowed in your system.
+# You can allow them by calling PowerShell as an Administrator and typing
+# ```
+# Set-ExecutionPolicy Unrestricted
+# ```
+# Get invocation path
+$curr_path = Split-Path -parent $MyInvocation.MyCommand.Path
+# Create a PowerPoint object
+$ppt_app = New-Object -ComObject PowerPoint.Application
+# Get all objects of type .ppt? in $curr_path and its subfolders
+Get-ChildItem -Path $curr_path -Recurse -Filter *.ppt? | ForEach-Object {
+    Write-Host "Processing" $_.FullName "..."
+    # Open it in PowerPoint
+    $document = $ppt_app.Presentations.Open($_.FullName)
+    # Create a name for the PDF document; they are stored in the invocation folder!
+    # If you want them to be created locally in the folders containing the source PowerPoint file, replace $curr_path with $_.DirectoryName
+    $pdf_filename = "$($curr_path)\$($_.BaseName).pdf"
+    # Save as PDF -- 17 is the literal value of `wdFormatPDF`
+    $opt= [Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType]::ppSaveAsPDF
+    $document.SaveAs($pdf_filename, $opt)
+    # Close PowerPoint file
+    $document.Close()
+}
+# Exit and release the PowerPoint object
+$ppt_app.Quit()
+[System.Runtime.Interopservices.Marshal]::ReleaseComObject($ppt_app)
No results found