VBA to replace a repeated single variable with variable from a list

macropod · #2 08-28-2022, 03:43 PM

At its simplest:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim StrRep As String, i As Long
StrRep = "red|white|blue"
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Wrap = wdFindContinue
  .MatchWildcards = True
  .Text = "<VAR>"
  For i = 0 To UBound(Split(StrRep, "|"))
    .Replacement.Text = Split(StrRep, "|")(i)
    .Execute Replace:=wdReplaceOne
    .Execute Replace:=wdReplaceOne
  Next
End With
Application.ScreenUpdating = True
End Sub

For a similar macro that would contain your replacments in a list in a separate document, see: https://www.msofficeforums.com/132829-post2.html

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
I want to create a bar chart of multiple variable. Then I need to draw trend lin of those variable	shimulsiddiquee	Excel	1	05-16-2017 07:39 AM
ord vba replace the variable text with variable images to make offer products with images	tanzinim	Word VBA	4	12-30-2015 01:40 PM
Run Time Error '91': Object variable or With block variable not set using Catalogue Mailmerge	Berryblue	Mail Merge	1	11-13-2014 05:36 PM
Run-time error 91 object variable or with block variable not set	JUST ME	Word VBA	4	03-25-2014 06:56 AM
Run-time error '91': Object variable or With block variable not set	tinfanide	Excel Programming	2	06-10-2012 10:17 AM