惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

redeva
redeva 2018-08-08 字数 496

惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

1、word文件中分散有1000个表格,如何一次性删除?

2、word文件中有1000处不相连的突出显示文字(字体,字号,均不相同),如何一次性选中?

自认为是老鸟的来!要求最好不要使用VBA,宏之类的东西,仅用word内置功能解决。

好吧,其实第2个问题,可以通过“将非突出显示文字替换为空”的方式,间接实现保留突出显示文字。但第一个问题,真的无解么?一次性删除所有表格,应该早就有人做过了啊?

OfficeSoft 办公软件应用
18 个回复
wmic
wmi 2018-08-08

不是老鸟,路过

【 在 redeva (redeva) 的大作中提到: 】

: 惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

: 1、word文件中分散有1000个表格,如何一次性删除?

: 2、word文件中有1000处不相连的突出显示文字(字体,字号,均不相同),如何一次性选中?

: ...................

offset
文科生物 2018-08-08

查找——更多——格式——突出显示

表格可以用定位功能

【 在 redeva 的大作中提到: 】

: 惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

: 1、word文件中分散有1000个表格,如何一次性删除?

: 2、word文件中有1000处不相连的突出显示文字(字体,字号,均不相同),如何一次性选中?

: ...................

redeva
redeva 2018-08-09

感谢你的回复,但是:

1、“查找——更多——格式——突出显示”只能依次查找/定位突出显示的文字,不能一次同时选中这1000处突出显示文字

2、“表格可以用定位功能”也是只能依次定位到各个表格,不能一次性选中这1000个表格,进而删之

【 在 offset 的大作中提到: 】

: 查找——更多——格式——突出显示

: 表格可以用定位功能

zeus2615
zeuslord·呆猫 2018-08-09

我记得可以直接查找表格

【 在 redeva 的大作中提到: 】

: 惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

: 1、word文件中分散有1000个表格,如何一次性删除?

: 2、word文件中有1000处不相连的突出显示文字(字体,字号,均不相同),如何一次性选中?

chaossrc
chaos 2018-08-09

1000张表的word文档,打开就得卡死吧

【 在 redeva 的大作中提到: 】:

:惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

:1、word文件中分散有1000个表格,如何一次性

nimcok
nimcok 2018-08-09

用vba多好,非得想其它方法

【 在 redeva 的大作中提到: 】:

:惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

:1、word文件中分散有1000个表格,如何一次性

redeva
redeva 2018-08-09

用VBA也好,能详细说说方法吗?

【 在 nimcok 的大作中提到: 】

: 用vba多好,非得想其它方法

: :惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

: :1、word文件中分散有1000个表格,如何一次性

: ...................

lsd
螺丝刀 2018-08-09

可以试试“查找——更多——格式——突出显示”+“在以下项中查找——主文档”,查找界面中部有这个选项。

【 在 redeva 的大作中提到: 】

: 感谢你的回复,但是:

: 1、“查找——更多——格式——突出显示”只能依次查找/定位突出显示的文字,不能一次同时选中这1000处突出显示文字

: ...................

agee
age 2018-08-09

1用宏很简单啊

Sub SelectAllTable()

'

' SelectAllTable 宏

'

'

Dim T As Table

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

For Each T In ActiveDocument.Tables

T.Range.Editors.Add wdEditorEveryone

Next

ActiveDocument.SelectAllEditableRanges wdEditorEveryone

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

End Sub

【 在 redeva (redeva) 的大作中提到: 】

: 惭愧!自认为word也用了十余年了,可这两个功能还是不会!!!

: 1、word文件中分散有1000个表格,如何一次性删除?

: 2、word文件中有1000处不相连的突出显示文字(字体,字号,均不相同),如何一次

: 性选中?

: ...................

Tue
水木社区 2018-08-09

这个只是把文档中的所有表格全部选中,还没彻底满足楼主的需求

楼主可以试试以下vba代码(强烈建议提前备份,有时word会抽风):

Sub DeleteAllTable()

Dim tempTable As Table

Application.ScreenUpdating = False

'判断文档是否被保护

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

MsgBox "文档已保护,此时不能选中多个表格!"

Exit Sub

End If

'删除全部表格

For Each tempTable In ActiveDocument.Tables

tempTable.Delete

Next

Application.ScreenUpdating = True

End Sub

【 在 agee (age) 的大作中提到: 】

: 1用宏很简单啊

: Sub SelectAllTable()

: '

: ' SelectAllTable 宏

: '

: '

:     Dim T As Table

:     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

:     For Each T In ActiveDocument.Tables

:         T.Range.Editors.Add wdEditorEveryone

:     Next

:     ActiveDocument.SelectAllEditableRanges wdEditorEveryone

:     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

: End Sub

cj222
cj222 2018-08-09

vba搞定很容易

nimcok
nimcok 2018-08-09

自己学习下vba,如果只要求删除所有表格,去兼职版发个需求,让别人写个vbs脚本,删除任意word的所有表格,估计200元就会有人接

【 在 redeva 的大作中提到: 】:

:用VBA也好,能详细说说方法吗?

wobushi
|(^o^)/ 2018-08-09

【 在 agee 的大作中提到: 】

: 1用宏很简单啊

: Sub SelectAllTable()

: '

: ...................

PeterCDMA
Peter 2018-08-09
Tue
水木社区 2018-08-09

我只向楼主索要199元,请支持,:)

【 在 nimcok (nimcok) 的大作中提到: 】

: 自己学习下vba,如果只要求删除所有表格,去兼职版发个需求,让别人写个vbs脚本,删除任意word的所有表格,估计200元就会有人接

: 【 在 redeva 的大作中提到: 】:

: :用VBA也好,能详细说说方法吗?

: ...................

offset
文科生物 2018-08-10

查找功能,都可以一次性选中啊

有下拉 主文档中查找

【 在 redeva 的大作中提到: 】

: 感谢你的回复,但是:

: 1、“查找——更多——格式——突出显示”只能依次查找/定位突出显示的文字,不能一次同时选中这1000处突出显示文字

: ...................

redeva
redeva 2018-08-11

太棒了,第二个问题完美解决,可怜论坛没有高亮功能!感谢分享技能!!!

【 在 lsd 的大作中提到: 】

: 可以试试“查找——更多——格式——突出显示”+“在以下项中查找——主文档”,查找界面中部有这个选项。

redeva
redeva 2018-08-11

大赞,谢谢兄台!!!!

【 在 Tue 的大作中提到: 】

: 这个只是把文档中的所有表格全部选中,还没彻底满足楼主的需求

: 楼主可以试试以下vba代码(强烈建议提前备份,有时word会抽风):

: Sub DeleteAllTable()

: ...................