マクロについて

マクロの記録で
ワードで一重下線をつけるときに
wdUnderlineSingle
となるのが
wdUnderlineWords
となっていたことがあるのですが、この違いは何ですか？
教えてください！

No.1 ベストアンサー 回答者： noname#20378 回答日時： 2006/05/03 20:39

うーんまともな情報ではないですが

http://msdn2.microsoft.com/ja-jp/library/microso …

wdUnderlineSingleA single line. default.

一本線。デフォルト。

wdUnderlineWordsUnderline individual words only.

それに対し
「それぞれの単語にのみ下線を引きます」ってことは『スペースとかには引かない』んだと思います

No.2 回答者： imogasi 回答日時： 2006/05/03 23:44

ActiveDocument.Paragraphs(1).Range.Select

With Selection
.Font.Underline = wdUnderlineSingle
.Font.Size = 10
.Font.Bold = True
.TypeText Text:="京都市左京区 梅ヶ枝町" & vbCrLf
End With
'-----
ActiveDocument.Paragraphs(2).Range.Select
With Selection
.Font.Underline = wdUnderlineWords
.Font.Underline = wdUnderlineDouble
.Font.Size = 18
.TypeText Text:="京都市左京区 梅ヶ枝町" & vbCrLf
End With
ActiveDocument.Paragraphs(3).Range.Select
With Selection
.Font.Underline = wdUnderlineWords
.Font.Size = 24
.TypeText Text:="京都市左京区 梅ヶ枝町 マンション" & vbCrLf
End With
ActiveDocument.Paragraphs(4).Range.Select
With Selection
.Font.Underline = wdUnderlineWords
.Font.Underline = wdUnderlineDotDotDash
.Font.Underline = wdUnderlineWavyDouble
'最後が優先
.Font.Size = 20
.TypeText Text:="京都市左京区 梅ヶ枝町 マンション" & vbCrLf
End With
End Sub
をやってみてください。
それにワードVBAの定数は
http://msdn.microsoft.com/library/ja/default.asp …
にあります（WdUnderlineの箇所）
wdUnderlineWords　は「語単位」だと思うが、Double下線では効かず
（?）これだけでシングルの途切れ下線になるようです。
SingleはDouble、Wavy と並ぶものです。