Word 2010 VBA代碼用於查找，選擇和刪除具有特定列標題的表列

該情景是在Word 2010中每週收到一個需要調整的表格。在宏的其他補充中，名爲「WebSite」的列需要被刪除。 雖然名爲「WebSite」的列可能並不總是處於相同的位置。Word 2010 VBA代碼用於查找，選擇和刪除具有特定列標題的表列

我需要知道用於查找，選擇和刪除可能會更改位置的特定表列的VBA代碼，但始終保持相同的列標題。

有沒有一種方法可以在vba代碼中插入一個搜索詞，以確保即使在Word中每次打開表格時表格中的位置都可以更改，右列也會被刪除？

來源

2013-01-05 user1951654

'子測試（） ' ' 測試宏 ' ' Selection.SelectColumn Selection.Columns.Delete 結束Sub'這是我這樣做的時候顯示的內容使用Word 2010中的查找功能查找宏記錄器正在播放的關鍵字。 – user1951654

嘗試：

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

來源

2013-01-05 20:56:03 Fionnuala

我剛剛測試了您的代碼，它的工作原理。謝謝。 – user1951654

非常好，你能提供一個關於Word插入表格單元格的特殊字符的解釋嗎？我一直想知道如何在單元格中專門查找和替換單詞... – deed02392

Word 2010 VBA代碼用於查找，選擇和刪除具有特定列標題的表列

回答

相關問題