Jump to content
Douken

EXCEL VBA - Comando para abrir documento do word.

Recommended Posts

Douken

Bom dia.

 

Estou a criar uma macro em excel que me permite abrir e editar um documento word:

"

Private Sub CommandButton11_Click()

Dim appWORD As WORD.Application
Dim DOC As WORD.Document

Set appWORD = New WORD.Application

appWORD.Visible = True

Set DOC = appWORD.Documents.Open("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc")

appWORD.ActivateIf Dir("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1 - Cópia.doc") <> "" Then
    Kill "C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1 - Cópia.doc"
    
End If

DOC.SaveAs ("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1 - Cópia.doc")

"

O problema é que se eu clicar no botão da macro uma segunda vez sem fechar o documento aberto, o Word pergunta-me se pretendo abrir uma cópia de leitura, uma vez que o documento original já se encontra aberto. Se eu não selecionar nenhuma opção e fechar essa janela no "x", o meu programa dá erro.

Que comando posso inserir para permitir (ou impedir) execuções consecutivas da mesma macro, para que este conflito não ocorra?

Antes de mais, muito obrigado!

Cumprimentos.

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.