Removing Duplicate Text in a Document

macropod · #1 10-25-2014, 12:13 AM

Your .Text = expression isn't what I posted.

What separates the entries? The Find/Replace expression I posted assumes a single paragraph break.

rsrasc · #2 10-25-2014, 05:47 AM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Locating and removing large, duplicate blocks of copy in word	markaffleck	Word	2	06-05-2014 10:12 PM
Removing blank pages at the end of a document	Xanzia	Word	3	06-01-2014 11:13 AM
Finding duplicate sentences in a document	seascape	Word VBA	1	02-18-2014 12:31 AM
Removing duplicate index entries	Bengt	Word	5	03-01-2013 02:01 AM
Saving Word document creates a duplicate transparent file	bbailey	Word	0	12-05-2009 10:54 PM