偉婕部落格 這是由Yahoo搬過來的,請大家繼續支持!

0愛的鼓勵 0訂閱站台

有時，我們在處理檔案時，可能因為某些因素，必須將檔案中之表格全部刪除
若一個一個刪，可能有點費時與不便
這時可以利用VBA快速處理喔！

作法如下：
1.於開啟Word後，先按下Alt鍵，再按F11鍵，這時會開啟［Microsoft Visual Basic］
2.按［插入］，再選擇［模組］

3.將以下程式碼貼上
Sub 刪除表格()
Dim tTable As Table, rRow As Row
For Each tTable In ActiveDocument.Tables
    For Each rRow In tTable.Rows
       rRow.Delete
    Next
Next
End Sub

4.接著按［執行Sub或UserForm(F5)］

5.一眨眼間表格全刪光光了

6.此程式碼為一列一列刪，若表格中含有合併儲存格則不適用　

6-1.若表格中含有合併儲存格，則可以改成以下程式碼，該程式碼為一個表格一個表格刪
Sub 刪除表格()
Dim tTable As Table
For Each tTable In ActiveDocument.Tables
     tTable.Delete
Next
End Sub

偉婕 100.07.23