2014-10-07 49 views
0

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

#1
将'Enter'符号替换为MS Word宏中的空格

现在,如果光标旁边就是“爱”,我按下这个宏按钮,它也应该是这样的:

我的名字叫萨米特。我
爱#1

我搜索互联网和写这个(但是这是不工作)

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

我猜你会想改变

.Wrap = wdFindContinue 

.Wrap = wdFindStop 

and

.MatchWildcards = True 

.MatchWildcards = False 

第一变化应防止搜索从光标和第二改变之前围绕回去和替换内容关闭通配符(^ p不是通配符)。

但是,如果这些更改不够,它可能有助于准确了解它是如何工作的。

+0

谢谢克里斯蒂娜,你太棒了。现在它工作正常:) – Ajit 2014-10-07 18:16:28