Verificando Se Word Está Aberto

[Guest Mr. Dog Bean]

Boa tarde graymalkin

Qual o comando que posso usar para fechar o word antes de abrir um documento, eu preciso disso pois se eu deixa o documento do exemplo abaixo aberto quando mando excecutar o script o arquivo fica como "somente leitura".

tentei assim, + não funcionou

----------------------------------------------------

Dim temp As String

Dim Objword As Object

Set Objword = New Word.Application

Objword.Application.Quit <---- Este comando

Set Objword = New Word.Application

' nome do relatorio pré montado

With Objword

.Documents.Open "F:\não_remover.doc"

.ActiveDocument.Unprotect "senha"

vlw...,,,

[Graymalkin]

Experimente usar a função GetObject() para obter a instância aberta do Word:

    Set w = GetObject(, "Word.Application")
    w.Quit

Abraços,

Graymalkin

[Guest Mr. Dog Bean]

Fiz o teste funcionou, porém quando ele não consegue achar o word aberto dá o seguinte ERRO:

Run-Time Erro '429': ActiveX component can't create object

[kuroi]

em qual linha exatamente??

[Graymalkin]

Use a instrução de tratamento de erros (On Error ...) para tratar este erro, quando o Word não estiver aberto.

Abraços,

Graymalkin

[Guest Visitante]

F U N C I O N O U !!!! Esse cara é bom de+ so......

Se possivel lê o post sobre "FORMATANDO ETIQUETAS"

Vlw Graymalkin e Mestre do Sr. Sr. Binho !!!!!, vocês são os caras.... Esse forum é SHOW DE BOLA...