マクロについて

質問

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

回答No.1

noname#20378 · ベストアンサー

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

http://msdn2.microsoft.com/ja-jp/library/microsoft.office.interop.word.wdunderline.aspx

wdUnderlineSingle A single line. default.

一本線。デフォルト。

wdUnderlineWords Underline individual words only.

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

回答No.2

imogasi

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?url=/library/ja/vbawd11/html/wohowConstants.asp
にあります（WdUnderlineの箇所）
wdUnderlineWords　は「語単位」だと思うが、Double下線では効かず
（?）これだけでシングルの途切れ下線になるようです。
SingleはDouble、Wavy と並ぶものです。