How do I work with 2 Word Documents in Access?

[newboy18]

Please help, I have a routine that opens a Word doc from Access, but now I want to open 2 documents at the same time. How do I set 2 variables so that I can activate one, then switch and activate the other?

Public Const WordDot As String = "c:\Test.dot"

Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application&quot
Documents.Open WordDot, , ReadOnly
ActiveDocument.Select

ActiveDocument.Close (wdDoNotSaveChanges)
objWord.Quit
Set objWord = Nothing

 

[KarMac21]

Try this:

Dim oWord as New Word.Application

Private Sub OpenDocs()
Dim docFile1 as Document, docFile2 as Document

Set docFile1 = oWord.Open("c:\File #1",,ReadOnly)
Set docFile2 = oWord.Open("c:\File #2",,ReadOnly)

'Select which file you want active at the time
docFile1.Select (or could be docFile2.Select)

End Sub

Hope this gets you on the right track!
Shane

 

[newboy18]

Thanks Shane,
I tried something like that but it wont accept "objWord.Open" in the 4th line:

When I tried to run it it gives the error:
"Method or data member not found"

Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application&quot
Dim docType1 As Document, docType2 As Document
Set docType1 = objWord.Open(WordDot, , ReadOnly)
Set docType2 = objWord.Open(WordDot, , ReadOnly)
docType1.Select

 

[newboy18]

I found that it would accept:

Set docType1 = objWord.Documents.Open(WordDot, , ReadOnly)
But then "docType1.Select" would not work

 

[newboy18]

Has anyone else got a solution to my problem please ?