在WORD中，怎样在字与字间批量加空格，但字与标点间不加，查找替换的命令代码是什么？

lza2524

在WORD中，如何在字与字间批量加空格，但字与标点间不加，查找替换的命令代码是什么？所需得到的效果，如下图所示：




望各位高手给予指教，非常感谢

乐乐2006201505

如何在word文件中的每一个字与字之间插入空格?_【快资讯】  https://www.360kuai.com/pc/91d57 ... mp;refer_scene=so_1

相见是缘8

Sub 替()
    With ActiveDocument.Content.Find
        .Execute "([一-龥])", , , 1, , , , , , "\1　", 2
        .Execute "　([!一-龥^1-^127])", , , 1, , , , , , "\1", 2
        .Execute "([一-龥])　^13", , , 1, , , , , , "\1^13", 2
    End With
End Sub

乐乐2006201505

Sub 字间加空格()
  With ThisDocument
    With .Content.Find
      .Execute "?", , , 1, , , 1, , , "^& ", 2
      .Execute "[ ]@([!一-龥^1-^127])", , , 1, , , 1, , , "\1", 2
    End With
  End With
End Sub