Re: [文件] 大量word保留檔名轉pdf
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
→
06/05 17:24, , 1F
06/05 17:24, 1F
→
06/05 17:24, , 2F
06/05 17:24, 2F
→
06/05 22:32, , 3F
06/05 22:32, 3F
→
06/05 22:33, , 4F
06/05 22:33, 4F
→
06/05 22:34, , 5F
06/05 22:34, 5F
→
06/06 20:36, , 6F
06/06 20:36, 6F
推
06/07 02:06, , 7F
06/07 02:06, 7F
→
06/07 02:07, , 8F
06/07 02:07, 8F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
