ERRO AO FEHAR DOCUMENTO WORD NO VB6
Ola amigos,
estou usando este codigo para abrir um documento do Word:
Dim TesteWord As New Word.Application
TesteWord.Documents.open App.Path & [Ô]\Honda.doc[Ô]
TesteWord.Visible = True
TesteWord.WindowState = wdwindowstatemaximize
Ate aà tudo bem, o problema é na hora de fechar, surge uma mensagem que o arquivo está sendo usado por outro programa...
e pede para fechar. e depois pergunta se deseja salvar este arquivo: [ô]normal.do[ô]t foi alterado.
Alguem ja consegiu contornar este problemas?
estou usando este codigo para abrir um documento do Word:
Dim TesteWord As New Word.Application
TesteWord.Documents.open App.Path & [Ô]\Honda.doc[Ô]
TesteWord.Visible = True
TesteWord.WindowState = wdwindowstatemaximize
Ate aà tudo bem, o problema é na hora de fechar, surge uma mensagem que o arquivo está sendo usado por outro programa...
e pede para fechar. e depois pergunta se deseja salvar este arquivo: [ô]normal.do[ô]t foi alterado.
Alguem ja consegiu contornar este problemas?
no lugar de visible use activate=true ou false
para tirar a mensagem de salvar - ao abrir salve o arquivo em uma pasta e ao fechar delete
para tirar o errro do fechamento vc tem que verificar se o seu documento é o que está aberto e fechar somente ele, qdo vc fecha sem fechar o documento ativo acontece esse erro, etão primeiro vc fecha o documeno ativo depois fecha o word.exe.
a logica é a seguinte.
digamos que vc abra um outro dcumento do word sem ser pelo VB, se vc fechar direto o word.exe este documento também será fechado, já fechando o documento ativo que vc abriu pelo vb continuará aberto.
depois de fechado vc verifica se existe outro documento ativo, caso não vc fecha o word.exe.
para tirar a mensagem de salvar - ao abrir salve o arquivo em uma pasta e ao fechar delete
para tirar o errro do fechamento vc tem que verificar se o seu documento é o que está aberto e fechar somente ele, qdo vc fecha sem fechar o documento ativo acontece esse erro, etão primeiro vc fecha o documeno ativo depois fecha o word.exe.
a logica é a seguinte.
digamos que vc abra um outro dcumento do word sem ser pelo VB, se vc fechar direto o word.exe este documento também será fechado, já fechando o documento ativo que vc abriu pelo vb continuará aberto.
depois de fechado vc verifica se existe outro documento ativo, caso não vc fecha o word.exe.
EU USO ASSIM
Dim WOD As word.Application
Set WOD = New word.Application [ô]Create a new instance of word
WOD .Visible = True [ô]word visivel
With WOD
.CommandBars.ActiveMenuBar.Enabled = False
.CommandBars(1).Enabled = False
.CommandBars(2).Enabled = False
.Documents.Open [Ô]c: este.doc[Ô]
.Visible = True
.WindowState = wdWindowStateMaximize
End With
WOD.Quit
Set WOD = Nothing
Dim WOD As word.Application
Set WOD = New word.Application [ô]Create a new instance of word
WOD .Visible = True [ô]word visivel
With WOD
.CommandBars.ActiveMenuBar.Enabled = False
.CommandBars(1).Enabled = False
.CommandBars(2).Enabled = False
.Documents.Open [Ô]c: este.doc[Ô]
.Visible = True
.WindowState = wdWindowStateMaximize
End With
WOD.Quit
Set WOD = Nothing
Ola Nathan,
acrescentei estas duas linha:
WOD.Quit
Set WOD = Nothing
mas infelizmente as tres mensagens ainda surgem no momento de fehcar o documento.
Estou estudando a dica do Arnaldo Cruz para ver se dá certo.
Tópico encerrado , respostas não são mais permitidas