word中文本中的空格局部替换成没有空格

yuanfuyong

我就想把答案那部分的空格保留下来，我好区分答案，其他文本的空格我都想删除掉，请问各位老师有办法吗？

kingtau

新手研究了好几天的结果：

1. Sub 删除指定范围空格()
   
2. With ActiveDocument
   
3. '   文档内有大量软回车，全部替换成段落标记，否则直接删空格会造成格式混乱
   
4. .Content.Find.Execute2007 FindText:="^13", ReplaceWith:="^p", Replace:=wdReplaceAll
   
5.     For i = 1 To .Paragraphs.Count
   
6.         With .Paragraphs(i)
   
7. '        四重判断：1、排除空段、插图；2、排除表格内的段落；
   
8. '                            3、排除答案所在行；4、排除序号后面的空格。
   
9.                 If Len(.Range.Text) > 2 _
   
10.                 And Not .Range.Information(12) _
    
11.                 And Not .Range.Text Like "答案：*" _
    
12.                 And InStr(.Range, " ") > 5 Then .Range = Replace(.Range, " ", "")
    
13.         End With
    
14.     Next
    
15. End With
    
16. End Sub

复制代码