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

    Windows 10 Technical PreviewにOffice XPをインストールしてみまし…

    「最新ビルドを詳細レビュー! Windows 10 Technical…

  2. Office アドイン

    [Office用アプリ]第一回 Apps for Office 勉強会で登壇しました。

    19日(金)に第一回 Apps for Office 勉強会が東京で開…

  3. Office関連

    Office 365 APIをVBAから呼び出す(1)

    2015年4月に公開されたOffice Teamのブログ記事「Toda…

  4. Office関連

    Excelのアイデア機能でグラフやピボットグラフを一発作成

    Insider版のExcelに「アイデア」機能が追加されました。…

  5. Office関連

    インストールされているアプリケーション一覧を取得するVBAマクロ

    端末にインストールされているアプリケーション名を調べる必要があったので…

  6. Office関連

    ルビ(ふりがな)を一括設定するWordマクロ(改良版)

    これまで当ブログではルビを設定するWordマクロについて、いくつか記事…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP