ListFormat.ApplyOutlineNumberDefault メソッド (Word)
指定した ListFormat オブジェクトの範囲内の段落に既定のアウトライン番号のパターンを追加します。
構文
式。 ApplyOutlineNumberDefault
( _DefaultListBehavior_
)
式 が必要です。 'ListFormat' オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
DefaultListBehavior | 省略可能 | バリアント型 (Variant) | Microsoft Word を使用して新しい Web 指向の形式のリストを適切に表示するかを指定する値を設定します。 以下の定数のいずれかをすることができます: wdWord8ListBehavior (Microsoft Word 97/98年と互換性のある書式を使用します) または wdWord9ListBehavior (Web 指向形式を採用)。 互換性の理由から、既定の定数 wdWord8ListBehavior 、ですが、リストで新しいプロシージャが強化された Web 指向の書式設定のインデントを基準と複数レベルを活用する wdWord9ListBehavior を使用する必要があります。 |
注釈
アウトライン番号の付いた箇条書きが既に段落に設定されている場合、段落番号と書式は削除されます。 このメソッドは、段落に設定されている組み込みの見出しスタイルは削除しません。
例
次の使用例は、選択範囲の段落にアウトラインの箇条書き書式を設定します。 選択範囲が既にアウトライン番号の付いた箇条書きである場合、番号と書式を削除します。
Selection.Range.ListFormat.ApplyOutlineNumberDefault
次の使用例は、myRange に作業中の文書の 3 ~ 6 番目の段落範囲を格納し、この範囲に箇条書き書式が含まれているかどうかを確認します。 箇条書き書式が含まれていない場合は、既定のアウトラインの書式が設定されます。
Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
Start:= myDoc.Paragraphs(3).Range.Start, _
End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
myRange.ListFormat.ApplyOutlineNumberDefault
End If
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。