Microsoft Publisher 批次另存圖片的方法

MS Publisher 沒有內建批次將所有的頁面存成圖片檔的功能，所以只好自己寫成巨集。

下列的程式碼會將所有的頁面存成 C:\下的 [文件名]_[頁碼].png ，若要改成其它格式式，只要將.png 改成您要的格式即可(如.gif, .bmp)，輸出的解析度是 300dpi。

程式碼如下所示:

Sub SaveAsImages()

'解析度總共有4種選項可供使用
'pbPictureResolutionDefault => 預設值
'pbPictureResolutionWeb_96dpi => 96dpi
'pbPictureResolutionDesktopPrint_150dpi => 150dpi
'pbPictureResolutionCommercialPrint_300dpi => 300dpi

Dim docName As String
docName = ActiveDocument.Name

For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).SaveAsPicture "c:\" & docName & "_" & i & ".png", pbPictureResolutionCommercialPrint_300dpi
Next

End Sub