次の方法で共有

PageNumbers.StartingNumber プロパティ (Word)

  • [アーティクル]

開始番号、行番号、またはページ番号を設定または返します。 読み取り/書き込みが可能な Long です。

構文

式。 StartingNumber

expression 必須です。 'PageNumbers' オブジェクトを返す式。

注釈

行番号を画面に表示するには、印刷レイアウト表示に切り替える必要があります。

ページ番号に適用する場合、このプロパティが返すか、指定した HeaderFooter オブジェクトの開始ページ番号を設定します。 この番号は、 ShowFirstPageNumber プロパティの設定によって、最初のページ上に表示されない場合があります。 RestartNumberingAtSection プロパティを False に設定すると、ページの番号付けをするように する にはプロパティをオーバーライドできますは引き続き前のセクションから。

例

次の使用例は、新しい文書を作成し、脚注の開始番号を 10 に設定し、次にカーソル位置に脚注を挿入します。

Set myDoc = Documents.Add 
With myDoc.Footnotes 
 .StartingNumber = 10 
 .Add Range:=Selection.Range, Text:="Text for a footnote" 
End With

次の使用例は、作業中の文書に行番号を付けます。 開始番号を 5 に設定し、5 行ごとに行番号を表示し、文書の各セクションの先頭で番号を振り直します。

With ActiveDocument.PageSetup.LineNumbering 
 .Active = True 
 .StartingNumber = 5 
 .CountBy = 5 
 .RestartMode = wdRestartSection 
End With

次の使用例は、ページ番号のプロパティを設定し、次にページ番号を作業中の文書のヘッダーに挿入します。

With ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary).PageNumbers 
 .NumberStyle = wdPageNumberStyleArabic 
 .IncludeChapterNumber = False 
 .RestartNumberingAtSection = True 
 .StartingNumber = 5 
 .Add PageNumberAlignment:=wdAlignPageNumberCenter, _ 
 FirstPage:=True 
End With

関連項目

PageNumbers コレクション オブジェクト

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

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