#1
|
|||
|
|||
Batch editing text in text box of multiple word documents
I am new on vba and I am trying to edit and replace text in text box of multiple word documents. All the solutions I found only replace text string in normal settings, not in text boxes. How do I go about this? |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
Quote:
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 |
#4
|
||||
|
||||
It is better for you to learn how to help yourself than for someone to do it all for you.
Greg's code shows you HOW to find the text but it does not actually change anything (it just selects it for an instant) because you weren't specific about what you wanted to find and what you wanted to replace it with. Study some of the other solution examples you referred to in your first post to see how they are coded. You specifically need to look for lines that mention ".Replacement.Text" and "wdReplaceAll". Study the code in those samples and compare them with the code Greg gave you. If you still can't work it out then by all means come back here for more guidance but you should demonstrate that you made some effort to understand the code first.
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
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 |