PowerShell: Word belgelerini PDF belgelerine dönüştürün (Toplu)

Sık sık Microsoft word belgelerini pdf'ye dönüştürmek zorunda kalıyorum. Peki ya dönüştürülecek gerçekten çok fazla belgeniz varsa, örneğin 1000 veya daha fazla belgeniz varsa? Her belgeyi ayrı ayrı açıp kaydet'e tıklar mısınız? Kötü bir fikir. Bu blog yazısında size tek bir komutla birden fazla belgeyi dönüştürmenizi sağlayan bir PowerShell işlevi vereceğim. Bu prosedüre otomasyon ;-) denir. Hadi dalalım.

Amaç

Daha önce de belirttiğimiz gibi, birden fazla Microsoft Word belgesini pdf'ye dönüştürmek istiyoruz. ConvertWordTo-PDF cmdlet'im tam olarak bunu yapıyor.

Serin. Bu arada, hedef parametresini de atlayabilirsiniz. Pdf dosyaları daha sonra kaynak klasöre kaydedilecektir.

İndirmek

PowerShell modülünü indirmek için bu bağlantıya tıklayın.

Kod

function ConvertWordTo-PDF {

<# 
 
.SYNOPSIS 

ConvertTo-PDF converts Microsoft Word documents to PDF files. 
 
.DESCRIPTION 

The cmdlet queries the given source folder including sub-folders to find *.docx and *.doc files, 
converts all found files and saves them as pdf in the Destination folder. After completition, the Destination
folder with the newly created PDF files will be opened with Windows Explorer.
 
.PARAMETER SourceFolder
 
Mandatory. Enter the source folder of your Microsoft Word documents.
 
.PARAMETER DestinationFolder

Optional. Enter the Destination folder to save the created PDF documents. If you omit this parameter, pdf files will
be saved in the Source Folder.

.EXAMPLE 

ConvertWordTo-PDF -SourceFolder C:\Temp -DestinationFolder C:\Temp1
ConvertWordTo-PDF -SourceFolder C:\temp
 
.NOTES 
Author: Patrick Gruenauer | Microsoft PowerShell MVP [2018-2021] 
Web: https://sid-500.com 
 
#>

[CmdletBinding()]

param
(
 
[Parameter (Mandatory=$true,Position=0)]
[String]
$SourceFolder,
 
[Parameter (Position=1)]
[String]
$DestinationFolder = $SourceFolder

)

    $i = 0

    $word = New-Object -ComObject word.application 
    $FormatPDF = 17
    $word.visible = $false 
    $types = '*.docx','*.doc'

    If ((Test-Path $SourceFolder) -eq $false) {
    
    throw "Error. Source Folder $SourceFolder not found." } 

    If ((Test-Path $DestinationFolder) -eq $false) {
    
    throw "Error. Destination Folder $DestinationFolder not found." } 
    
    $files = Get-ChildItem -Path $SourceFolder -Include $Types -Recurse -ErrorAction Stop
    ''
    Write-Warning "Converting Files to PDF ..."
    ''
    
    foreach ($f in $files) {

        $path = $DestinationFolder + '\' + $f.Name.Substring(0,($f.Name.LastIndexOf('.')))
        $doc = $word.documents.open($f.FullName) 
        $doc.saveas($path,$FormatPDF) 
        $doc.close()
        Write-Output "$($f.Name)"
        $i++

    }
    ''
    Write-Output "$i file(s) converted."
    Start-Sleep -Seconds 2 
    Invoke-Item $DestinationFolder
    $word.Quit()
    
    
}

ConvertWordTo-PDF nasıl uygulanır

Yukarıdaki kodu PowerShell ISE'ye (ise.exe) veya seçtiğiniz bir düzenleyiciye kopyalayın ve kodu çalıştırın. Daha sonra komutu yazın ve onunla eğlenin.

İşlevin kalıcı olarak kullanılabilir olmasını istiyorsanız ve böylece PowerShell'i her başlattığınızda işlevin kullanılabilir olmasını istiyorsanız C:\Program Files\WindowsPowerShell\Modules konumunda bir klasör oluşturmanız gerekir. Klasörü ConvertWordTo-PDF olarak adlandırın. Daha sonra psm1 dosyasını bu klasöre kopyalayın.

Kredi

Bana ilham veren ve bu işlevi yaratma fikrini ortaya çıkaran aşağıdaki bağlantının yazarına teşekkür ederim.

https://www.der-windows-papst.de/2018/05/17/powershell-word-convert-to-pdf-doc-docx-pdf/powershell-convert-word-to-pdf/

İlgili makaleler