| |
段落番号？ 段落書式？
ツールバーでいう[書式]の[箇条書きと段落番号]の設定のことでしょうか？
VBEの右上の[質問を入力してください]欄に、
「ListString」「ListValue」「ListParagraphs」
「ParagraphFormat」「Lists」「ListFormat」
「ListGalleries」と各々入力してみて下さい。
段落番号または行頭文字の付いた箇条書き段落に関するヘルプが表示されます。
以下に、御質問に沿えそうな使用例をヘルプから抜き書きしましたので、
参考にしてみて下さい。
Sub 段落数値文字列()
Rem 選択範囲の最初の段落の数値と
Rem その値を表す文字列の両方を表示します。
v = Selection.Range.ListFormat.ListValue
lstring = Selection.Range.ListFormat.ListString
MsgBox "数値 " & v & " は、文字列 [" & lstring & "] で表されます"
End Sub
Sub 各文字スタイル()
Rem 選択範囲内の各文字のスタイルを表示します｡
Dim c As Variant
For Each c In Selection.Characters
MsgBox "Style: " & c.Style
MsgBox "ParagraphFormat.Style: " & c.ParagraphFormat.Style
Next c
End Sub
Sub 箇条書き強調()
Rem 作業中の文書で箇条書き書式が設定された段落のコレクションに、
Rem 強調表示を設定します。
For Each para In ActiveDocument.ListParagraphs
para.Range.HighlightColorIndex = wdTurquoise
Next para
End Sub
Sub 箇条書き背景着色()
Rem 1 番目の文書で、段落番号または行頭文字を
Rem 使った箇条書きが設定されている各段落の背景を黄色にします。
For Each numpar In Documents(1).ListParagraphs
numpar.Shading.BackgroundPatternColorIndex = wdYellow
Next numpar
End Sub
Sub 箇条書き二重線()
Rem 次の使用例は、作業中の文書で
Rem 2 番目の箇条書きの段落すべてに、二重下線を引きます。
For Each mypara In ActiveDocument.Lists(2).ListParagraphs
mypara.Range.Underline = wdUnderlineDouble
Next mypara
End Sub
|
|
H.C.Shinopy
- 03/3/8(土) 11:22 -
