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. Excel

    IEサポート終了でVBAマクロはどうなるの?(2)

    ※下記情報は2021年5月時点の情報で、今後状況が変わっていく可能性が…

  2. アイコン一覧

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

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

  3. Office関連

    PDFのしおり数を取得するVBAマクロ

    「VBA Acrobat しおり数」といったキーワード検索でのアクセス…

  4. Office関連

    格子状にガイドを追加するPowerPointマクロ

    前回の記事で、PowerPoint 2013で追加されたGuide、G…

  5. Office関連

    Google スライドで新規プレゼンテーションを作成するVBAマクロ

    ここ数日PowerPointのマクロに加え、Google Apps S…

  6. アイコン一覧

    Office 2013 アイコン一覧(I)

    ・Office 2013 アイコン一覧 NUM…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP