Формат таблиці MS Word через VBA / Макроси: Вирішення конкретно з Merge Cells

Уявіть таблицю з 7 колонок і тонни рядків. Деякі з цих рядків рядків об'єднуються, містять примітки, які завжди містять рядок "Примітка" на початку комірки. У цілому перший стовпець включає в себе нумерацію 10,20,30 і т.д. навіть заголовок.

Що я можу використовувати для видалення нумерації з заголовка і всіх об'єднаних комірок з "Примітками" в них?

microsoft-word vba macros

— Ash Blake
джерело

Важко уявити вашу проблему без деяких зразків даних, однак найпростіше - скопіювати її в Excel, відредагувати, а потім скопіювати.

— Máté Juhász

Виходячи з Вашого опису тут є код, який повинен працювати.

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

— Rich Michaels
джерело