VBA code - Transfering from Excel to Word and saving the Word doucment

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