Reply to thread

Message: [QUOTE="Graham, post: 5871973"] Hi there I have the following code that creates a mail merge final document and names it then allows the user to edit the remaining document. This all works fine but I have added dookmarks to the template to use for selection of text but these bookmarks are missing. Where have I gone wrong with my code? Sub LC1() ' ' LETTER Macro ' Macro created 07/11/2006 by Graham Dingley ' Application.WindowState = wdWindowStateMinimize Dim MMMDoc As Document ' This part creates a new document based on the open template Set MMMDoc = Documents.Open("c:\customers\nelsons\cravefamily.dot") '*************************************** ActiveDocument.MailMerge.OpenDataSource Name:="C:\WPDOCS\LC1.DOC", _ ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _ :="" ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False With MMMDoc.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=True End With MMMDoc.Close SaveChanges:=wdDoNotSaveChanges Set MMMDoc = Nothing Selection.HomeKey Unit:=wdStory Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="CasePath" .DefaultSorting = wdSortByName .ShowHidden = False End With ' This part goes to the start of the document and sets up a Bookmark called CasePath using the field CASEPATH from Lawmaster CasePath = ActiveDocument.Bookmarks("CasePath").Range.Text ChangeFileOpenDirectory CasePath ActiveDocument.SaveAs FileName:="Family Crave - " & Format(Now(), "dd-mm-yyyy hh-mm-ss") & ".doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False ' After saving the document the bookmark is removed then document is resaved, the cursor is sent to the end of the document and Word is maximised to allow the user to carry on typing Selection.HomeKey Unit:=wdStory Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 CommandBars("Mail Merge").Visible = False ActiveDocument.Save Selection.EndKey Unit:=wdStory Application.WindowState = wdWindowStateMaximize Selection.EndKey Unit:=wdStory Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 CommandBars("Mail Merge").Visible = False ActiveDocument.Save Application.WindowState = wdWindowStateMaximize Selection.HomeKey Unit:=wdStory End Sub Thanks in advance for any help. [/QUOTE]

Verification