Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
Dim oRng As Range
For lngIndex = ActiveDocument.Tables.Count To 2 Step -1
Set oRng = ActiveDocument.Tables(lngIndex).Range
oRng.Collapse wdCollapseStart
oRng.Move wdParagraph, -1
'By your description, the range should now be defined at the table title.
If Not oRng.Paragraphs(1).SpaceBefore = 0 Then oRng.Paragraphs(1).SpaceBefore = 0
If Len(oRng.Paragraphs(1).Previous.Range) = 1 And Not _
oRng.Paragraphs(1).Previous.Range.Information(wdWithInTable) Then
oRng.Paragraphs(1).Previous.Range.Delete
End If
Next
lbl_Exit:
Exit Sub
End Sub