用正则表达式替换WORD段尾空格出现的奇怪现象

GONG2816

     请教各位大侠专家！
    用正则表达式替换段尾空格时，如果文字段落之后紧跟着表格，则被替换的文字所在段落会跑到表格中去，除此之外其他情况却是正常的。百思不得其解，烦请各位老师指点。

Sub 删除段尾空格()
Dim i As Paragraph, mt, oRang As Range, n%, m%
Set regx = CreateObject("vbscript.regexp")
With regx
        .Global = True: .IgnoreCase = False: .MultiLine = True
        .Pattern = "\s+(\r)$"    '删除段落尾部的空格,如果没有\r，将会将回车符一并作为空格处理了。
        For Each i In ActiveDocument.Paragraphs  '在遍历各个段落
                For Each mt In .Execute(i.Range.Text)    '遍历所匹配的各个文本
                        m = mt.FirstIndex: n = mt.Length - 1 '查找的起始位置（从0开始计数）、长度
                        Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)  '定位查找到的文本在整个文章中的起始位置、终止位置
                        i.Range.Text = .Replace(i.Range.Text, "$1")
                Next
        Next        
End With
End Sub

ming0018

好好学习一下段落和表格，自己领悟！

yhs185

是奇怪         

yhs185

借用阿杜的代码
Sub Word文档中查找替换()
    Dim col As New Collection, k&
    Dim i As Paragraph, mt, oRang As Range, n%, m%
    With CreateObject("vbscript.regexp")
        .Pattern = "\s+(?=\r)" '这里各显其能输入正则表达式（根据自己的需求）
        .Global = True: .IgnoreCase = False: .MultiLine = True
        For Each i In ActiveDocument.Paragraphs
            For Each mt In .Execute(i.Range.Text)
                k = k + 1
                m = mt.FirstIndex: n = mt.Length
                Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
                col.Add oRang, CStr(k)
            Next
        Next
    End With
    For j = 1 To col.Count
        col(j) = "" '替换为字符(根据自己需要)
    Next
End Sub
可以实现你的功能

GONG2816

谢谢yhs185的回复。但我运行代码检验，发现运行后文档没有任何变化。

19820713chen

用这段代码你会感觉比正则查找快很多

19820713chen

Sub 去除段尾空格()

   Selection.Find.ClearFormatting

   Selection.Find.Replacement.ClearFormatting

   With Selection.Find

       .Text = "[^s" & vbTab & " " & ChrW(160)& ChrW(255) & ChrW(8204) & _

           ChrW(8205) & ChrW(8194) & ChrW(8195) & ChrW(8197) &"　" & ChrW(61543 _

           ) & "

yhs185

GONG2816 发表于 2019-3-20 17:18
谢谢yhs185的回复。但我运行代码检验，发现运行后文档没有任何变化。

在我这里测试，完美达到你的需求

jiminyanyan

4楼老师代码 我测试是OK的。。。

GONG2816

感谢谢谢yhs185老师。再次运行，确认能完善解决问题。
您的回复中，下面的这个代码如何理解？为何这样处理就能解决这个问题，而我原来的代码却不行，麻烦指点一下。
               col.Add oRang, CStr(k)