Open newly merged document?

[sandi v]

Hello! I'm new here, and this looks like the place I need to be! I see a lot of familiar friendly names from other forums. I hope someone can help me. I've got a good start on a template that creates letterhead for one of several office locations chosen on user form, and then performs a mail merge. I recorded macros to connect the data source and then perform the merge. They work. Next, I would like to show the newly merged document to the user. Currently, whatever document the user last had open remains the active document. I've searched and searched, but cannot find the answer. Can anybody help? I'm not a programmer; so please be gentle

Public Sub macConnectDataSource()

  
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "\\serverPATH\SampleData.csv" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
        :="", SubType:=wdMergeSubTypeOther
        
    ActiveDocument.SaveAs "c:\temp\TempMergeForm.docx"
      

End Sub



Public Sub macRunMerge()

    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
        
        
    End With


'this closes the merge form, so user can see the merged document.
Documents("c:\temp\TempMergeForm.docx").Close SaveChanges:=wdDoNotSaveChanges


'The merged document gets the focus if user has no other documents open
'NOW: how to get focus on the merged form letters in event user
'has other documents open?

        'ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges  !  this closes the merged form
        'ActiveDocument.SetFocus ! not supported
        'Application.ScreenRefresh ! does nothing
        'ActiveDocument.ActiveWindow.Activate ! causes document to detach
'ActiveDocument.Activate

'ArrangeWindows

'End Sub

'Public Sub ArrangeWindows()

'Documents(1).Close wdDoNotSaveChanges
'Documents(2).Activate
'Documents("Form Letters18").Activate

    
End Sub

[gmayor]

If the merged document is not already open, the merged document is called LettersN where N is a number that reflects the number of merges. That being the case you can step through the windows collection (backwards, as the just merged document should be the last in the stack) look for that name and activate that window e.g.

Dim i As Integer
    For i = Windows.Count to 1 Step -1
        If Windows(i) Like "Letters?" Then
            Windows(i).Activate
            Exit For
        End If
    Next i

[sandi v]

Thank you SO MUCH!!!

If the merged document is not already open, the merged document is called LettersN where N is a number that reflects the number of merges. That being the case you can step through the windows collection (backwards, as the just merged document should be the last in the stack) look for that name and activate that window e.g.

Dim i As Integer
    For i = Windows.Count to 1 Step -1
        If Windows(i) Like "Letters?" Then
            Windows(i).Activate
            Exit For
        End If
    Next i