替换'输入'符号到MS Word宏中的空白区域

时间:2014-10-07 18:06:50

标签: vba ms-word ms-office word-vba

我想录制一个宏,以便它将当前光标位置后的所有“换行符号”替换为空格。 例如,如果文本是:
我的名字是Sumit。我

Stackoverflow

现在如果光标就在'love'旁边,我按下宏按钮就应该是这样的:

我叫Sumit。我
 喜欢Stackoverflow

我搜索了互联网并写了这个(但这不起作用)

Sub Replace()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

1 个答案:

答案 0 :(得分:1)

我猜你想要改变

.Wrap = wdFindContinue

.Wrap = wdFindStop

.MatchWildcards = True

.MatchWildcards = False

第一个更改应该阻止搜索返回并在光标之前替换内容,第二个更改将关闭通配符(^ p不是通配符)。

但如果这些变化不充分,那么确切地知道它是如何工作的可能会有所帮助。