Pages.Add メソッド (発行元)

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

構文

式。Add (Count, After, DuplicateObjectsOnPage, AddHyperlinkToWebNavBar)

式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 のサポートおよびフィードバックを参照してください。

  • Last updated on