Microsoft Office Forums - View Single Post - [Solved] Combining documents loses footer info.

macropod · 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