Old macro in Word 2003 Do no work in Word2010

Michael007 · #1 09-06-2015, 07:33 AM

Hello every one,

I have a macro that used to work well. However, it seems to bug with my new Word 2010. Let me give a piece of the code:

Quote:

Application.ScreenUpdating = False

Dim strFind As String, strRep As String, a As Integer
strFind = strFind & "TEMISCAMINGUE,ABITIBI,PARENT - RESERVOIR GOUIN,MATAGAMI,WASKAGANISH"

strRep = strRep & "WBA,YVO,WPK,YNM,YKQ"

With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchWildcards = True
.Text = "^13"
.Replacement.Text = "^l"
.Execute Replace:=wdReplaceOne
.Text = "([^13]{2}[!^13]{1;})^13"
.Replacement.Text = "\1^l"
.Execute Replace:=wdReplaceAll

At the last line of the code, I receive the message "Error 5560". "text searched contains a criteria not valid"

Anybody has a clue?

Michael

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert Word 2007 macro to work in Word 2003	Kamaflage	Word VBA	1	02-25-2015 11:40 PM
HTML Links do not work in MS Word 2003	mswny	Word	20	10-11-2014 02:25 PM
Word 2003 Macro problem running in Word 2010	norwood	Word VBA	2	02-03-2014 06:49 PM
Cross referencing does not work in word2010	alex2356	Word	1	06-13-2013 11:32 AM
I created a survey in word 2003 but it does not work	sqlcool	Word	1	04-06-2012 03:06 AM