如何删除段落中的空格而保留表格中的空格

我爱myvba · 发表于 2010-1-11 21:02

如题。很难办，试了很方法都不行，请大家帮助。谢谢。

水平一般 · 发表于 2010-1-11 21:24

来个样子看看，换个思路也许不难办。

我爱myvba · 发表于 2010-1-11 21:36

就是把表外的空格全删除，但保留表内的空格：

水平一般 · 发表于 2010-1-11 22:11

不知楼主的文章中有多少表格，可以用分部替换法，就是选中表格后，把这个字符替换为一个文章中没有的字符（比如一个不常用的字如嘎字什么的），再全选，把这个字符替换为空，再查找嘎字，替换为以前这个字符。

chien888 · 发表于 2010-1-11 22:20

先用样式控制除表格之外的段落，然后用替换即可。也就是说那些空格放在最后处理。但是如果不会样式那就比较累了！

sylun · 发表于 2010-1-11 22:37

首选应该用样式和格式。可试试如下操作：先用表格样式选中所有表格，然后暂时将表格中的文字格式设置为隐藏文字，再查找并删除属性为非隐藏的空格。最后取消表格中文字的隐藏属性。

我爱myvba · 发表于 2010-1-12 00:16

谢谢各位的回答，就是操作上有些麻烦，能不能用一段代码实现，这样运行一下宏就行了。

佛山小老鼠 · 发表于 2010-1-12 01:03

把表格拉到顶端，然后选中表格下面的，查找空格，替换为无

雨雪霏霏 · 发表于 2010-1-12 06:36

　　请  我爱myvba兄  试试以下代码：

Sub 删除全文表格外的所有空格()
'2010.01.12 雨雪霏霏试写。

Application.ScreenUpdating = False '关闭屏幕更新，加快运行速度。

For Each k In ActiveDocument.Characters '对全文进行逐字检查
      If k.Information(wdWithInTable) = False And k Like "[ 　]" Then k.Delete
      '如果某字符未在表格中，
      '且为半角空格或全角空格，
      '则删除该字符。
Next k '继续以上操作

Application.ScreenUpdating = True '恢复屏幕更新，让屏幕显示最终效果。
End Sub

[ 本帖最后由雨雪霏霏于 2010-1-14 10:48 编辑 ]

我爱myvba · 发表于 2010-1-13 12:40

谢谢雨雪霏霏朋友，这段代码从理论上是可行的，但实际运行就不行了，每个字符都要检查，实在是太慢了。

		自动登录	找回密码
密码			免费注册

[求助] 如何删除段落中的空格而保留表格中的空格

先用样式控制除表格之外的段落，然后用替换即可

VBA：删除全文表格外的所有空格