返回列表 上一主題 發帖

[發問] 如何讓WORD裡的所有表格都一次性刪除

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
1# 跳轉到 »
發表於 2011-7-21 12:42 | 顯示全部帖子
回復 2# iankiller456646

所以您自己已經找到答案,解決問題了?
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
2#
發表於 2011-7-21 14:30 | 顯示全部帖子
本帖最後由 偉婕 於 2011-7-21 14:36 編輯

回復 4# iankiller456646

您第一篇不是說"WORD裡的表格一次性的刪除或取代掉.....只需要表格以外的文字內容"?
那用選擇性貼上可以解決沒錯丫
不過您現在又說"我是不要表格內容"
兩個問題是不同的,請講清楚自己的需求,不然沒有人能夠幫您
如果是要保留表格,不要內容,那把內容選取,按Delete,不是就OK了?

如果是要保留表格,不要內容,亦可利用[取代]功能
[尋找目標]中輸入 ^?
[取代為]中不輸入任何資料
按[全部取代]
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
3#
發表於 2011-7-22 00:27 | 顯示全部帖子
回復 6# infoverdad

試試
  1. Sub 刪除表格()
  2. Dim tTable As Table, rRow As Row
  3. For Each tTable In ActiveDocument.Tables
  4.     For Each rRow In tTable.Rows
  5.        rRow.Delete
  6.     Next
  7. Next
  8. End Sub
複製代碼
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
4#
發表於 2011-7-23 14:00 | 顯示全部帖子
回復 6# infoverdad

若表格中含有合併儲存格,則上個程式碼會出錯
這時可以改為以下程式碼,供您參考!
  1. Sub 刪除表格()
  2. Dim tTable As Table
  3. For Each tTable In ActiveDocument.Tables
  4.      tTable.Delete
  5. Next
  6. End Sub
複製代碼
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題