Cmbine two underline types?

[eduzs]

Is there a way to combine two underlines like:



selection.Font.underline =wdUnderlineWavy + wdUnderlineWords

Thanks

[gmaxey]

No, but you can fudge:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim orng As Range
  Set orng = Selection.Range
  orng.Underline = wdUnderlineWavy
  With orng.Find
    .Text = "[ .,:;\!\?" & Chr(9) + Chr(160) & "]"
    .MatchWildcards = True
    .Font.Underline = wdUnderlineWavy
    .Replacement.Font.Underline = wdUnderlineNone
    .Execute Replace:=wdReplaceAll
  End With
lbl_Exit:
  Exit Sub
End Sub

[eduzs]

Superb! Many thanks.

I have this code, how I can change it to instead of turning the font color blue apply a wavy + words underline based on your code?

(ps. I didn't use the find/found because the strange behaviors of this instruction)

For oWord = 1 To Selection.Paragraphs(1).Range.Words.Count

If Len(Trim(Selection.Paragraphs(1).Range.Words(oWord ).Text)) > 4 Then

If InStr(1, PalsRep, Trim(Selection.Paragraphs(1).Range.Words(oWord).Te xt), vbTextCompare) > 1 Then

With Selection.Paragraphs(1).Range.Words(oWord).Font.Co lorIndex = wdBlue

End If

End If

Next oWord

[gmaxey]

I have no idea what a PalsRep is.