View Single Post
 
Old 10-25-2014, 05:47 AM
rsrasc rsrasc is offline Windows 7 64bit Office 2010 64bit
Competent Performer
 
Join Date: Mar 2014
Location: Germany
Posts: 148
rsrasc is on a distinguished road
Default

Hi Macropod,

First, I tried the Find/Replace option as you suggested, but did not work for me.


Second, tried to put it in a macro but still does not work for me.

Sorry, but I don't know how to get this to work.




PHP Code:
Sub MacroDeletingDoubleMCQ() 

lMacroDeletingDoubleMCQ 


    
Selection.Find.ClearFormatting 
    Selection
.Find.Replacement.ClearFormatting 
    With Selection
.Find 
        
.Text "(Question #[0-9]@ \(ACCCC*\)^13)\1" 
        
.Replacement.Text "\1" 
        
.Forward True 
        
.Wrap wdFindContinue 
        
.Format False 
        
.MatchCase False 
        
.MatchWholeWord False 
        
.MatchAllWordForms False 
        
.MatchSoundsLike False 
        
.MatchWildcards True 
    End With 
    Selection
.Find.Execute Replace:=wdReplaceAll 
End Sub 
Reply With Quote