Macro to check the existence of a word docx file and create a new word file with specific content.

gmayor · #12 11-14-2016, 05:32 AM

Without the documents this cannot be tested, but a few observations are warranted.

Why have you created another variable for strSubFolderNewName?

Code:

strpat = strSubFolderNewName

Use the strSubFolderNewName name you have already defined.

Your FileExists statements are never true because strSubFolderName doesn't end in a folder separator character, so the documents cannot be created. Thus the lines e.g.

Code:

Case fso.FileExists(strpat & "Mail AU.docx")
            Set oDoc = Documents.Add(Template:=strpat & "Mail AU.docx")
            'etc

should probably be

Code:

Case fso.FileExists(strSubFolderNewName & "\" & "Mail AU.docx")
            Set oDoc = Documents.Add(Template:=strSubFolderNewName & "\" & "Mail AU.docx")
            'etc

You have declared and defined some variables 'anexa#' but not used them?
You have created CreateObject("Scripting.FileSystemObject") twice as fso and oFSO. You only need to create it once and use the same object twice.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to highlight repeated words in word file and extract into excel file	aabri	Word VBA	1	06-14-2015 07:20 AM
Word 2007 , when I save a .doc or .docx file the file type is showing "Empty"	Tomc29	Word	9	06-10-2015 03:04 AM
How to create a MS word file that automatically logs something specific inside other WORD files?	meys	Word VBA	1	01-04-2015 05:22 AM
Macro to create new word doc and save the file using String found in the document	VBNation	Word VBA	2	02-08-2013 07:14 AM
Word Macro That Checks a Check Box Form Field When File Print is Executed	DKerne	Word VBA	4	06-09-2011 11:54 AM