Underline Inserted Text

gmayor · #1 01-20-2017, 09:54 PM

My point was that styles are the best way of formatting text. i.e. format (say) Heading 2 style to be 16 point Calibri Bold, Underlined and apply that to the paragraph that is the table title.

Using VBA you have to identify the variable texts to be formatted and you have not explained enough to be able to do that however ....

If the table title is the paragraph immediately before each table then

Code:

Sub U_LineTableTitles()
Dim oRng As Range
Dim oTable As Table
    For Each oTable In ActiveDocument.Tables
        Set oRng = oTable.Range.Previous.Paragraphs(1).Range
        With oRng
        .Font.Name = "Calibri"
        .Font.Size = 16
        .Font.Bold = True
        .Font.Underline = wdUnderlineSingle
        'Or instead of the font commands
        '.Style = "Heading 2"
        .Collapse 0
        End With
    Next oTable
End Sub

As you have not explained how the tables and their titles are created then it is not possible to be specific about how to format the titles in your original code.

jmltinc · #2 01-22-2017, 12:10 PM

Quote:

Originally Posted by gmayor

If the table title is the paragraph immediately before each table then

Thank you. As I said the Word object model is not something I am intimately familiar with yet and am frankly confused by it. It is far more complex than Access.

Having said that, I do not quite grasp the paragraph method. When I use a paragraph to separate text from the table (Selection.TypeParagraph), I get a blank line; which I do not want. So I have:

Code:

        Selection.TypeParagraph
 
'Product Specifications
        Selection.Text = " Product Specifications"
        Selection.Font.Name = "calibri"
        Selection.Font.Size = 16
        Selection.Font.Bold = True
        'Selection.Font.Underline = wdUnderlineSingle
        Selection.EndKey Unit:=wdStory
 
        .Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
        With .Tables(x)

Since I am not using TypeParagraph between the text and the table, I am assuming (perhaps falsely) that I haven't closed the paragraph and your code would underline the table text as well.

Obviously, I haven't tried it yet. From my tardy response to your kind advice, you can see I have been pulled in other directions at work right now. I will try your method and hopefully my thought that I haven't closed the paragraph is incorrect.

I would appreciate any explaination of the TypeParagraph method and its proper use...

Thank you,
-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