Formato de tabela MS Word através de VBA / macros: problema com células de mesclagem especificamente

Question

Imagine uma tabela de 7 colunas e toneladas de linhas. Algumas dessas toneladas de linhas são mescladas contendo o Notes sempre contendo a string "Note" no início da célula. Em toda a primeira coluna inclui numeração 10,20,30 etc até o cabeçalho.

O que eu poderia usar para remover a numeração do cabeçalho e todas as células mescladas com "Nota" nelas?

    

Answer 1

Com base na sua descrição, aqui está o código que deve funcionar.

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