Set wdDocTgt = ActiveDocument: strTgt = ActiveDocument.FullName StrFolder = GetFolder: If strFolder = '' Then Exit Sub docm formats will all be processed, even if different formats exist in the selected folder.ĭim strFolder As String, StrFile As String, strTgt As Stringĭim wdDocTgt As Document, wdDocSrc As Document, HdFt As HeaderFooter Simply select the folder to process and all documents in that folder will be combined into the currently-active document.

Neither does it attempt to deal with the effects on footnote or endnote numbering & positioning (additional code would be required for that) or with the consequences of duplicated bookmarks (only one of which can exist in the combined document) and any corresponding cross-references. The following Word macro ( for Windows PCs only) handles the more common issues that arise when combining documents it does not attempt to resolve conflicts with paragraph auto-numbering, document -vs- section page numbering in 'page x of y' numbering schemes, Tables of Contents or Indexing issues. Problems arise when the documents have different page layouts, headers, footers, page numbering, bookmarks & cross-references, Tables of Contents, Indexes, etc., etc., and especially when those documents have used the same Style names with different definitions.

Consequently, combining multiple documents is often rather more complex than simply copying & pasting content from one document to another. Users occasionally need to combine multiple documents that may of may not have the same page layouts, Style definitions, and so on.

Combine multiple openoffice documents