VBA to find text, replace with multiple lines of text

gmaxey · #2 12-30-2019, 05:42 PM

Well TabValue (assuming that has been set to the value of your long string of replacement text) is too long for a Replacement.Text property.

You could have that long string set somewhere in the document e.g., a bookmark named "bmText" and use:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim strFind As String
Dim strReplace As String
  strFind = "<<testtag>>"
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = strFind
    While .Execute
      oRng.Text = ActiveDocument.Bookmarks("bmText").Range.Text
      oRng.Collapse wdCollapseEnd
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and replace header text across multiple files	LG1972	Excel	1	12-25-2018 04:27 AM
Find & Replace text in Field Code across multiple documents	RPM7	Word VBA	6	05-12-2017 12:58 AM
Need assistance to find and replace text within headers/footers in excel - multiple worksheets	teddycatnc	Excel	3	03-07-2016 12:04 AM
Macro to find coloured text and replace with form-field/formtext containing that text	tarktran	Word VBA	1	11-26-2014 08:12 AM
Find and Replace multiple lines/paragraphs	jcw	Word	1	11-18-2011 11:47 AM