![]() |
#6
|
|||
|
|||
![]()
Paul,
I've managed to scrape together code that copies/renames the Plan Word Document and pastes within the same folder as the Excel Workbook. Now I just need to figure out how to run a Mail Merge on the newly created copy of Plan Word Document. Code:
Sub CopyandRename() Dim str1 As String Dim str2 As String str1 = "Q:\IC\New Structure\IC Toolkit\Templates\01 Plan Doc Template\16 Source\IC Plan Doc Template v1.0.docx" str2 = Application.ActiveWorkbook.Path & "\" & Range("A1").Value & ".docx" Call FileCopy(str1, str2) 'Opens New Plan Doc Template Set appWd = CreateObject("Word.Application") appWd.Visible = True appWd.Documents.Open Filename:=Application.ActiveWorkbook.Path & "\" & Worksheets("Form").Range("A1").Value & ".docx" End Sub Again, your assistance is greatly appreciated, Rich |
Tags |
excel vba, mail merge, word vba |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Create PDF | Anitha | Word | 5 | 02-01-2018 11:13 PM |
![]() |
Jil.10 | Word | 4 | 05-09-2016 11:56 AM |
how to create a special template to create a clear lay out for plain text | hex | Word | 1 | 04-01-2016 09:58 AM |
![]() |
bluenosebex | Mail Merge | 5 | 08-02-2015 05:34 PM |
![]() |
acki | Excel | 1 | 01-26-2012 07:49 AM |