![]() ' Close the DIY Template to prevent changing it and then activate the new Word doc 'Select and copy all content from DIY Template to the new Word document Set newWord = wdApp.Documents(1) ' newWord will be the new blank document Set wdDoc = wdApp.Documents(1) ' wdDoc will be the embedded Word doc Set oleObj = Sheet5.OLEObjects("diy_template")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |