Access App / Word Document Focus

[chazroma]

I've managed to open a server-stored word document from a button in my Access app. However, even though I code objWord.Visible = True, I cannot make the word document the primary object on the screen (max it out, or set focus to it). The focus remains on the app, and the word document is a tab on the task bar at the bottom. The user can click and open it up, but I want it to automatically be the window in focus when the app opens it.

How do I do that? I've searched all options for the word document in the Access/VBA and can't do it. I would think it would be a easy thing to do.

Chuck C.

[ADezii]

@chazroma
How about Posting the code that Opens the Word Document? On second thought, I can't see why either approach will not work below:

Public Sub OpenWordDoc(strDocName As String)
Dim objApp As Object
 
If strDocName = "" Or Dir$(strDocName) = "" Then Exit Sub
 
Set objApp = CreateObject("Word.Application")
 
objApp.Visible = True
objApp.Documents.Open strDocName
End Sub

Call OpenWordDoc("C:\Test\Doc Files\YaDa - YaDa.doc")

OR

Public Sub OpenWordDoc_2(strDocName As String)
Dim varRet As Variant
 
'May need to adjust but this is the Default Location
Const conPATH_TO_Word As String = "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE"
 
If strDocName = "" Or Dir$(strDocName) = "" Then Exit Sub
 
varRet = Shell(conPATH_TO_Word & " " & Chr$(34) & strDocName & Chr$(34), vbMaximizedFocus)
End Sub

Call OpenWordDoc_2("C:\Test\Doc Files\YaDa - YaDa.doc")

[chazroma]

Sorry. I've not used this site before.

Here is the code that opens the word document. I want it to be "front" and center after the user clicks on the message box.

***-------------***
Dim objWord As New Word.Application
Dim objWordDoc As Word.Document
If Me.ICP_JH_ExpandedHHC.Value = -1 Then
Set objWordDoc = Nothing 'Initialize Word
Set objWord = Nothing
strTemplate = "\\Pbosbapp01\Apps\RLTC\Intake\Production\Backup\V BA_Code_Files\JHProviderEligibilityIntake52110.doc "
objWord.Visible = True
Set objWordDoc = objWord.Documents.Add(strTemplate)

msg = "Please read the appropriate ICP Guidelines in the Word document" & Chr$(10)
msg = msg & "opened in task list at the bottom of your screen." & Chr$(10) & Chr$(10)
msg = msg & "Re-open Call Log when finished." & Chr$(10) & Chr(10)
msg = msg & "After reading, close this message to continue with Intake." & Chr$(10)
msg = msg & "You may close the Word doc whenever you choose."
retcode = MsgBox(msg, vbInformation + vbOKCancel, "ICP Guidelines")

If retcode = vbCancel Then
msg = "The JH Expanded HHC ICP option box will be deselected and the " & Chr$(10)
msg = msg & "ICP word document closed. Please wait for checkmark deletion."
MsgBox msg, vbInformation, "ICP Guidelines"
ICP_JH_ExpandedHHC.Value = 0
objWordDoc.Close wdDoNotSaveChanges
objWord.Quit
Set objWordDoc = Nothing
Set objWord = Nothing
End If
End If