本帖最后由 weiyingde 于 2017-3-23 18:34 编辑
可是下面的过程中用
With ActiveDocument.Content.Find '处理空格
.Execute "[ ]{1,}", , , 1, , , , , , "^32", 2
.Execute "^32{1,}([!^13]@)", , , 1, , , , , , "\1", 2 ‘用"[ā-ê]"替代"[!^13]@"出问题
.Execute "^32{1,}([一-﨩]@)", , , 1, , , , , , "\1", 2
.Execute "([\((])^32{1,}", , , 1, , , , , , "\1", 2
.Execute "^32{1,}([\))])", , , 1, , , , , , "\1", 2
.Execute "^32{1,}", , , 1, , , , , , "^32", 2
.Execute "([一-﨩]@)^32{1,}([一-﨩]@)", , , 1, , , , , 2, "\1\2", 2
End With
这个目的是将拼音音节之前的多余半角空格删除(只保留一个空格)。
这是为什么呢?
|