文本空格替换问题

ballgd

文件和图片中的一段文字，想把空格替换掉，使用好多方法都不能成功，ctrl + H 中的特殊格式尝试好多都成，。 求教

duquancai

Sub W_正则()
    Dim mts As Object, reg As Object, n&, m&
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.Pattern = "[\uD7A4-\uF8FF]+"
    Set mts = reg.Execute(ActiveDocument.Content)
    If Not mts Is Nothing Then
        For j = mts.Count - 1 To 0 Step -1
            m = mts(j).FirstIndex: n = mts(j).Length
            With ActiveDocument.Range(m, m + n)
                .Text = Empty
            End With
        Next
    End If
End Sub

duquancai

Sub shihi()
    sr$ = "[" & Chr(-23671) & "-" & Chr(-23648) & "]{1,}"
    ActiveDocument.Content.Find.Execute sr, , , 1, , , , , , "", 2
End Sub

ballgd

duquancai 发表于 2017-6-19 20:59
Sub shihi()
    sr$ = "[" & Chr(-23671) & "-" & Chr(-23648) & "]{1,}"
    ActiveDocument.Content.F ...

大神，有没有非VBA操作， VBA我只在excel用一些。word里面有没有那种操作的方法可以得到目的

duquancai

ballgd 发表于 2017-6-19 23:35
大神，有没有非VBA操作， VBA我只在excel用一些。word里面有没有那种操作的方法可以得到目的

勾选使用通配符  查找框中输入[힤-]{1,}替换框中什么都不填，点击全部替换

wdpfox

学习了，受益匪浅！谢谢！