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

macropod · #2 09-06-2015, 06:14 PM

This is probably due to your new system using different regional settings! Change:
.Text = "([^13]{2}[!^13]{1;})^13"
to:
.Text = "([^13]{2}[!^13]{1;})^13"
or:
.Text = "([^13]{2}[!^13]@)^13"
The last version should work regardless of your regional settings.

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