改ページまたはセクション区切り後の脚注または文末脚注の番号付け方法を返または設定します。 WdNumberingRule の読み取り/書き込み。
構文
式。 NumberingRule
expression 必須です。 'Footnotes' コレクションを表す変数。
例
次の使用例は、脚注番号をセクションごとに付け直すように最初のセクションで設定されている場合、各ページごとに番号を付け直すように設定します。
Set myRange = ActiveDocument.Sections(1).Range
If myRange.Footnotes.NumberingRule = wdRestartSection Then
myRange.Footnotes.NumberingRule = wdRestartPage
End If
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。