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

iceren2016

每隔一个字就用空白代替，但字符的占位宽度保留，标点符号不算哦；

如果是英文的话，就以单词为单位，每个隔一个单词空一个，单词的占位保留，请问高手如何实现？

Excel能实现的话也行，


万分感谢！！

相见是缘8

请上传测试附件吧！

iceren2016

相见是缘8 发表于 2020-2-2 14:19
请上传测试附件吧！

测试附件.rar (12.23 KB, 下载次数: 7)

2020-2-2 15:07 上传

点击文件名下载附件

iceren2016

先谢谢了

相见是缘8

iceren2016 发表于 2020-2-2 15:08

Sub 加空格()
    ActiveDocument.Content.Find.Execute "([一-﨩])", , , 1, , , , , , "\1　", 2
    ActiveDocument.Content.Find.Execute "(　)@([：。])", , , 1, , , , , , "\2", 2
End Sub

iceren2016

相见是缘8 发表于 2020-2-2 17:50
Sub 加空格()
    ActiveDocument.Content.Find.Execute "([一-﨩])", , , 1, , , , , , "\1　", 2
    ...

您好，我试了一下，这段代码的效果只是加了空格而已，不是我想要的效果哦，请看附件

测试附件2.rar (13.56 KB, 下载次数: 4)

2020-2-2 20:07 上传

点击文件名下载附件

daibao88

vba循环判断是否汉字，是就字体改为白色？

iceren2016

daibao88 发表于 2020-2-2 20:32
vba循环判断是否汉字，是就字体改为白色？

您好，比如说，兵荒马乱，改成：兵（空白）马 （空白），等于是隔一个字抠一个字，被抠的字用空白代替。谢谢！

weiyingde

Sub 请测试()
With ActiveDocument
     .Content.Find.Execute "[　]@", , , 1, , , , , , "", 2
     For i = 1 To .Characters.Count - 1
         If .Characters(i) Like "[一-龥]" Then
            If i Mod 2 = 0 Then
               With .Characters(i).Font
                    .Name = "华文楷体"
                    .ColorIndex = 8
                    .Size = 12
               End With
            End If
         End If
     Next
End With
End Sub

凌空一羽

Sub lkyy()
Dim doc As Document
Set doc = ActiveDocument
doc.Content.Find.Execute " ", , , , , , , , , "", 2
For i = doc.Paragraphs(1).Range.Characters.Count - 1 To 1 Step -1
    If doc.Paragraphs(1).Range.Characters(i) Like "[一-龥]" Then
        doc.Paragraphs(1).Range.Characters(i).InsertAfter " "
    End If
Next
End Sub