Replace lines of text from header in multiple files

macropod · #6 05-26-2022, 07:53 AM

Quote:

Originally Posted by PolarPop

For clarification, in my documents, 3 lines would be closely defined as 3 rows. The first is document number, the second is the document effective date, and the third is the page number (page x of y). Each line ends with a ^p.

That means you have 3 paragraphs, not merely a paragraph of 3 lines, in which case -and assuming you want to replace those 3 paragraphs - you could use:

Code:

                                Set wdRngTgt = .Range.Paragraphs.First
                                wdRngTgt.MoveEnd wdParagraph, 2
                                Set wdRngSrc = wdDocSrc.Sections.First.Headers(HdFt.Index).Range.Paragraphs.First
                                wdRngSrc.MoveEnd wdParagraph, 2
                                wdRngTgt.FormattedText = wdRngSrc.FormattedText

Quote:

Originally Posted by PolarPop

What does this do?

Code:

wdRngTgt.FormattedText = wdRngSrc.FormattedText

This does essentially the same as a copy/paste that preserves the source formatting, but without using the clipboard.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replace or apply new header in multiple files	Carchee	Word VBA	42	07-10-2024 08:47 AM
Doc with autoformatted lines not printing text or header - only lines	klunsford11	Word	2	08-07-2020 09:12 PM
VBA to find text, replace with multiple lines of text	noslenwerd	Word VBA	3	12-31-2019 11:04 AM
Find and replace header text across multiple files	LG1972	Excel	1	12-25-2018 04:27 AM
Trying to add space between lines of bulleted text and a new header but both lines are moving???	Martin_d35	Word	2	02-10-2017 07:13 AM