☰

通过 VBA/宏实现 MS Word 表格格式：具体来说，合并单元格的问题

tag-icon • tag-icon microsoft-word vba macros
通过 VBA/宏实现 MS Word 表格格式：具体来说，合并单元格的问题

想象一下一张有 7 列和大量行的表格。这些大量行中的一些行合并在一起，其中包含注释，这些注释始终在单元格开头包含字符串“注释”。整个第一列包括编号 10、20、30 等，甚至包括标题。

我可以使用什么来删除标题和所有包含“注释”的合并单元格中的编号？

答案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

子目录结束

相关内容