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

我爱myvba

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

水平一般

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

我爱myvba

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

水平一般

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

chien888

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

sylun

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

我爱myvba

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

佛山小老鼠

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

雨雪霏霏

　　请  我爱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

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