ERRO AO FECHAR WORD
Ola pessoa boa tarde,
Eu tenho um trecho de codigo aqui que abre um doc word, veja bem:
Dim ObjWord As New Word.Application
Me.MousePointer = 11
ObjWord.Visible = True
[ô]se o arquivo Doc estiver dentro da mesma pasta do executavel
ObjWord.Documents.Open (App.Path & [Ô]\Documento 1\Caminho do Doc.doc[Ô])
Set ObjWord = Nothing
Me.MousePointer = 0
E ele abre o doc normalemte, mas toda vez que abro um doc por este codigo, ao fechar o word gera a seguinte mensagem:
Este arquivo esta sendo usado por outro aplicativo ou usario
Foram feitas alterações que afetam o modelo global Nomral.dot. Deseja salvar estas alterações?
Eu clico em Noa, mas toda vez que suo este codigo pra abrir ele gera este erro ao fechar... o que será que é? Alguem ja viu isto?
Muito obrigado de novo.
Eu tenho um trecho de codigo aqui que abre um doc word, veja bem:
Dim ObjWord As New Word.Application
Me.MousePointer = 11
ObjWord.Visible = True
[ô]se o arquivo Doc estiver dentro da mesma pasta do executavel
ObjWord.Documents.Open (App.Path & [Ô]\Documento 1\Caminho do Doc.doc[Ô])
Set ObjWord = Nothing
Me.MousePointer = 0
E ele abre o doc normalemte, mas toda vez que abro um doc por este codigo, ao fechar o word gera a seguinte mensagem:
Este arquivo esta sendo usado por outro aplicativo ou usario
Foram feitas alterações que afetam o modelo global Nomral.dot. Deseja salvar estas alterações?
Eu clico em Noa, mas toda vez que suo este codigo pra abrir ele gera este erro ao fechar... o que será que é? Alguem ja viu isto?
Muito obrigado de novo.
up!
rsrsrsrsrsrsrsrs
ja vi varias vezes ...................... mas resolvi ......
ObjWord.ActiveDocument.Close False [ô]fechar o documento sem salvar
ObjWord.Quit [ô] encerra a aplicação
Set ObjWord = Nothing
tenta isso ai .... ok
ja vi varias vezes ...................... mas resolvi ......
ObjWord.ActiveDocument.Close False [ô]fechar o documento sem salvar
ObjWord.Quit [ô] encerra a aplicação
Set ObjWord = Nothing
tenta isso ai .... ok
Opa bleaza cara,
mas esta isntrução abre e fecha o word. Era rpa deixar aberto e quando fecha-lo pelo prpio word nao dar esta mensagem
mas esta isntrução abre e fecha o word. Era rpa deixar aberto e quando fecha-lo pelo prpio word nao dar esta mensagem
????
como assim:
como assim:
Citação:Era rpa deixar aberto e quando fecha-lo pelo prpio word nao dar esta mensagem
Colega também fiquei com esta duvida do WOLFIRE, pois veja bem exatamente este código que vc usa eu usei, fazendo o teste com um documento aqui, e consegui abri-lo e fecha-lo sem problemas.
verifique se existe outro local do seu projeto que esteja enviando dados para este documento, e você tenha esquecido de descarrega-lo da memoria.
faça um teste com um novo projeto e este código em um botão.
verifique se existe outro local do seu projeto que esteja enviando dados para este documento, e você tenha esquecido de descarrega-lo da memoria.
faça um teste com um novo projeto e este código em um botão.
Sim pessoal o codigo funciona, mas este codigo ele abre o doc e nao permite que ele fiwque aberto, ele fecha porque tem o .quit
eu gostaria de deixálo aberto, mas tirar ele da memoria, pra isto eu uso o nothing, ate ai firmeza, mas c ome ste codigo aqui...
Dim ObjWord As New Word.Application
Me.MousePointer = 11
ObjWord.Visible = True
[ô]se o arquivo Doc estiver dentro da mesma pasta do executavel
ObjWord.Documents.Open (App.Path & [Ô]\Documento 1\Teste.doc[Ô])
ObjWord.ActiveDocument.Close False [ô]fechar o documento sem salvar
ObjWord.Quit [ô] encerra a aplicação
Set ObjWord = Nothing
Me.MousePointer = 0
E ele abre o doc normalmente, e fecha em seguida, ele abre o doc e fecha,
mas se do codigo eu tiro a seguinte isntrução
ObjWord.ActiveDocument.Close False [ô]fechar o documento sem salvar
ObjWord.Quit [ô] encerra a aplicação
com o objetivo de deixar o doc aberto e fecha-lo depois de digitar alguma coisa por exemplo...
Ele gerava este erro...
Este arquivo esta sendo usado por outro aplicativo ou usario
Foram feitas alterações que afetam o modelo global Nomral.dot. Deseja salvar estas alterações?
Mas nao sei o porque o erro sumiu, nao mudei o codigo mas sumiu... esta eu vou ficar sem resposta... mas parou de aparecer esta mensagem quando eu fechei o word pelo porprio word e nao via codigo... muito obrigado, valew a ajuda de novo
eu gostaria de deixálo aberto, mas tirar ele da memoria, pra isto eu uso o nothing, ate ai firmeza, mas c ome ste codigo aqui...
Dim ObjWord As New Word.Application
Me.MousePointer = 11
ObjWord.Visible = True
[ô]se o arquivo Doc estiver dentro da mesma pasta do executavel
ObjWord.Documents.Open (App.Path & [Ô]\Documento 1\Teste.doc[Ô])
ObjWord.ActiveDocument.Close False [ô]fechar o documento sem salvar
ObjWord.Quit [ô] encerra a aplicação
Set ObjWord = Nothing
Me.MousePointer = 0
E ele abre o doc normalmente, e fecha em seguida, ele abre o doc e fecha,
mas se do codigo eu tiro a seguinte isntrução
ObjWord.ActiveDocument.Close False [ô]fechar o documento sem salvar
ObjWord.Quit [ô] encerra a aplicação
com o objetivo de deixar o doc aberto e fecha-lo depois de digitar alguma coisa por exemplo...
Ele gerava este erro...
Este arquivo esta sendo usado por outro aplicativo ou usario
Foram feitas alterações que afetam o modelo global Nomral.dot. Deseja salvar estas alterações?
Mas nao sei o porque o erro sumiu, nao mudei o codigo mas sumiu... esta eu vou ficar sem resposta... mas parou de aparecer esta mensagem quando eu fechei o word pelo porprio word e nao via codigo... muito obrigado, valew a ajuda de novo
Tópico encerrado , respostas não são mais permitidas