Underline Inserted Text

dwirony · #1 01-11-2017, 12:32 PM

Ooops, I may have posted some crappy code before. If you're trying to just underline that word, maybe just the use find and replace to underline it? That should only underline that title:

Code:

With Selection.Find
        .Text = " Product Specifications"
        .Replacement.Text = " Product Specifications"
        .Replacement.Font.Underline = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Hope this helps...

jmltinc · #2 01-12-2017, 03:41 AM

Quote:

If you're trying to just underline that word, maybe just the use find and replace to underline it?

Thanks for the reply.

I thought of doing a find and replace, but I think it will be time-consuming. The report is dynamic, generated on the fly by a definition which drives it. It may insert 10 tables, each with it own unique table title. Each title must be underlined.

I would like to underline each title at the time the title is inserted but before the table is inserted.

Thoughts?

Thanks,
-John

dwirony · #3 01-17-2017, 02:28 PM

I'm afraid I can't help you

, I'm still somewhat of a novice myself.

Bump for a better answer-

gmayor · #4 01-17-2017, 10:45 PM

Quote:

Originally Posted by jmltinc

I would like to underline each title at the time the title is inserted but before the table is inserted.

Create or modify a paragraph style that has the characteristics you want, assign it to a keyboard shortcut (or use the ribbon) and apply it to the paragraph in question.

jmltinc · #5 01-20-2017, 09:02 AM

Quote:

Originally Posted by gmayor

Create or modify a paragraph style that has the characteristics you want, assign it to a keyboard shortcut (or use the ribbon) and apply it to the paragraph in question.

I am sorry, but I am confused. This is done in VBA, so why the keyboard shortcut or Ribbon?

The code creates title text which I want underlined, followed below by some more text (not underlined) or a table. I am trying to underline (by code) the title text only, immediately after creating it or as it is created.

Thanks,
-John

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replacing a comment with underline or other formatting (or adding that formatting to commented text)	paulkaye	Word	4	05-16-2016 05:38 AM
Is there a way of having text automatically inserted based on the selection of other text?	MiniMum97	Word	2	04-12-2016 06:09 AM
Copy Underline text from Word and Paste into excel	rfaris	Excel Programming	7	10-05-2015 05:56 AM
Select text to be underline and bold	ksigcajun	Word VBA	1	03-16-2015 07:51 PM
How to remove the UNDERLINE from a hyperlink text?	Learner7	PowerPoint	3	05-17-2010 09:35 PM