How to overcome VBA ms.word-replace-macro 255 limitation

[h_tere2000]

Hi all,

I've been searching for a solution for this problem for days.
I'm not using the vba replace function instead I'm using the word
replace macro.

Problem is this macro will not accept text exceeding 255 characters.
Note: Line 6 where value inserted to "replacement.text" assigned to
"replacement_"
And error occurs in this scenario.

Is there a way to insert more than 255 characters using the ms.word-
replace macro below?
I need to use the ms.word-replace macro below, because it can insert
the data in right places in the document.

Please help me on this, thanks!

Word Replace Macro
================
Private Sub Replacer(target_, replacement_)
   'Dim replacement_ As Long

   With Selection.Find
       .Text = target_
       .replacement.Text = replacement_  <----Error Prompt - String too Long
       .replacement.Font.Hidden = False
       .Execute Replace:=wdReplaceOne, Forward:=True
   End With
   Selection.Find.Execute
       With Selection
       If .Find.Forward = True Then
           .Collapse Direction:=wdCollapseStart
       Else
           .Collapse Direction:=wdCollapseEnd
       End If
       .Find.Execute Replace:=wdReplaceOne
       If .Find.Forward = True Then
           .Collapse Direction:=wdCollapseEnd
       Else
           .Collapse Direction:=wdCollapseStart
       End If
       .Find.Execute
   End With

   Call StartPointer
End Sub

[Davadvice]

where did you get this Macro From ?

the property for

.replacement.Text

is the issue. i would imagine that you will need to code some sort of replace function to overcome this as it seems like a restriction with selection object.

i'm sure there will be some samples of how to find an replace data in word on here try a search.

David

[Siddharth Rout]

One logic (untested) that you can follow is

1) Split the replacement string in two parts
2) Replace the Search string with the first part of the replacement string
3) Now search for the first part of the replacement string and add (not replace) the 2nd string to it...

Hope I make sense...

[h_tere2000]

Davadvice,

hmm..i got this macro from the ctrl-f function at microsoft word. I used the macro recorder to extract the syntax.

But it seems that the "find" object members .replacement.text has this 255 character limitation.

I'did as search on the web on this, but i could find a compatible one, or i got lost in the code.

Koolaid,

You logic is noted, in fact before reading your posting I'm almost completed the actual coding. I'll post it here to share. if it works. haha

thanks guys! other avenues are also welcomed.

[Ecniv]

Hi,

If you can find and erase the text, your pointer should still be in the documents range? If it is, you can inserttext at a point in the range, which should be the >255 characters you want.

Not sure if this makes sense... hehe but might be another option?

[h_tere2000]

TADA!

Private Function longReplacer(target_, replacement_)
    Dim r_List As Object
    Dim replacement_edit As String
    Dim limit_ As Integer
    Dim dynlimit_ As Integer
    Dim i_ As Integer
    Dim start_ As Integer
    Dim loop_ As Integer
    Dim parts_ As String
    
    Dim continue_ As String
    dynlimit_ = 0
    i_ = 0
    start_ = 1
    limit_ = (255 - 15)
    continue_ = "<#@187985515@#>"
    
    'Create add dictionary
    'Set r_List = CreateObject("Scripting.Dictionary") 'Adding via array.. adding via loop easier
    
    replacement_edit = replacement_
    
    'Special Round+Increment function for accounting extra text
    loop_ = Abs(Len(replacement_) / limit_)
    If (Len(replacement_) / limit_) - loop_ > 0 Then
        loop_ = loop_ + 1
    End If
    
    dynlimit_ = 1
    'MsgBox loop_ & "<loop" & " " & Len(replacement_) & "<len" & " " & raw_loop_ & "<raw" & " " & (Len(replacement_) / limit_) & "<?"
    If Len(replacement_) >= limit_ Then
        For i_ = 1 To loop_
            If Len(replacement_edit) >= limit_ Then
                parts_ = Mid(replacement_edit, 1, limit_)
                'MsgBox Len(parts_) & vbCrLf & vbCrLf & parts_ & vbCrLf & vbCrLf & Len(replacement_edit) & vbCrLf & vbCrLf & replacement_edit & vbCrLf & vbCrLf & Len(replacement_) & vbCrLf & vbCrLf & replacement_
                
                'remainder
                replacement_edit = Right(replacement_edit, Len(replacement_edit) - limit_)
                'MsgBox Len(parts_) & vbCrLf & vbCrLf & parts_ & vbCrLf & vbCrLf & Len(replacement_edit) & vbCrLf & vbCrLf & replacement_edit & vbCrLf & vbCrLf & Len(replacement_) & vbCrLf & vbCrLf & replacement_
                
                dynlimit_ = dynlimit_ + limit_
            Else
                parts_ = replacement_edit
            End If
            
            If i_ = 1 Then
                'MsgBox Len(parts_ & continue_)
                Call Replacer(target_, parts_ & continue_)
            Else
                'MsgBox parts_
                If i_ <> loop_ Then
                    Call Replacer(continue_, parts_ & continue_)
                Else
                    Call Replacer(continue_, parts_)
                End If
                
            End If
            'replace the target_ & add a continue_code
        Next
    Else
        Call Replacer(target_, replacement_)
    End If
End Function

[h_tere2000]

Hi,

If you can find and erase the text, your pointer should still be in the documents range? If it is, you can inserttext at a point in the range, which should be the >255 characters you want.

Not sure if this makes sense... hehe but might be another option?

But interesting enough! how do i insert text after a replacement? I'tried to select.typetext "xxx" but the "xxx" print appeared on the top of the document.

Can you provide a sample code that words with my "replacer" function?

[Ecniv]

Only vaguely remembering this but I think it is something like:

set rng=doc.range(lngStart,lngEnd) 'start and end are numbers - char position in doc
rng.inserttext("text to add")

If you type inserttext and press f1 the word help file should give further info...


Sorry, its

rng.InsertAfter

[Ecniv]

I think the attached will demonstrate...

Have a look and see if this does what you need...
There may be problems with the find tho depending on your document

[h_tere2000]

superb! Thank Ecniv