次の方法で共有


Pages.Add メソッド (Publisher)

指定した Pages オブジェクトに新しい Page オブジェクトを追加し、新しい Page オブジェクトを返します。

構文

追加 (CountAfterDuplicateObjectsOnPageAddHyperlinkToWebNavBar)

Pages オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Count 必須 長整数型 (Long) 追加する新しいページのページ数を指定します。
After 必須 長整数型 (Long) 新しいページを追加する位置の前にあるページのページ インデックスを指定します。 この引数をゼロに設定すると、文書の先頭に新しいページが追加されます。
DuplicateObjectsOnPage 省略可能 長整数型 (Long) 新しいページにコピーするオブジェクトのコピー元となるページのページ インデックスを指定します。 この引数を省略すると、新しいページは空白になります。 既定値は -1 です。ページを複製しません。
AddHyperlinkToWebNavBar 省略可能 Boolean 新しいページへのリンクを既存のページの自動ナビゲーション バーに追加するかどうかを指定します。 True の場合、新しいページへのリンクは、既存のページの自動ナビゲーション バーにのみ追加されます。

False の場合、新しいページへのリンクは、既存のページの自動ナビゲーション バーや今後追加される新しいページには追加されません。 既定値は False です。

戻り値

Page

次の例では、文書の最初のページの後に 4 つの新しいページを追加し、最初のページから新しいページにすべてのオブジェクトをコピーします。

Dim pgNew As Page 
 
Set pgNew = ActiveDocument.Pages _ 
 .Add(Count:=4, After:=1, DuplicateObjectsOnPage:=1)

次の例では、2 つの新しいページを文書に追加して、これら 2 つのページ、 AddHyperlinkToWebNavBar パラメーターを True に設定を示します。 これらの 2 つへのリンクを指定する既存のページの自動ナビゲーション バーと、将来的に追加された新しいページを追加します。

Another page is then added to the publication, and the AddHyperlinkToWebNavBar is omitted. つまり、新しく追加されたページの IncludePageOnNewWebNavigationBars プロパティは False であり、このページへのリンクは既存のページの自動ナビゲーション バーには含まれません。

Dim thePage As page 
Dim thePage2 As page 
 
Set thePage = ActiveDocument.Pages.Add(Count:=2, _ 
 After:=4, AddHyperlinkToWebNavBar:=True) 
 
Set thePage2 = ActiveDocument.Pages.Add(Count:=1, After:=6)

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。