office 2013ページごとにPNG形式で出力するWordマクロ(Word 2013)
※ この情報はOffice 2013 カスタマー プレビュー版を元にしています。製品版では変更になる可能性がありますのでご注意ください。
Word 2013ではPageオブジェクトにSaveAsPNGメソッドが追加され、ページごとに画像(PNG形式)で保存できるようになりました。
"office2013 2021531-10-1"
Option Explicit
Public Sub Sample()
Dim p As Word.Page
Dim i As Long
With ActiveDocument.ActiveWindow.ActivePane
For i = 1 To .Pages.Count
.Pages(i).SaveAsPNG "C:\Test\MyPage(" & i & ").png"
Next
End With
MsgBox "処理が終了しました。", vbInformation + vbSystemModal
End Sub
下図は実際に出力した画像(透過PNG)です(元のサイズが4962 x 7017ピクセルもあったので縮小してありますが)。
"office2013 2021531-10-2"
Wordでポスターを作成してプリントする場合等で使える機能かもしれませんね。
私自身は使う機会が無さそうですが…。
