$sourceFolder = "E:\DocumenteWord" $destFolder = "E:\DocumentePDF" if (!(Test-Path $destFolder)) { New-Item -ItemType Directory -Path $destFolder | Out-Null } $wdFormatPDF = 17 $word = New-Object -ComObject Word.Application $word.Visible = $false $extensions = @("*.doc", "*.docx") foreach ($ext in $extensions) { foreach ($file in Get-ChildItem -Path $sourceFolder -Filter $ext) { try { $pdfPath = Join-Path $destFolder ($file.BaseName + ".pdf") Write-Host "Convertim: $($file.FullName) -> $pdfPath" $doc = $word.Documents.Open($file.FullName, $false, $true) # Conversie cu string .NET pur $doc.SaveAs([string]$pdfPath, [ref]$wdFormatPDF) $doc.Close($false) } catch { Write-Host "Eroare la fișierul: $($file.FullName) - $($_.Exception.Message)" -ForegroundColor Red } } } $word.Quit() [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null Write-Host "Conversia a fost finalizată!"
Cum să convertești rapid zeci de documente Word în PDF folosind PowerShell / Как быстро конвертировать десятки документов Word в PDF с помощью PowerShell
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий