Combining documents loses footer info.

macropod · #4 01-31-2018, 01:38 PM

Try changing:

Code:

                With Rng
                    .Collapse wdCollapseEnd
                    Call LayoutTransfer(DocSrc, DocTgt)
                    .FormattedText = DocSrc.Range.FormattedText
                    .Collapse wdCollapseEnd
                    '.Fields.Add Range:=Rng.Sections(-1).Footers(wdHeaderFooterPrimary).Range., Type:=wdFieldEmpty, Text:="INCLUDETEXT &""C:\\MERGEDOCS\\01_All\\Footer.docx"","
                    '.InsertBreak Type:=wdSectionBreakNextPage
                End With

to:

Code:

                With Rng  
                    .Collapse wdCollapseEnd 
                    .InsertBreak Type:=wdSectionBreakNextPage 
                    .Collapse wdCollapseEnd 
                    Call LayoutTransfer(DocSrc, DocTgt) 
                    .FormattedText = DocSrc.Range.FormattedText
                End With

and reinstating:

Code:

                For Each HdFt In .Sections(.Sections.Count - 1).Footers 
                    With HdFt.Range 
                        .FormattedText = DocSrc.Sections.Last. Footers(HdFt.Index).Range.FormattedText 
                        .Characters.Last.Delete 
                    End With 
                Next

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
combining word documents	jesselscott	Word	1	04-28-2015 09:55 AM
Combining Footer Sections	williams	Word	6	03-04-2015 09:43 AM
Combining/merging documents	hawkeyefxr	Word	11	08-03-2012 03:01 AM
Combining documents of different formats	Blaie	Word	1	06-04-2011 06:35 PM
Combining Word Documents	dms997	Word	5	02-26-2011 03:25 AM