Wordで1ページずつPDFで保存するマクロ

Pocket

Wordで作成した文書はPDFで保存することができます。
ページを指定することで、特定の部分だけをPDFにすることもできます。
1ページずつ指定すれば、各ページをPDFで保存することができますが、ページ数が増えるとなかなか面倒です。

これをマクロで実行させる方法を考えました。Word2007で確認しました。

Sub 各ページをPDFで保存()
    Const mydir = "D:\temp"
    Const myfile = "sagyo"
    Const pagefrom = 1
    Const pageto = 10
    Dim i As Long
    ChangeFileOpenDirectory mydir
    For i = pagefrom To pageto
        ActiveDocument.ExportAsFixedFormat _
        OutputFileName:=myfile & i & ".pdf", _
        ExportFormat:=wdExportFormatPDF, _
        Range:=wdExportFromTo, From:=i, To:=i
    Next i
End Sub

あらかじめ「Const」に値をセットしておきます。

mydir PDFを保存するフォルダ。
myfile PDFファイル名に付ける文字列。ここでは「sagyo」としたので「sagyo1.pdf」「sagyo2.pdf」...のようになります。
pagefrom 保存する最初のページ番号。ここでは1ページからとしました。
pageto 保存する最後のページ番号。ここでは10ページまでとしました。

このあたりは「InputBox」を使って入力してから実行させるように書くこともできますが長くなるので割愛します。

[ 2011年7月5日 | カテゴリー: Word | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報