Open Word Doc in foreground

[patrickmcdiver]

I created a command button that opens a MS Word Doc from my database using the following code:

Dim oApp As Object
Dim strDocName As String

strDocName = "E:\Patrick\Bids\Selling Points\Estimate Pipeline Insp"
Set oApp = CreateObject("Word.Application")


oApp.Visible = True
oApp.Documents.Open strDocName

Problem is, it opens in the background. How do I make this open in the foreground?

[maximus]

Thy this code.This will open your word document in the foreground.

Private Sub Command1_Click()

Dim LWordDoc As String
Dim oApp As Object

'Path to the word document
LWordDoc = "E:\Patrick\Bids\Selling Points\Estimate Pipeline Insp"

If Dir(LWordDoc) = "" Then
MsgBox "Document not found."

Else
'Create an instance of MS Word
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True

'Open the Document
oApp.Documents.Open filename:=LWordDoc
End If

End Sub

Please mark this thread solved if this solves your problem.