求全选整个文档的vba代码

xzh_yzcn

各位老师：
       我想对整个文档作空格删除处理。想运用查找替换的方法，前提是需选定整个文档。如何选定整个文档内容，然后再用replace方法。在网上查找了很久，未找到。请赐vba代码。谢谢

xzh_yzcn

找到一个替代方法：先计算整个文档的段落数，再设置区域范围：
paracount = ActiveDocument.Paragraphs.count
Set rngparagraphs = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, End:=ActiveDocument.Paragraphs(paracount).Range.End)
rngparagraphs.Select

duquancai

xzh_yzcn 发表于 2016-5-28 16:53
找到一个替代方法：先计算整个文档的段落数，再设置区域范围：
paracount = ActiveDocument.Paragraphs.co ...

Sub 删除半角空格和全角空格()
'只针对：word文档中为纯文本！
Dim s As Range, reg As Object
Set s = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
Set reg = CreateObject("VBscript.regexp")
Application.ScreenUpdating = False
    With reg
        .Global = True: .IgnoreCase = False: .MultiLine = True
        .Pattern = "[\u0020\u3000]+": s = .Replace(s, "")
    End With
Application.ScreenUpdating = True
Set s = Nothing: Set reg = Nothing
End Sub

xzh_yzcn

duquancai 发表于 2016-5-28 18:58
Sub 删除半角空格和全角空格()
'只针对：word文档中为纯文本！
Dim s As Range, reg As Object

谢谢，如果能帮说明每个语句的意义与作用就太好，这样便于我学习领会

413191246se

楼主，选定整个文档内容，也叫全选，只须录制宏即可。