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

　暱稱: 偉婕

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

論壇貢獻勳章美女勳章熱烈參與勳章

3^#

發表於 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

iankiller456646

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: word2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2011-7-21
最後登錄: 2011-7-21

4^#

發表於 2011-7-21 12:45 | 只看該作者

回復 3# 偉婕

沒有
  我是不要表格內容
  但選擇性貼上會把表格去掉
  但表格裡面的內容還是會在

大家好

　暱稱: 偉婕

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

論壇貢獻勳章美女勳章熱烈參與勳章

5^#

發表於 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

infoverdad

中學生 Rank: 2

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 307
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-12-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

6^#

發表於 2011-7-21 22:56 | 只看該作者

看來樓主"表格"的定義:應該是指"格線及其範圍內的文數字"吧?
樓主希望達到的結果:只保留原始資料中非表格的文字.
如附件

希望只保留原始資料中非表格的文字.rar (2.99 KB)
工作上有時候會遇到這種需求,都只好一個個表格個別選取刪掉.

　暱稱: 偉婕

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

論壇貢獻勳章美女勳章熱烈參與勳章

7^#

發表於 2011-7-22 00:27 | 只看該作者

回復 6# infoverdad

試試

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

複製代碼

偉婕電子書,歡迎免費下載參考
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

　暱稱: 偉婕

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

論壇貢獻勳章美女勳章熱烈參與勳章

8^#

發表於 2011-7-23 14:00 | 只看該作者

回復 6# infoverdad

若表格中含有合併儲存格,則上個程式碼會出錯
這時可以改為以下程式碼,供您參考!

Sub 刪除表格()
Dim tTable As Table
For Each tTable In ActiveDocument.Tables
tTable.Delete
Next
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

infoverdad

中學生 Rank: 2

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 307
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-12-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

9^#

發表於 2011-7-23 18:48 | 只看該作者

本帖最後由 infoverdad 於 2011-7-23 18:52 編輯

回復 10# 偉婕

好的!! 版大真的好細心!!
原來差異在於刪除列與刪除表格!! 又多學習了一種方式,真的非常感謝您!!