Solved

How to open a Word doc in VBA (2)

Posted on 2014-11-20
6
158 Views
Last Modified: 2016-02-10
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.
0
Comment
Question by:CRB1609
  • 2
  • 2
  • 2
6 Comments
 
LVL 26

Accepted Solution

by:
Nick67 earned 250 total points
ID: 40456236
"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
 
LVL 30

Assisted Solution

by:hnasr
hnasr earned 250 total points
ID: 40457164
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
 

Author Comment

by:CRB1609
ID: 40458943
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
Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

 
LVL 30

Expert Comment

by:hnasr
ID: 40460403
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
 
LVL 26

Expert Comment

by:Nick67
ID: 40463269
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
 

Author Closing Comment

by:CRB1609
ID: 40585610
Thank you both.  My aplogies for not closing this sooner.
0

Featured Post

Complete Microsoft Windows PC® & Mac Backup

Backup and recovery solutions to protect all your PCs & Mac– on-premises or in remote locations. Acronis backs up entire PC or Mac with patented reliable disk imaging technology and you will be able to restore workstations to a new, dissimilar hardware in minutes.

Join & Write a Comment

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
QuickBooks® has a great invoice interface that we were happy with for a while but that changed in 2001 through no fault of Intuit®. Our industry's unit names are dictated by RUS: the Rural Utilities Services division of USDA. Contracts contain un…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now