He estado revisando el foro pero no consigo solucionar mi problema Estoy usando Access 2013, en un formulario pulso un botón para verifican el spelling y la gramática de un campo. Para ello uso el verificador de Word. La verificación funciona correctamente. Pero una vez cerrado Word, Access queda en la barra de tareas parpadeando, y tengo que pulsar en el para que se abra y poder seguir trabajando. Quiero que Access se abra automáticamente. He intentado activarlo usando Hwnd, SetForegroundWindow y otro montón de cosas que he visto en el foro, pero nada funciona.
El codigo es:
Private Sub Comando2_Click()
Dim objWord As Word.Application
Dim doc As Word.Document
accessid = GetCurrentProcessId
accesshwnd = Application.hWndAccessApp
Set objWord = CreateObject("Word.Application")
With objWord
Set doc = .Documents.Add
.Selection.Text = Me.Texto0
docum = doc & " - Word"
.Visible = True
VBA.AppActivate (docum)
.Visible = False
.Dialogs(wdDialogToolsSpellingAndGrammar).Show
If Len(.Selection.Text) <> 1 Then
Me.Texto0 = .Selection.Text
' spellcancell = False
Else
' spellcancell = True
End If
doc.Close wdDoNotSaveChanges
.Quit
End With
Set objWord = Nothing
AppActivate (accessid)
SetForegroundWindow accesshwnd
End Sub
Gracias por anticipado por vuestra ayuda Saludos