[Resolvido]O Word não fica Visível

Pessoal Bom dia.

       Utilizo um código disponibilizado aqui no forum, código este que salva informações do access em um arquivo modelo do word através de marcadores. Funciona muito bem, porém o word não abre (fica visível), o código salva o arquivo na pasta, o processo fica andamento no gestor de tarefas do Windows, mas o word não fica vísivel. Gostaria de saber o que tem de errado. Uso a Office 2007.

Private Sub btransfer_Click()

Dim rsCli As Recordset, rspra As Recordset

Set rsCli = CurrentDb.OpenRecordset("SELECT * FROM Cadtaxistas WHERE idtaxista=" & Me.idtaxista)
Set rspra = CurrentDb.OpenRecordset("SELECT * FROM Praça WHERE idpraça=" & Me.idpraça & "")

Dim oApp As Object

     Set oApp = CreateObject("Word.Application")
     With oApp

        Visible = True
     

       .Documents.Add Template:=CurrentProject.Path & "\Transferência.doc", NewTemplate:=False, DocumentType:=0
'========================================================================================================
             
       .ActiveDocument.Bookmarks("Nome").Select
       .Selection.Text = rsCli!Nome
       
       .ActiveDocument.Bookmarks("CPF").Select
       .Selection.Text = Format(rsCli!idCPF, "000.000.000-00")
       
       .ActiveDocument.Bookmarks("Endereço").Select
       .Selection.Text = rsCli!Endereço

       .ActiveDocument.Bookmarks("Bairro").Select
       .Selection.Text = rsCli!Bairro
                           
       .ActiveDocument.Bookmarks("Ponto").Select
       .Selection.Text = rspra!Ponto
       
       .ActiveDocument.Bookmarks("Cor").Select
       .Selection.Text = rspra!Cor
       
       .ActiveDocument.Bookmarks("Alvará").Select
       .Selection.Text = rspra!Alvará
                   
     
               
'========================================================================================================

       .ActiveDocument.SaveAs CurrentProject.Path & "\Transferência\" & Format(Me.idtaxista, "2014000") & ".doc"
       
 If Me.selImprimir.Value = -1 Then
    .ActiveDocument.PrintOut
End If

     
   rsCli.Close
   Set rsCli = Nothing
   
   rspra.Close
   Set rspra = Nothing
   
         
.ActiveDocument.Close
   End With
     oApp.Quit
     Set oApp = Nothing
   
If Me.selAbrir.Value = -1 Then
   Dim nArquivo As String
   nArquivo = CurrentProject.Path & "\" & Format(Me.idtaxista, "000000") & ".doc"
   Call ShellExecute(0, vbNullString, nArquivo, vbNullString, vbNullString, 1)
   
  End If
   
End Sub

Se na hora que o Access está a escrever no Word, falta ae um ponto antes do Visible = True

.Visible = True

Se o probelma for na ultima instrução, tente assim;

Call ShellExecute(hwnd, vbNullString, nArquivo, vbNullString, vbNullString, 3)

Tentei das duas formas mas sem sucesso, o máximo que acontece é a janela do word abrir e logo em seguida fechar

Fecha mesmo ou fica minimizado ?

Aparece o ícone na barra de ferramentas inferior do windows, dura meio segundo e some. É como se ele quisesse abrir mas algo o encerra.

Faça o teste passando o caminho completo do documento e veja o resultado;

Exemplo em C:\

nArquivo = "C:\SeuDocumento.doc"
Call ShellExecute(Hwnd, vbNullString, nArquivo, vbNullString, vbNullString, 3)

Ainda sem sucesso, o ícone aparece e some, será que não é alguma permissão que tem que ter do próprio word?

Não existe nenhuma permissão para esse tipo de comportamento.

Fiz aqui o teste e funciona pleno.

Se preferir, pode anexar aqui parte do seu banco com o referido template do seu Word, para eu ou outros usuários testarem.

Segue o banco dados

Teste por favor;

http://dl.dropboxusercontent.com/u/771097/taxista.rar

JPaulo infelizmente não funcionou, abri o arquivo que me avistes, cliquei no botão transferência, o ícone do word aparece mais some. Será que tem haver com o meu access 2007?

Aqui funfou direitinho, isto se você não alterou nada....   

Eu fiz algumas modificações no código, que estava muito debil.

Se alguma fera aqui, poder testar para sabermos se é mesmo do seu PC, agradecemos.

No form voce coloca o visto na checkbox ?
Se nao colocar ele fecha e nao mostra, mas salva.

JPaulo como o arquivo que enviei o checkbox já estava com visto salvo, nem liguei, mas foi justamente isso que notei agora, e o assinalei, e no finalmente funcionou, poxa vida muito bom, e bastante agradecido. Agora qual foi a mágica, onde estava o erro?

Eu comentei no codigo todas as alterações que fiz para você entender.
Bom final de semana.

Pra você também cara, obrigado mais uma vez, fica na paz.