出来乍到，我也有一题：给文档的每个字符后面加一空格，VBA?

菊石泽露

出来乍到，我也有一题：给文档的每个字符后面加一空格，或一回车，VBA实现?

c81

录一下即可得到。

Sub Macro1()
'
' Macro1 Macro
' 宏在 2007-2-5 由 c 录制
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([一-﨩])"
        .Replacement.Text = "\1 "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

不好意思，我没看清题目以为是每个汉字后。不过楼主是可以自己录个宏，参考下面孔版主方法修改试试。

[此贴子已经被作者于2007-2-5 11:38:57编辑过]

konggs

欢迎新朋友。

Sub cc()
With ActiveDocument.Content.Find
    .Execute findtext:="^?", MatchWildcards:=False, replacewith:="^&^p", Replace:=wdReplaceAll
End With
End Sub

菊石泽露

谢谢c81和孔兄回复，长不少见识！谢谢！

从昨天注册论坛，到今天感觉找到了一些门径，有不少收获！

随着坛子里泡的时间延长，我可能会提出更多的问题。期待朋友帮忙。