Выполнение скрипта для всех таблиц в документе Microsoft Word

Question

Мне нужно выполнить сценарий VBA для нескольких таблиц в Microsoft Word - Макрос

Здесь супер нуб, я попытался ссылаться / добавлять числа, чтобы добавить дополнительные таблицы для выполнения сценария в ActiveDocument.Tables (1), но я не знаю, как ссылаться на все таблицы с 1 по 4. Мне осталось только продублировать приведенный ниже макрос и ввести «(2)», «(3)», «(4)» для ActiveDocument. Количество таблиц для доступа ко всем таблицам.

With ActiveDocument.Tables(1)
    For r = .Rows.Count To 1 Step -1
        fnd = False
        For Each c In .Rows(r).Cells
            If InStr(c.Range.Text, "ARORA") > 0 Then fnd = True
        Next
        For Each c In .Rows(r).Cells
            If InStr(c.Range.Text, "Description of Change") > 0 Then fnd = True
        Next
        If Not fnd Then .Rows(r).Delete
    Next
End With
End Sub

Сценарий удаляет строки из указанной таблицы, которые содержат указанный текст "c.Range.Text", но в настоящее время это выполняется только для одной таблицы, указанной вActiveDocument.Tables (т. Е. «(1)» и т. Д.), Но мне нужно, чтобы это выполнялось для всех 4 таблиц, 1, 2, 3 и 4 в моем документе Word.

Answer 1

For Each Table In ActiveDocument.Tables
    For r = Table.Rows.Count To 1 Step -1
        fnd = False
        For Each c In Table.Rows(r).Cells
            If InStr(c.Range.Text, "PartnerAbbr") > 0 Then fnd = True
        Next
        For Each c In Table.Rows(r).Cells
            If InStr(c.Range.Text, "Description of Change") > 0 Then fnd = True
        Next