Is this possible to create?

RMerckling · #6 04-18-2018, 09:52 AM

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

All data is contained in "Data" worksheet within the Excel Workbook, and only one single Mail Merge needs to be ran using DDE, preferably.

Again, your assistance is greatly appreciated,
Rich

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create PDF	Anitha	Word	5	02-01-2018 11:13 PM
How to create this?	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
Mail merge from excel - need to create sheets and create a table	bluenosebex	Mail Merge	5	08-02-2015 05:34 PM
create a datafile	acki	Excel	1	01-26-2012 07:49 AM