Cmbine two underline types?

eduzs · #1 05-26-2017, 06:05 PM

Is there a way to combine two underlines like:

selection.Font.underline =wdUnderlineWavy + wdUnderlineWords

Thanks

gmaxey · #2 05-28-2017, 08:03 AM

No, but you can fudge:

Code:

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 · #3 05-28-2017, 02:37 PM

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)

Quote:

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 · #4 05-29-2017, 09:32 AM

I have no idea what a PalsRep is.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Automatic Formatting/Types	SteveHebburn	Word	1	07-18-2015 03:55 PM
Task types with no Resources assigned	mtaylor	Project	1	05-24-2014 12:37 PM
Data types	Jennifer Murphy	Word VBA	0	01-05-2013 04:12 PM
Page numbering (two types in one doc)	alexb123	Word	1	03-05-2012 04:11 PM
multiple types of alignment on one line?	uoficowboy	Word	1	03-06-2010 08:54 PM