Ir ao conteúdo
  • Cadastre-se
Vinicius Passsos

Word salvar como e fechar documento WORD via VBA

Recommended Posts

Senhores, boa tarde

 

Public Sub InspectionPlan()

'para abrir o pit em word

Set word = CreateObject("word.application")
word.Visible = True

file_name = "PLANO DE INSPEÇÃO E TESTErev3.docx"
Path = file_name


Set PIT = word.documents.Open(Path)

"
funções do documento        

 

End Select
         
         new_path =  Gen_codigo
         

        word.documents.Open(Path).SaveAs Filename:=new_path
         
         word.documents.Close (new_path) -> ESSA PARTE NÃO FUNCIONA
         
End Sub

 

 

o código inteiro funciona. eu consigo abrir o documento, editar, salvar com o nome que quero.

 

Mas em word não sei fechar o documento. Alguém sabe o comando?

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Vinicius Passsos , bom dia

 

Tente alterar as linhas como abaixo:

Public Sub InspectionPlan()
   'para abrir o pit em word
   Set word = CreateObject("Word.application")
   word.Visible = True
   file_name = "PLANO DE INSPEÇÃO E TESTErev3.docx"
   Path = file_name
   Set PIT = word.documents.Open(Path)
   'End Select
            new_path = Gen_codigo
            PIT.SaveAs Filename:=new_path
            PIT.Close
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Edson Luiz Branco não funcionou completamente, 

 

daí eu fiz uma esqueminha aqui e deu certo:

 

word.documents.Open(new_path).Close
         word.Visible = False

 

eu acho que eu dei um gato no word, mas funcionou para o que eu precisava.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×