Sub AAA() Dim aTbl As Table For Each aTbl In ActiveDocument.Tables aTbl.Range.Cells(1).Range.Select Caption Table1 Next aTbl End Sub