急请教：如何把相邻的字（中文或英文）全部用空白代替？（如图）

凌空一羽

Dim doc As Document
Set doc = ActiveDocument
doc.Content.Find.Execute " ", , , , , , , , , "", 2
For i = 1 To doc.Paragraphs(1).Range.Characters.Count - 1
    If doc.Paragraphs(1).Range.Characters(i) Like "[一-龥]" Then
        n = n + 1
        If n Mod 2 = 0 Then
            doc.Paragraphs(1).Range.Characters(i).Font.ColorIndex = wdWhite
        End If
    End If
Next

iceren2016

weiyingde 发表于 2020-2-3 11:08
Sub 请测试()
With ActiveDocument
     .Content.Find.Execute "[　]@", , , 1, , , , , , "", 2

成功了！十分感谢！！！！

iceren2016

凌空一羽 发表于 2020-2-3 11:39
Dim doc As Document
Set doc = ActiveDocument
doc.Content.Find.Execute " ", , , , , , , , , "", 2

谢谢！！！

iceren2016

weiyingde 发表于 2020-2-3 11:08
Sub 请测试()
With ActiveDocument
     .Content.Find.Execute "[　]@", , , 1, , , , , , "", 2

再请教一下，如果不是中文而是英文文档，可以实现吗？就是把中字换成英文单词的情况下。

凌空一羽

iceren2016 发表于 2020-2-3 12:22
再请教一下，如果不是中文而是英文文档，可以实现吗？就是把中字换成英文单词的情况下。

Sub lkyy()
Dim doc As Document
Set doc = ActiveDocument
For i = 1 To doc.Words.Count - 1
    If Not doc.Words(i) Like "[!a-zA-z] " Then
        n = n + 1
        If n Mod 2 = 0 Then doc.Words(i).Font.ColorIndex = wdRed
    End If
Next
End Sub

tcdatongye

正则查找替换
([一-龡]*)[一-龡]
\1  '\1后面加两个空格。如果中英文混合[一-龡]改成[一-龡a-zA-Z]

ggmmlol

想要把每两个相邻的汉字的第二个“隐藏”起来，只需要在勾选“使用通配符”模式，对选定内容做“两次替换”，就可以解决。

方案简析：
第一次替换时，给每两个汉字的后边添加一个特定的用作标记的字符（比如：下划线）
第二次替换时，查找每个后接下划线的汉字，将其字体的颜色替换为白色。

具体方法：
第一次替换时：       
查找内容：        ([一-龥]{2})
替换为：        \1_
       
第二次替换时：       
查找内容:        ([一-龥])_
替换为:        \1
格式:        字体颜色：白色

演示如下：

wh1813

这个牛啊~~