ListLevel オブジェクトの番号のスタイルを設定または返します。 WdListNumberStyle を読み取り/書き込み。
構文
式。 NumberStyle
expression 必須です。 'ListLevel' オブジェクトを表す変数。
解説
WdListNumberStyle の定数のいくつかを選択またはインストールされている言語サポート (たとえば、日本語) によっては使用できないがあります。
例
次の例では、[アウトライン] タブの 2 番目のテンプレートで、ローマ数字の大文字と小文字を交互に切り替えて見出しを作成します。
Set myTemp = ListGalleries(wdOutlineNumberGallery).ListTemplates(3)
For i = 1 to 9
If i Mod 2 = 0 Then
myTemp.ListLevels(i).NumberStyle = _
wdListNumberStyleUppercaseRoman
Else
myTemp.ListLevels(i).NumberStyle = _
wdListNumberStyleLowercaseRoman
End If
Next i
次の例では、作業中の文書に含まれる、すべてのアウトライン番号の付いた箇条書きの番号の種類を、英大文字の書式に変更します。
For Each lt In ActiveDocument.ListTemplates
For Each ll In lt.listlevels
ll.NumberStyle = wdListNumberStyleUppercaseLetter
Next ll
Next lt
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。