Removing Duplicate Text in a Document

rsrasc · #1 10-25-2014, 12:01 AM

Hi Macropod,

Not sure if I am the problem (surely I am) but I can't get it to work. Can you check the below code?

Thanks,

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

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