Batch editing text in text box of multiple word documents

gmaxey · #1 01-06-2024, 02:41 AM

You have to target the right storyrange:

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.StoryRanges(wdTextFrameStory)
  Do
    With oRng.Find
      .Text = "Test"
      While .Execute
        oRng.Select
      Wend
    End With
    Set oRng = oRng.NextStoryRange
  Loop Until oRng Is Nothing
lbl_Exit:
  Exit Sub
End Sub

jabb · #2 01-08-2024, 05:39 AM

Quote:

Originally Posted by gmaxey

You have to target the right storyrange:

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.StoryRanges(wdTextFrameStory)
  Do
    With oRng.Find
      .Text = "Test"
      While .Execute
        oRng.Select
      Wend
    End With
    Set oRng = oRng.NextStoryRange
  Loop Until oRng Is Nothing
lbl_Exit:
  Exit Sub
End Sub

I was trying to add codes to replace the text that your code selects as target with .Replecement.Text = “something”. It does not replace it. It might be a very basic problem but I can’t seem to solve it. Also added a folder path search to change every doc in that folder. What I have in my code might have a lot of holes in it.

Code:

 Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
  '  Initialization
  strFolder = InputBox("Folder Path")
  strFile = Dir(strFolder & "*.docx", vbNormal)
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
    With objDoc
Dim oRng As Range
  Set oRng = ActiveDocument.StoryRanges(wdTextFrameStory)
  Do
    With oRng.Find
      .Text = "Test"
      While .Execute
        oRng.Select
      Wend
    End With
    Set oRng = oRng.NextStoryRange
  Loop Until oRng Is Nothing
lbl_Exit:
  Exit Sub
End With
 
  Wend
   
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Batch change headers en footers in multiple documents	Kipvis	Word VBA	1	04-14-2023 07:55 AM
Batch Editing Word documents	sakhtar6	Word VBA	6	03-02-2020 02:49 PM
Finding specific text in IF-fields across multiple Word documents	Office_Worker	Word VBA	7	10-19-2017 03:50 AM
batch extract all tables in multiple word documents	ZaidaBa	Word Tables	3	05-08-2017 10:22 PM
Inputing Text from Excel sheet to multiple Word documents and Visio File	Jazz43	Office	1	05-30-2013 02:08 PM