Search a specific string in URLs across multiple Word documents

Here are two utilities for doing batch operations on files in a folder:

• Batch Folder Process Add-In by Greg Maxey
• Document Batch Processes by Graham Mayor, MVP

Similar questions elsewhere:

• https://www.msofficeforums.com/word/29678-how-batch-change-hyperlink-paths-word-2000-a.html
• https://www.msofficeforums.com/word/43284-find-replace-all-word-documents.html
• https://stackoverflow.com/questions/24770163/vb-script-to-find-and-replace-a-url-in-multiple-microsoft-word-documents

See also: https://wordmvp.com/FAQs/MacrosVBA/BatchFR.htm 

Sub BacthFindI()
'Compiled by Greg Maxey
Dim strFileName As String
Dim strFolderPath As String
Dim oDoc As Document
Dim oRng As Range
Dim lngCount As Long

  Application.ScreenUpdating = True
  'Specify folder containing files
  strFolderPath = "D:\Batch\Test Batch\"
  'Loop through all the files  of *.doc type in the directory by using Dir$ function
  strFileName = Dir$(strFolderPath & "*.doc*")
  Do While strFileName <> ""
    Set oDoc = Documents.Open(strFolderPath & strFileName, , , False, , , , , , , , False)
    If Not ActiveWindow.View.ShowFieldCodes = True Then oDoc.Fields.ToggleShowCodes
    Set oRng = oDoc.Range
    With oRng.Find
      .Text = "urldefense"
      Do While .Execute
        lngCount = lngCount + 1
      Loop
    End With
    oDoc.Close wdDoNotSaveChanges
    strFileName = Dir$
  Loop
  MsgBox lngCount
  Application.ScreenUpdating = True
End Sub

To search and count.  Use the above.

To search and revise, use something like the following:

Sub BacthFindII()
'Compiled by Greg Maxey
Dim strFileName As String
Dim strFolderPath As String
Dim oDoc As Document
Dim oRng As Range
  Application.ScreenUpdating = False
  'Specify folder containing files
  strFolderPath = "D:\Batch\Test Batch\"
  'Loop through all the files  of *.doc type in the directory by using Dir$ function
  strFileName = Dir$(strFolderPath & "*.doc*")
  Do While strFileName <> ""
    Set oDoc = Documents.Open(strFolderPath & strFileName, , , False, , , , , , , , False)
    If Not ActiveWindow.View.ShowFieldCodes = True Then oDoc.Fields.ToggleShowCodes
    Set oRng = oDoc.Range
    With oRng.Find
      .Text = "urldefense"
      .Replacement.Text = "someothertext"
      .Execute Replace:=wdReplaceAll
    End With
    oDoc.Fields.ToggleShowCodes
    oDoc.Close wdSaveChanges
    strFileName = Dir$
  Loop
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub

You can search for a specific string, such as "urldefense," across multiple Word documents stored in a single folder. While Microsoft Word does not provide a native feature for multi‑document search, this can be accomplished using either Windows Search or a VBA macro within Word to automate the process.

https://learn.microsoft.com/en-us/office/vba/api/overview/

https://learn.microsoft.com/en-us/answers/questions/5108893/how-to-set-up-searching-within-microsoft-office-fi