Boa tarde Amigos
Bem, eu gravo o caminho na minha base de dados de onde se encontra no meu HD,ou rede, um certo arquivo Word.
Quando quero abrir esse arquivo, eu o abro a partir do proprio VB,usando os comandos apropriados e tambem fecho esse arquivo Word dentro do proprio VB.Isso funciona sem problemas.
O problema e que quando eu fecho o arquivo atraves do Word, quando saio do programa em VB, ocorre um erro no fechamento do arquivo, pois o comando do VB (objWord.ActiveDocument.Close SaveChanges:=True) que fecharia o arquivo detecta entao que ele ja foi fechado.
Eu gostaria portanto como detectar se esse arquivo especifico do Word que eu abri a paetir do VB, ja foi ou nao fechado.Acredito que haja algum comando no qual eu possa efetuar uma condicao e se o arquivo estiver fechado, eu simplesmente continuo com minha execcao do programa e se ele estiver aberto, entao sim eu o fecharei.
Eis aqui a rotina que utilizo para abrir o arquivo Word, na pasta onde ele se encontra.
Private Sub CmdAbrir_Click()
Dim strSelect As String
Dim str_IdFile As Double
Dim strCaminho As String
WordConnection strCaminho ' Local onde se encontra o arquivo
End Sub
Public Sub WordConnection(Optional strDocFile As String)
'Create the Word Object
'Dim objWord As Word.Application
Set objWord = New Word.Application
'Use to show or hide Word from the users view
objWord.Visible = True
'Open the Document
objWord.Documents.Open strDocFile
'**********************************
'Perform Actions against Word here
'**********************************
End Sub
Private Sub CmdFechar_Click() ' fecha o arquivo
'Close and Save Changes
objWord.ActiveDocument.Close SaveChanges:=True ' O erro ocorre nessa linha que
fecha o arquivo, caso ele ja
tenha sido fechado
'Quit Word
objWord.Quit
'Destroy the object
Set objWord = Nothing
End Sub
Obrigado a todos
