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

Word 2013とWord 2010のダミー文章の比較前のページ

JavaScriptでExcel 2013用作業ウィンドウのアプリを作成する。(2)次のページ

関連記事

  1. アイコン一覧

    Office 365アイコン(imageMso)一覧(I)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  2. Office関連

    [Office 2016]コマンド検索即実行、便利な「Tell Me」機能

    ※ 下記情報はOffice 2016 Preview版を元にしています…

  3. Office関連

    マクロでリボンを最小化する。

    mougの回答用に書いたコードです。忘れないうちにメモ。・…

  4. Office関連

    [VBA]桁を揃えてDebug.Printする。

    @CallMeKoheiさんのブログの記事に「Excel VBA イミ…

  5. Office関連

    メールを閉じたときに指定したフォルダに移動するOutlookマクロ

    先日Twitterで @akashi_keirin さんが下記ツイート…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP