Microsoft Office Forums - View Single Post - [Solved] Copying is causing header to be lost

Thread: [Solved] Copying is causing header to be lost

View Single Post

Old

12-04-2020, 03:44 PM

eduzs

eduzs is offline

eduzs uses Windows 10

Windows 10 eduzs uses Office 2019

eduzs uses Office 2019

Office 2019

Expert

The original poster

Join Date: May 2017

Posts: 266

eduzs is on a distinguished road

Default

I found a solution that works fine:

Code:

Set oRng = nDoc.Sections(x).Range
oRng.MoveEnd wdCharacter, -1
oRng.Copy
nDoc2.Range.PasteAndFormat wdFormatOriginalFormatting

Thanks all!

__________________
Backup your original file before doing any modification.

Reply With Quote