Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oRng As Range, oRngCap As Range
Dim strTitle As String
  For Each oTbl In ActiveDocument.Tables
    Set oRng = oTbl.Range
    Set oRngCap = oTbl.Range
    oRng.Collapse wdCollapseStart
    oRngCap.Collapse wdCollapseEnd
    Do
      oRng.MoveStart wdParagraph, -1
      oRng.End = oRng.Paragraphs(1).Range.End - 1
      strTitle = oRng.Text
    Loop Until oRng.Paragraphs(1).OutlineLevel = 1
    oRngCap.InsertCaption Label:="Table", TitleAutoText:="", Title:=" - " & strTitle, _
    Position:=wdCaptionPositionAbove, ExcludeLabel:=0
  Next
lbl_Exit:
  Exit Sub
End Sub