Below macro searches for the string 'Single Products' in the active Document. If this string is located in a table, the macro will come up with a msgbox telling the user that the string has been found.
Could somebody please tweak this macro so that all the index numbers of the tables where the string has been found are listed in a msgbox, e.g.
"The string 'Single Products' has been found in tables (1), (3), (5)."
Help is much appreciated. Thank you very much in advance for your valuable help.
Dim ht As Single
Dim strLen As Integer
Dim rng As Range
Dim strFind As String
'The index number of the tables that have the string 'Single Products' have to be listed in a MsgBox at the End
strFind = "Single Products"
strLen = Len(strFind)
Set rng = ActiveDocument.Range
.Text = strFind
If .Find.Found Then
If rng.Information(wdWithInTable) Then
MsgBox "String has been found"
If Not .Find.Found Then
MsgBox "String has not been found"
Loop Until Not (.Find.Found)