Microsoft Office Forums - View Single Post - Macro to find a keyword and replace it by inserting the content of another Word document

gmaxey · 09-06-2023, 10:58 AM

Something like this. Assumes your service portfolio document is in the same folder as your collection of description files and your description files are of the .docx format.

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
Dim strPath As String
Dim strKeyWord As String
  Set oRng = ActiveDocument.Range
  strKeyWord = "Orange"
  With oRng.Find
    .Text = "Orange"
    If .Execute Then
      oRng.Text = vbNullString
      strPath = ThisDocument.path & "\"
      oRng.InsertFile strPath & strKeyWord & ".docx"
    End If
  End With
lbl_Exit:
  Exit Sub
  Resume
End Sub

That said, a better idea might just be to create building blocks in a global template addin and use the building blocks to define product descriptions.