2014-10-07 50 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