该情景是在Word 2010中每周收到一个需要调整的表格。在宏的其他补充中,名为“WebSite”的列需要被删除。 虽然名为“WebSite”的列可能并不总是处于相同的位置。Word 2010 VBA代码用于查找,选择和删除具有特定列标题的表列
我需要知道用于查找,选择和删除可能会更改位置的特定表列的VBA代码,但始终保持相同的列标题。
有没有一种方法可以在vba代码中插入一个搜索词,以确保即使在Word中每次打开表格时表格中的位置都可以更改,右列也会被删除?
该情景是在Word 2010中每周收到一个需要调整的表格。在宏的其他补充中,名为“WebSite”的列需要被删除。 虽然名为“WebSite”的列可能并不总是处于相同的位置。Word 2010 VBA代码用于查找,选择和删除具有特定列标题的表列
我需要知道用于查找,选择和删除可能会更改位置的特定表列的VBA代码,但始终保持相同的列标题。
有没有一种方法可以在vba代码中插入一个搜索词,以确保即使在Word中每次打开表格时表格中的位置都可以更改,右列也会被删除?
尝试:
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
我刚刚测试了您的代码,它的工作原理。谢谢。 – user1951654
非常好,你能提供一个关于Word插入表格单元格的特殊字符的解释吗?我一直想知道如何在单元格中专门查找和替换单词... – deed02392
'子测试() ' ' 测试宏 ' ' Selection.SelectColumn Selection.Columns.Delete 结束Sub'这是我这样做的时候显示的内容使用Word 2010中的查找功能查找宏记录器正在播放的关键字。 – user1951654