how do I replace string 123-4 with 123 4

davidjm · #17 11-02-2021, 03:03 AM

Hi,
Trying to run this code

Code:

Sub FindTemplate()
  Dim aRng As Range, str As String, int1 As Integer, int2 As Integer, arrStr() As String
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .MatchWildcards = True
    .Text = " [0-9]{2,3}"
    Do While .Execute = True
      arrStr = Split(aRng.Text, " ")
      int1 = CInt(arrStr(0)) + 2
      aRng.Text = " " & int1
      aRng.Collapse Direction:=wdCollapseEnd
      aRng.End = ActiveDocument.Range.End
    Loop
  End With
End Sub

but it's throwing a a Type mismatch error 13 on

Code:

      int1 = CInt(arrStr(0)) + 2

Why is that? What am I doing wrong?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replace characters in a string	Marcia	Excel Programming	5	05-04-2020 05:15 AM
Wildcard replace any string in context with a specified string	wardw	Word	7	05-07-2018 09:13 AM
Replace multiple strings by one same string at once	puff	Word	2	02-28-2018 11:04 AM
Replace characters in a string	Anthon	Excel Programming	1	11-03-2016 12:48 AM
How to do multiple find and replace in string.	PRA007	Word VBA	2	01-06-2016 09:10 PM