Word Macro give errror that string is too long

irinarox · #1 11-21-2019, 02:59 AM

Hi guys,

I am trying to write a Macro to replace a string of text with another one, but I receive an error for the text to replace - run time error 5854 - string parameter is too long. I know that the string has more than 255 characters, but I cannot change it and I cannot split it in 2 commands.

Code it like below:
Let Address2 = "{Insert shop address}"
Let Localizedaddress1 = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxx xxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Address2
.Replacement.Text = Localizedaddress1
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Can you please help with how should I modify it in order to work?

Thank you!
Irina

gmayor · #2 11-21-2019, 05:10 AM

You could split it e.g.

Code:

Dim Address2 As String
Dim Localizedaddress1 As String, Localizedaddress2 As String
Dim oRng As Range
    Address2 = "{Insert shop address}"
    Localizedaddress1 = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx "
    Localizedaddress2 = "xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxx xxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        Do While .Execute(findText:=Address2)
            oRng.Text = Localizedaddress1 & Localizedaddress2
            oRng.Collapse 0
        Loop
    End With

irinarox · #3 11-21-2019, 05:55 AM

Thanks! It works great

Now I have an additional question, since one problem is fixed, another one arises

))

Is there a way to add something to the above macro for the text to be replaced and appear in word like this (on line under the other, not on the same line):

xxxxxxxxxxxx
xxxxxxxxxxxxx
xxxxxxxxxxx
xxxxxxxxxxxx

Thank you so much for your help with this! I have struggled with research on this the whole day

irinarox · #4 11-21-2019, 06:20 AM

Solved it with & vbNewLine &

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
inputing japanese string in word's macro = ??	tyki	Word VBA	0	02-29-2016 03:09 AM
How to give multiple styles while inserting string	PRA007	Word VBA	4	01-18-2016 12:00 AM
One long string of text with ; as the delimiter	Laurie B.	Excel	1	02-28-2015 03:02 AM
Macro to create new word doc and save the file using String found in the document	VBNation	Word VBA	2	02-08-2013 07:14 AM
Renaming Word Formfields: string too long error	silverspr	Word VBA	7	01-22-2013 06:20 PM