Can I find-and-replace text in all Quickparts at once?

gmaxey · #2 05-09-2019, 03:42 PM

When you insert quickpart in a document you are left with just inserted content (it isn't a quickpart anymore). After you create your document, try something like this:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim arrTerms() As String
Dim lngIndex As Long
Dim oRng As Range
Dim strReplace As String
  arrTerms = Split("[n],[e],[m]", ",")
  For lngIndex = 0 To UBound(arrTerms)
    strReplace = InputBox("What do you want to replace " & arrTerms(lngIndex) & " with?")
    Set oRng = ActiveDocument.Range
    With oRng.Find
      .Text = arrTerms(lngIndex)
      .Replacement.Text = strReplace
      .Execute Replace:=wdReplaceAll
    End With
  Next lngIndex
lbl_Exit:
  Exit Sub
  
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and replace a text with a field	eduzs	Word VBA	6	02-23-2018 05:19 PM
How To find Text and replace with equation	maamiradina	Word	2	12-17-2016 11:08 PM
Macro to find text and replace with form field containing that text	iiiiifffff	Word VBA	16	06-04-2016 01:47 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 a string of text	errtu	Word	1	01-31-2013 02:09 PM