[Resolvido] Word nao sai da memoria

[Rafael Spessotto 0]

Ola Pessoal,

 

Estou com problemas na hora de gerar um arquivo do Word no vb.net...

Eu consegui abrir um arquivo numa boa, substituir algumas palavras e tal...Mas eu queria que o documento ficasse aberto, e o usuario fecha o word ou nao...

O problema é que ele fica na memoria, mesmo se o usuario fecha o word...e ai, quando eu vejo, tem umas 15 instancias do word na memoria... Alguem me ajuda? meu codigo esta abaixo...

 

            objWord = New Word.ApplicationClass()
            objDoc = objWord.Documents.Add(oTemplate)
            objWord.ActiveDocument.Content.Find.Execute(FindText:="<<NOME>>", ReplaceWith:=clientesReader.Item("NOME_CLI"))
            objWord.WindowState = Word.WdWindowState.wdWindowStateMaximize
            objWord.Visible = True
            objDoc = Nothing
            objWord = Nothing

mesmo com o

objWord = Nothing

ele fica na memoria...ate quando eu fecho a aplicação...Alguma ideia?

 

abracos!

 

Rafael Spessotto

[quintelab 91]

Rafael eu não me lembro se no VB existe o método Dispose.

Verifique se tem, se tiver use-o.

 

Abraços...

[Rafael Spessotto 0]

Ola quintelab! Obrigado pela resposta.

 

Eu consegui o que queria..So para quem precisar saber, eu coloquei essa funcao

ReleaseComObject(objWord)

e funcionou direitinho.

 

 

ficou assim:

 

Imports System.Runtime.InteropServices.Marshal

Private Sub CriaRelatorio()
     Try
            objWord = New Word.ApplicationClass()
            objDoc = objWord.Documents.Add(oTemplate)

            objWord.ActiveDocument.Content.Find.Execute(FindText:="<<NOME>>", ReplaceWith:="Nome")
            objWord.WindowState = Word.WdWindowState.wdWindowStateMaximize
            objWord.Visible = True
            ReleaseComObject(objWord)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub

abracao!

 

.:Rafael Spessotto:.

[Rafael Spessotto 0]

... resolvido ...