16

PowerShell 小工具 - DOC 轉 DOCX/PDF 批次轉換

 2 years ago
source link: https://blog.darkthread.net/blog/ps-batch-conv-doc-to-docx/
Go to the source link to view the article. You can view the picture content, updated content and better typesetting reading experience. If the link is broken, please click the button below to view the snapshot at that time.
neoserver,ios ssh client
DOC 轉 DOCX/PDF 批次轉換-黑暗執行緒

去年分享過將 XLS 批次轉成 XLSX 的 PowerShell 小工具，有讀者問到如果是 DOC 轉 DOCX 要怎麼做？

PowerShell 小工具原理是啟動 Windows 上安裝的 Excel 軟體，控制它逐一讀檔，另存新檔，最後再關閉。若想處理 Word 就把 Excel 改成 Word，讀檔、存檔改用 Word 的 API 就可以。有 PowerShell、C# 或 VB 開發經驗，也會查微軟文件的程式老手，用膝蓋都能完成，但對沒相關經驗的人，渴望成功卻不知從何下手，或是一改就壞但無法理解錯在哪裡的無力感，我倒挺能體會。原因是這一兩年跨足自己不熟的 Arduino/ESP 開發板跟 C 語言，重新從菜鳥當起，有類似的體驗。

當然，練好基本功，按步就班是學習所有技能的正途，越級打怪之人也自知理虧，身為老鳥狂酸「先去唸好 XXX 吧 」、「YYY 網路教學很多，請自己爬文，乖」、「ZZZ 是基本常識耶」則是過頭了。對於沒相關經驗卻有動力想完成某些東西，態度也良好的朋友，我通常站在鼓勵的立場(自己走過類似的路，算同理心吧)，目標過於崇高，或與能力落差過大，旁人愛莫能助；但若只是舉手之勞，我也想不出不幫的道理。

扯遠了。既然 DOC 轉 DOCX 也在某些人的許願清單上，將上次的程式小改幾行，DOC 轉 DOCX 批次轉換小工具就完成了! 希望它能讓地球某個角落的文件苦手早點下班。

Param(
    [parameter(Mandatory=$true, ValueFromRemainingArguments=$true)]
    [string]
    $docPaths, 
    [parameter(ValueFromPipelineByPropertyName=$true)]
    [switch][bool]
    $replace
)
$ErrorActionPreference = "STOP"
try 
{
    $doc = New-Object -ComObject Word.Application
    $doc.Visible = $true # 顯示 UI，方便使用者了解處理進度、輸入密碼等
    Get-Item $docPaths | ForEach-Object {
        $path = $_.FullName
        Write-Host "開啟 $path..."
        try {
            $doc.Documents.Open($path) | Out-Null
            $savePath =  $savePath = [System.IO.Path]::ChangeExtension($path, ".docx")
            # https://docs.microsoft.com/en-us/office/vba/api/word.wdsaveformat
            # WdSaveFormat.wdFormatXMLDocument = 12
            $doc.ActiveDocument.SaveAs2($savePath, 12)
            $doc.ActiveDocument.Close()
            if ($replace) {
                Remove-Item $path                
            }
        }
        catch {
            Write-Host "發生錯誤 - $path" -ForegroundColor Red
        }
    }
}
finally 
{
    $doc.Quit()
}

實測成功。

[2022-02-12 更新]

貼文後再聽到有人許願，那可以轉 PDF 嗎？很簡單，SaveAs2 的參數由 12 改成 17 就可以了，如何知道是 17？可查微軟文件，裡面有不同格式的對映值。

我知道要求沒寫程式的朋友馬上搞懂這些也太難了，既然對我還是舉手之勞，就隨手附上 Convert-Doc2Pdf.ps1：(來源檔不限 doc，也可以是 docx )

Param(
    [parameter(Mandatory=$true, ValueFromRemainingArguments=$true)]
    [string]
    $docPaths, 
    [parameter(ValueFromPipelineByPropertyName=$true)]
    [switch][bool]
    $replace
)
$ErrorActionPreference = "STOP"
try 
{
    $doc = New-Object -ComObject Word.Application
    $doc.Visible = $true # 顯示 UI，方便使用者了解處理進度、輸入密碼等
    Get-Item $docPaths | ForEach-Object {
        $path = $_.FullName
        Write-Host "開啟 $path..."
        try {
            $doc.Documents.Open($path) | Out-Null
            $savePath = [System.IO.Path]::ChangeExtension($path, ".pdf")
            # https://docs.microsoft.com/en-us/office/vba/api/word.wdsaveformat
            # WdSaveFormat.wdFormatPDF = 17
            $doc.ActiveDocument.SaveAs2($savePath, 17)
            $doc.ActiveDocument.Close()
            if ($replace) {
                Remove-Item $path                
            }
        }
        catch {
            Write-Host "發生錯誤 - $path" -ForegroundColor Red
        }
    }
}
finally 
{
    $doc.Quit()
}

簡單實測 OK，有需要的朋友請自取使用，並鼓勵大家認真考慮花點時間學會 PowerShell，讓你的人生變彩色。


report

Recommend

About Joyk


Aggregate valuable and interesting links.
Joyk means Joy of geeK