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関連

    スライドショーをループ再生設定するPowerPointマクロ

    PowerPointでスライドショーを作成するとき、投影した後流しっぱ…

  2. Office関連

    Office製品のフィードバック先まとめ

    WordやExcel等のOffice製品を使っていて、「UIのこの日本…

  3. Office関連

    WordやExcelでミニ ツール バーを非表示(無効)にする。

    WordやExcel、PowerPointといったOffice製品で文…

  4. Office アドイン

    作業ウィンドウのアプリをWord 2013にも対応させる。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP