Re: [文件] 大量word保留檔名轉pdf

[Linkey (Linkey)]

Refer:
https://msdn.microsoft.com/zh-tw/library/office/ff840681(v=office.15).aspx

修改了一點範例，測試大量列印轉存OK，字型的部分再麻煩你測試
記得先把 Microsoft Print to PDF 設定成預設印表機

Sub PrintAlltoPDF()
    '請修改路徑到工作目錄下，附檔名依檔案修改
    adoc = Dir("D:\Base\Download\docx\*.docx")
    Do While adoc <> ""
        Application.PrintOut FileName:=adoc, OutputFileName:= _
        Replace(adoc,".docx", ".pdf")
        adoc = Dir()
    Loop
End Sub

※ 引述《incandescent (隨便)》之銘言：
: 軟體: MS office 2013
: 版本:2013
: 至少有200個檔案
: 而且有特殊字型，之前用word內建的另存新檔轉為pdf都會缺字，
: 要用虛擬列印pdf才能保留字型。
: 想請教一下
: 怎麼一口氣沿用檔名，全部轉為pdf，且不缺字的方法。
: 感激不盡！

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.251.238.1
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1465118181.A.B61.html
→ Linkey: Sorry,Microsoft Print to PDF 是 Windows 10 Only
→ Linkey: 沒測試過其他虛擬印表機是否OK
→ azteckcc: 理論上，用2007以上，另存pdf時，選項裡把 iso-19005-1
→ azteckcc: 的選項勾選就可嵌入字型，其他虛擬印表機如pdfcreator
→ azteckcc: 有選項可設定之
→ incandescent: 謝謝L跟A大  我後來選用pdfcreator 成功了
推 incandescent: 選檔案 按右鍵有一個convert to pdf的選項
→ incandescent: 可以一次選好幾個 一起轉