標題:
[發問]
如何讓WORD裡的所有表格都一次性刪除
[打印本頁]
作者:
iankiller456646
時間:
2011-7-21 12:00
標題:
如何讓WORD裡的所有表格都一次性刪除
如題
如何讓WORD裡的表格一次性的刪除或取代掉
因為我的學校工作有一個是整理WORD檔
但他不需要表格
只需要表格以外的文字內容
EX:財務資料
請大大幫忙了!
作者:
iankiller456646
時間:
2011-7-21 12:27
P.S
就是不要表格
剛用了選擇性貼上
這好像是把表格內容文字轉成純文字貼上~
作者:
偉婕
時間:
2011-7-21 12:42
回復
2#
iankiller456646
所以您自己已經找到答案,解決問題了?
作者:
iankiller456646
時間:
2011-7-21 12:45
回復
3#
偉婕
沒有
我是不要表格內容
但選擇性貼上會把表格去掉
但表格裡面的內容還是會在
作者:
偉婕
時間:
2011-7-21 14:30
本帖最後由 偉婕 於 2011-7-21 14:36 編輯
回復
4#
iankiller456646
您第一篇不是說"WORD裡的表格一次性的刪除或取代掉.....只需要表格以外的文字內容"?
那用選擇性貼上可以解決沒錯丫
不過您現在又說"我是不要表格內容"
兩個問題是不同的,請講清楚自己的需求,不然沒有人能夠幫您
如果是要保留表格,不要內容,那把內容選取,按Delete,不是就OK了?
如果是要保留表格,不要內容,亦可利用[取代]功能
[尋找目標]中輸入 ^?
[取代為]中不輸入任何資料
按[全部取代]
作者:
infoverdad
時間:
2011-7-21 22:56
看來樓主"表格"的定義:應該是指"格線及其範圍內的文數字"吧?
樓主希望達到的結果:只保留原始資料中非表格的文字.
如附件[attach]7107[/attach]
工作上有時候會遇到這種需求,都只好一個個表格個別選取刪掉.
作者:
偉婕
時間:
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
複製代碼
作者:
偉婕
時間:
2011-7-23 14:00
回復
6#
infoverdad
若表格中含有合併儲存格,則上個程式碼會出錯
這時可以改為以下程式碼,供您參考!
Sub 刪除表格()
Dim tTable As Table
For Each tTable In ActiveDocument.Tables
tTable.Delete
Next
End Sub
複製代碼
作者:
infoverdad
時間:
2011-7-23 18:48
本帖最後由 infoverdad 於 2011-7-23 18:52 編輯
回復
10#
偉婕
好的!! 版大真的好細心!!
原來差異在於刪除列與刪除表格!! 又多學習了一種方式,真的非常感謝您!!
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
