[Resolvido]Aproveitando uma instância já aberta do Word ao carregar um relatório

Caros,

Um botão do Access carregará um relatório no word. Para tanto, utilizarei uma estrutura como esta:

dim word as word.application
dim doc as word.document

sub LoadReport(filename as string)
set word = CreateObject("word.application")
set doc = word.documents.open(filename)
word.visible = true
set doc = nothing
set word = nothing
end sub

Não é incomum que o Word já esteja aberto na máquina do usuário, então, seria interessante reaproveitar a instância já existente e não criar uma nova.

Neste caso, logo após o CreateObject, penso que deveria acionar algum comando para que word não contivesse uma instância qualquer, mas sim a atualmente carregada na memória.

Alguém saberia dizer como se faz isso?

Luciano

É possível contar as instâncias de um objeto aberto e usar o resultado para o que pretendes. Se for 0, cria o objeto Word e se for maior que 0, apenas executa as outras ações. Teste o código abaixo sem uma instância do Word aberta e depois com o Word aberto:

Código:

Computador = "."

Set WMIServ = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computador & "\root\cimv2")
Set Processo = WMIServ.ExecQuery("Select * from Win32_Process Where Name = 'winword.exe'")

MsgBox Processo.Count

Set Processo = Nothing
Set WMIServ = Nothing

Funcionando, é só adaptar. Essa função pode ser adaptada para excluir processos abertos, entre outras façanhas.

Estou impressionadíssimo. Tudo o que eu não esperava é que se pudesse acessar as instâncias por meio de uma instrução SQL!
Muito obrigado!