Office関連

ページごとにPNG形式で出力するWordマクロ(Word 2013)

※ この情報はOffice 2013 カスタマー プレビュー版を元にしています。製品版では変更になる可能性がありますのでご注意ください。

Word 2013ではPageオブジェクトにSaveAsPNGメソッドが追加され、ページごとに画像(PNG形式)で保存できるようになりました。

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ピクセルもあったので縮小してありますが)。

Wordでポスターを作成してプリントする場合等で使える機能かもしれませんね。
私自身は使う機会が無さそうですが…。

関連記事

  1. Office関連

    Office 2016でACROBATタブが表示されない!?(Acrobat DC)

    2015/10/16 追記:先日公開されたアップデート「15.00…

  2. Office関連

    モヤさまのショウ君にいろいろ喋らせるVBAマクロ(2)

    前回に引き続き、HOYAサービス株式会社様が公開されている「Voice…

  3. Office アドイン

    YO OFFICE(Yeoman)を使ってOffice アドインのひな型を作成する方法

    Webアプリのひな型を一発で作ってくれる便利ツール「Yeoman」には…

  4. Office関連

    OneNoteのノート名を列挙するマクロ

    今回はOneNoteのノート名を列挙するマクロを紹介します。O…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP