2013-01-05 73 views
3

该情景是在Word 2010中每周收到一个需要调整的表格。在宏的其他补充中,名为“WebSite”的列需要被删除。 虽然名为“WebSite”的列可能并不总是处于相同的位置。Word 2010 VBA代码用于查找,选择和删除具有特定列标题的表列

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

有没有一种方法可以在vba代码中插入一个搜索词,以确保即使在Word中每次打开表格时表格中的位置都可以更改,右列也会被删除?

+0

'子测试() ' ' 测试宏 ' ' Selection.SelectColumn Selection.Columns.Delete 结束Sub'这是我这样做的时候显示的内容使用Word 2010中的查找功能查找宏记录器正在播放的关键字。 – user1951654

回答

3

尝试:

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 
+0

我刚刚测试了您的代码,它的工作原理。谢谢。 – user1951654

+0

非常好,你能提供一个关于Word插入表格单元格的特殊字符的解释吗?我一直想知道如何在单元格中专门查找和替换单词... – deed02392

相关问题