ゼルダは、Word文書のページ数が奇数の場合、その文書の最後に空白ページを自動的に追加できるようにしたいと考えています。

彼女は、Adobeで結合され、両面印刷用のPDFとして作成される多数の個別のドキュメントを作成するため、これを実現したいと考えています。

目的の追加ページを取得するために試みることができる2つのことがあります。最初の(そしておそらく最も簡単な)のは、余分なページを追加するフィールドコードをドキュメントの最後に追加することですが、ドキュメントに奇数のページがある場合に限ります。フィールドコードは次のとおりです:

{ IF { =MOD({ PAGE \* ARABIC}, 2)} = 0 "" "<page break>" }

これは、ドキュメントの最後の最後の段落の直後に配置する必要があります。 Ctrl + F9を使用してフィールド中括弧を作成し、<改ページ>が表示されている場所で、Ctrl + Enterを押して実際に改ページを追加する必要があります。フィールドが出現するページが奇数ページ番号である場合にのみ、フィールドは改ページを追加します。このアプローチ(フィールドを使用)は、このページのhttp://word.mvps.org [WordMVPサイト]で説明されているアプローチと非常によく似ています。

http://wordmvp.com/FAQs/TblsFldsFms/InsEvnPgEndChap.htm

もう1つの方法は、マクロを使用してページを追加することです。これは派手なマクロである必要はありません。次のような単純なことをします:

Sub AddPageIfOddNumberOfPages()

If ActiveDocument.BuiltInDocumentProperties("number of pages") Mod 2 <> 0 Then     Selection.EndKey Unit:=wdStory     Selection.InsertBreak Type:=wdSectionBreakNextPage End If End Sub

もちろん、このマクロは、ドキュメントを初めて印刷する直前に1回だけ実行する必要があります。

注:

このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(3843)は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス(Word 2007)用のこのヒントのバージョンを見つけることができます。以降)ここ: