How to open a Word doc in VBA (2)

In response to my original question of the same title, hnasr gave me the following code;

    Dim objWord As Object, objDoc As Object
    'Start Word and open a new document
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set objDoc = objWord.Documents.Add
    ' existing doc
    Dim objDoc2 As Object
    Set objDoc2 = objWord.Documents.Add(ReportName)

It worked fine when applied to a standard document, but when I opened a document created in Mail Merge, it did not refresh the selected record.

Any advice?

Thanks in advance.
Clive BeatonAccess DeveloperAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Nick67Commented:
"but when I opened a document created in Mail Merge, it did not refresh the selected record."

Now, that can mean many things.
Does it mean that you want to open the master Word document of a mail merge and move to the last record?
Or something else?


    ' existing doc
     Dim objDoc2 As Object
     Set objDoc2 = objWord.Documents.Add(ReportName)
    objDoc2.MailMerge.DataSource.ActiveRecord = wdLastRecord

Open in new window

should do that for you.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
hnasrCommented:
The add method opens the file in a new document.

Try to replace :
Set objDoc2 = objWord.Documents.Add(ReportName)
With:
Set objDoc2 = objWord.Documents.Open(ReportName)
 
Then check the added statement in Nick67's comment
0
Clive BeatonAccess DeveloperAuthor Commented:
This is what I came up with, reading all the comments:

Public Function OpenWordDocument()

   Dim objWord As Object
   Dim objDoc As Object
   Set objWord = CreateObject("Word.Application")
   objWord.Visible = True
   Dim objDoc2 As Object
   Set objDoc2 = objWord.Documents.Open("C:\Celebrant Assist V3\User Report 1.docx")
   objDoc2.MailMerge.DataSource.ActiveRecord = wdLastRecord

End Function

If I comment out the last line, it opened an instance of Word containing the data from a test I did directly with Word, but it did not merge with the data in the table.  (There is only 1 record in the table).

If I leave the first line in, it gives a compile error: variable not defined.
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

hnasrCommented:
Try to upload a sample database, with  the required test word documents, in one folder, demonstrating the issue.
This may invites other experts to understand the issue and contribute into its resolution.
0
Nick67Commented:
Ok,
Here's my code for working with my mail merger
        
'open the mergedoc
        Dim oApp As Object
        Dim MlMrge As Object
        Set oApp = CreateObject(Class:="Word.Application")
        oApp.Visible = True
        'this will open a new document based on the path as a template.  Excellent
        'but it doesn't open it as a mail merge
        oApp.Documents.Add "U:\All Users\Templates\Field Repair Welding Procedure Merge.doc"
        Set MlMrge = oApp.ActiveDocument.MailMerge
        With MlMrge        
            'do the merge
            .OpenDataSource Name:="C:\temp\tblWeldProcData.xls", Connection:="DSN=Excel Files;DBQ=C:\temp\tblWeldProcData.xls;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;", SQLStatement:="SELECT * FROM `tblWeldProcData`", SubType:=0 'wdMergeSubTypeOther
            .ViewMailMergeFieldCodes = 9999998 'wdToggle
            .Destination = 0 'wdSendToNewDocument
            .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = 1 'wdDefaultFirstRecord
                .LastRecord = -16 'wdDefaultLastRecord
            End With
            .Execute (False)
        End With
        'save the merged doc
        oApp.ActiveDocument.SaveAs "c:\temp\Repair Procedure Requests\" & Me.Parent.[wo#] & " RPR.doc"
        Dim Thedoc As Object
        'close the mergedoc and any children.
        For Each Thedoc In oApp.Documents
            If Thedoc.Name Like "document*" Then
                oApp.Documents(Thedoc.Name).Close False
            End If
        Next Thedoc
        oApp.Visible = True
        oApp.Quit
        Set oApp = nothing

Open in new window


So, for you, you'll need to get all the elements in order
Open the app
  Dim oApp As Object
        Dim MlMrge As Object
        Set oApp = CreateObject(Class:="Word.Application")
        oApp.Visible = True

Open your existing merge document
Set objDoc2 = objWord.Documents.Open("C:\Celebrant Assist V3\User Report 1.docx")

Adapt the datasource to your requirements.  In code not shown, I blow the results of a query into Excel to use, and then throw away later.
'do the merge
            .OpenDataSource Name:="C:\temp\tblWeldProcData.xls", Connection:="DSN=Excel Files;DBQ=C:\temp\tblWeldProcData.xls;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;", SQLStatement:="SELECT * FROM `tblWeldProcData`", SubType:=0 'wdMergeSubTypeOther
            .ViewMailMergeFieldCodes = 9999998 'wdToggle
            .SuppressBlankLines = True


Then you want to move to the last record
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
With Documents("Main.doc").MailMerge
    .ViewMailMergeFieldCodes = False
    .DataSource.ActiveRecord = wdLastRecord
End With


And show it
oApp.Visible = True
oApp.UserControl = True


Make sense? Try it and post your results
0
Clive BeatonAccess DeveloperAuthor Commented:
Thank you both.  My aplogies for not closing this sooner.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.