table location, table title

[pav]

I have a number of word documents, each contains about 30 tables. My task is to copy all the tables into a spreadsheet (easy), and then to make a list of table titles (don't know how to do). Each document is structured so that table title is a sentence (or a one-sentence paragraph) that immediately precedes the table.
The first part I solve by using
i = ...tables.count


and then copying and pasting each table into a spreadsheet

Any hints on how to find and copy a sentence that precedes each table?

[macropod]

Hi pav,

For each table, you could insert a new top row, merge all cells in that row, then copy the preceding sentence into it. For example:

Dim oTbl As Table, Rng As Range
With ActiveDocument
  For Each oTbl In .Tables
    With oTbl
      Set Rng = .Range.Paragraphs.First.Previous.Range
      Rng.End = Rng.End - 1
      Rng.Cut
      Rng.Characters.Last.Delete
      .Rows.Add BeforeRow:=.Rows.First
      .Rows.First.Cells.Merge
      .Cell(1, 1).Range.Paste
    End With
  Next
End With