vba - Word 2010 VBA代码查找，选择和删除具有特定列标题的表列

Question

该方案是每周在 Word 2010 中收到需要调整的表格。在宏的其他添加中，需要删除名为“WebSite”的列。不过，名为“WebSite”的列可能并不总是在同一位置。

我需要知道用于查找、选择和删除可能会更改位置但始终保持相同列标题的特定表列的 VBA 代码。

有没有办法在 vba 代码中插入搜索词，以确保删除右列，即使每次在 Word 中打开表时它在表中的位置可能会改变？

Answer 1

尝试：

Dim tbl As Table
Dim cl As Cell

''All tables
For Each tbl In ActiveDocument.Tables
    ''Look in row 1 only ...
    For Each cl In tbl.Rows(1).Cells
        ''For a cell containing website and end of cell
        If cl.Range.Text = "website" & Chr(13) & Chr(7) Then
            ''Select ...
            cl.Column.Select
            ''Allow the user to choose delete
            If MsgBox("Del selected?", vbYesNo) = vbYes Then
                cl.Column.Delete
            End If
        End If
    Next
Next