Sub template()
'From https://www.msofficeforums.com/word-vba/28819-extracting-data-excel-document-using-word.html
Application.ScreenUpdating = False
Set wdDoc = ActiveDocument
With wdDoc.Range
    For Each Tbl In .Tables
        With Tbl
            For i = 1 To .Rows.Count
                With .Cell(i, 2).Range.Paragraphs(1).Range
                    With .Find
                        .ClearFormatting
                        .Replacement.ClearFormatting
                        .Text = "String"
                        .Replacement.Text = ""
                        .Forward = True
                        .Wrap = wdFindStop
                        .Format = False
                        .MatchWildcards = True
                        .Execute
                    End With
                        If .Find.Found Then
							'Do whatever you want.
                        End If
                End With
            Next
        End With
    Next
End With
End Sub