Macro Instructions | Word Copy Multiple Documents into One [Macro #21] | Macro Monday 05.25.20
Have you ever had different Word Documents coming from various sources and need to combine them into one? Say for example a different team member is assigned to work on the Beginning, Middle, and End of a paper. Once each part is complete you have to open each Word Document, select all the content, then copy and navigate back to your original document to paste. Fortunately, there is a better way with VBA! With the Copy Multiple Documents into One macro you can quickly combine all these Word Documents with one click! This Word macro loops through all the existing Documents found at the Folder Path. By Default, the Folder Path is the location of the Active Word Document. Each Document found is opened, copied, and pasted into the original Word Document. By Default, the content will be pasted at the End of the Document. (You can customize this and alternatively paste the Beginning) Before pasting additional text is entered to indicate where the content originated from. This helps you know if the content needs to be moved because it is out of order. Prior to running this macro, you can rename the Word Documents in a way that the order is correct instead of having to move the content after the fact. This Word macro allows you to delegate more work because you can efficiently combine all the efforts of your team.
First time using VBA? You just need to complete 3 easy steps that only take a couple minutes to complete: Activate the Developer Tab, Update Macro Security, Setup References for Leverage & Lean macros. I'll show you how to do all of this in this Macro Monday video!
Want to make this macro your own? These lines of code can be customized to personalize this macro.
15. 'Selection.HomeKey wdStory 'Move to Start of the Master Document If you want the copied content to be pasted to the Beginning of the Master Document remove the comment in code line 15 and make code line 16 a comment
16. Selection.EndKey wdStory 'Move to End of the Master Document By Default the copied content will be pasted to the End of the Master Document
18. FolderPath = Left(ActiveDocument.FullName, Len(ActiveDocument.FullName) - Len(ActiveDocument.Name)) 'Active Document File Path By Default the Folder Path is the Active Word Document but you can change this to a different path if desired
35. Selection.InsertAfter ("***Content from " & Left(oFile.Name, InStr(1, oFile.Name, ".") - 1) & ":" & vbNewLine) 'Source of the content Remove or make this code line a comment to NOT get the indication of where the content was copied from
41. MsgBox "Multiple Word Documents have been copied into this one!" Remove the MsgBox or make it comment to not see it once the macro finishes
#LeverageLean #LessClicksMoreResults #MacroMonday #VBA #Macros
Checkout this Word Macro page: https://leveragelean.com/macros/word/...
Find more content on our website: https://leveragelean.com
Watch all of our Macro Monday Videos on our YouTube playlist: • Macro Instructions | Macro Mondays
Subscribe to our YouTube Channel to stay up to date on all of the videos we are posting.
/ @leveragelean
Like us on Facebook: / leveragelean
Follow us on Twitter: / leveragelean
Connect with us on LinkedIn: / brentschneider-leveragelean
Check us out on Instagram: / leveragelean
Leverage & Lean is focused on improving computer processes by Leveraging programming and applying Lean principles. It is our goal to make you more efficient and effective on your computer producing "Less Clicks and More Results!" To see our content visit LeverageLean.com where we have Visual Basic Applications (VBA) Macros in Excel, Outlook, and Word that automate repetitive computer tasks. You can start using this macro today for FREE, No Charge, No Gimmicks!!! Come visit us and watch our additional Macro Instructions videos to see how to implement our VBA macros in your computer processes and customize them meet your specific needs. Macros helps save time and time is money it’s as simple as that! Also, walkthrough our PDF Tutorials step by step or watch our See How videos to utilize computer settings that have been hiding in plain sight. Read our weekly Insights that open your mind and challenge you to start improving your computer processes. Leverage & Lean Insights are a quick read (less than 1 minute on average) but can be a great reset to your day and help you focus on how to start winning on your computer!
Stay Awesome,
Brent Schneider
Leverage & Lean
Est. 2017