Hi all,
Me again! I have the following code, which allows me to transfer information from an excel document to a specific word document letter template, but I would also like to save the word document in a specific folder (which is named after a specific cell in excel and is differnt from the folder that the original word template is located) and give it a specific name based on cell values in the excel worksheet. The file name should be based upon information in cells B17 & C17 and location is T:\Compliance\Complaints and the folder name which is in cell G11. I've been attempting to write without much sucess, any help wold be greatly appreciated.
Please let me know, if you need me to clarify anything
Cheers
![]()
Dim objWord As Object Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Ack Complaint") Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Open "T:\Compliance\Complaints\4. Template Letters\Acknowledgement Letter Shak.docx" ' change as required With objWord.ActiveDocument .Bookmarks("Bookmark1").Range.Text = ws.Range("B7").Value .Bookmarks("Bookmark4").Range.Text = ws.Range("F17").Value .Bookmarks("Bookmark2").Range.Text = ws.Range("F9").Value .Bookmarks("Bookmark3").Range.Text = ws.Range("J9").Value .Bookmarks("Bookmark5").Range.Text = ws.Range("J7").Value .Bookmarks("Bookmark6").Range.Text = ws.Range("F7").Value .Bookmarks("Bookmark7").Range.Text = ws.Range("J7").Value End With Set objWord = Nothing End Sub
Bookmarks