ListFormat.ApplyBulletDefault メソッド (Word)

  • [アーティクル]

行頭文字と指定した ListFormat オブジェクトの範囲内の段落に書式を追加します。

構文

式。 ApplyBulletDefault( _DefaultListBehavior_ )

式 が必要です。 'ListFormat' オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
DefaultListBehavior 省略可能 バリアント型 (Variant) Microsoft Word を使用して新しい Web 指向の形式のリストを適切に表示するかを指定する値を設定します。 以下の定数のいずれかをすることができます: wdWord8ListBehavior (Microsoft Word 97/98年と互換性のある書式を使用します) または wdWord9ListBehavior (Web 指向形式を採用)。 互換性の理由から、既定の定数 wdWord8ListBehavior 、ですが、リストで新しいプロシージャが強化された Web 指向の書式設定のインデントを基準と複数レベルを活用する wdWord9ListBehavior を使用する必要があります。

注釈

この段落に行頭文字が既に設定されている場合、行頭文字と書式が削除されます。

例

次の使用例は、選択範囲の段落に行頭文字と書式を追加します。 選択範囲の段落に行頭文字が既に設定されている場合、行頭文字と書式を削除します。

Selection.Range.ListFormat.ApplyBulletDefault

次の使用例は、MyDoc.doc の 2 番目の段落に行頭文字と書式を追加するか、2 番目の段落から行頭文字と書式を削除します。

Documents("MyDoc.doc").Paragraphs(2).Range.ListFormat _ 
 .ApplyBulletDefault

次の使用例は、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.ApplyBulletDefault 
End If

関連項目

ListFormat オブジェクト

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

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