Формат таблицы MS Word через VBA/ макросы: проблема с ячейками слияния

Question

Представьте себе таблицу из 7 столбцов и тонн строк. Некоторые из этих тонн строк объединяются с заметками, всегда содержащими строку "Заметка" в начале ячейки. В целом первый столбец включает нумерацию 10,20,30 и т.д. Даже заголовок.

Что можно использовать для удаления нумерации из заголовка и всех объединенных ячеек с пометкой "В"?

Answer 1

На основе вашего описания здесь код, который должен работать.

Sub CleanUpTable()
Dim tbl As Word.Table, r As Integer
Set tbl = ActiveDocument.Tables(1)
For r = tbl.rows.Count To 1 Step -1
    If tbl.rows(r).HeadingFormat = True Then
        tbl.rows(r).Cells(1).Range.Text = vbNullString
    End If
    If InStr(1, tbl.rows(r).Cells(2).Range.Text, "Note") Then
        tbl.rows(r).Delete
    End If
Next r

End Sub