Personal website of Gregory K. Maxey, Commander USN (Retired)
Do you have ad-blocking software enabled? While I respect your right to do so, your donations and the minimal advertisements on this site help to defray internet and other costs of providing this content. Please consider excluding this website from blocking or turning off the blocker while browsing this site.
The information, illustrations and code contained in my "Microsoft Word Tips" are provided free and without risk or obligation.
However, the work is mine. If you use it for commercial purposes or benefit from my efforts through income earned or time saved then a donation, however small, will help to ensure the continued availability of this resource.
If you would like to donate, please use the appropriate donate button to access PayPal. Thank you!
This Microsoft Word Tips & Microsoft Word Help page is one of my earliest offerings that has held its value. Do you often work with a group of say half a dozen files scattered across two or more folders?
The macros in this tips page will allow you to quickly save and close all of your group of files and then reopen the entire group with a click of a button anytime you want to work with that group of files again.
Start with all files in your group opened. The first macro saves all open files
Sub GroupSave() Documents.Save NoPrompt:=True lbl_Exit: Exit Sub
The second macro writes the file name and path to a .txt file, saves, and finally closes the group of open files:
Sub CloseFilesAndStoreList() Dim strSettingsFile As String Dim oDoc As Document strSettingsFile = Options.DefaultFilePath(wdDocumentsPath) & "\GroupFileList.txt" Open strSettingsFile For Output As #1 For Each oDoc In Documents Print #1, oDoc.FullName oDoc.Close wdSaveChanges Next Close #1 End Sub
The final macro opens all the files in a .txt file "GroupFileList.txt" stored in your default documents folder:
Sub OpenListOfFiles() Dim strSettingsFile As String Dim arrFiles() As String Dim i As Long strSettingsFile = Options.DefaultFilePath(wdDocumentsPath) & "\GroupFileList.txt" Open strSettingsFile For Input As #1 arrFiles() = Split(Input(LOF(1), #1), vbCrLf) Close #1 For i = 0 To UBound(arrFiles) - 1 Documents.Open arrFiles(i) Next lbl_Exit: Exit Sub End Sub
I have provided a simple template add-in with a toolbar. Once you have intially opened your group of files "the old fashioned way," the toolbar can be used to save all the open files in your group, save and close the group, and reopen the group.
That's it! I hope you have found this tips page informative and you find the template add-in useful. Download the add-in here: Group File Opener
Do you want to make a payment for consulting work or donate to help support this site?
PayPal is a safe, easy way to pay online.
Use the appropriate currency "Donate" button to make a payment or donation.