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.