Neste artigo, criaremos uma macro para abrir um documento do Word.
Para abrir um documento do Word, especificaremos o caminho completo do documento na caixa de texto da planilha principal. Após especificar o caminho completo, clique no botão “Enviar” para executar a macro.
Explicação do código
Dim WDApp As Word.Application
O código acima é usado para declarar o objeto da palavra aplicação.
Definir WDApp = CreateObject ("word.Application")
O código acima é usado para criar um novo objeto da aplicação de palavras. O aplicativo Word começará a ser executado, mas, por padrão, não estará visível.
WDApp.Visible = True
O código acima é usado para tornar a janela do aplicativo de palavras visível.
Defina WDDoc = WDApp.Documents.Open (FileName)
O código acima é usado para abrir o documento do Word.
Definir WDDoc = Nada
Definir WDApp = Nada
O código acima é usado para liberar qualquer memória ocupada pelo objeto.
Siga abaixo para o código
Sub OpeningWordFile () 'Declarando variáveis Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document' Obtendo o nome do arquivo da caixa de texto FileName = Sheets ("Main"). TextBox1.Value 'Criando objeto da palavra application Set WDApp = CreateObject ("word.Application") 'Tornando visível a aplicação word WDApp.Visible = True' Abrindo o documento word obrigatório Set WDDoc = WDApp.Documents.Open (FileName) 'Libere a memória usada pela variável de objeto Set WDDoc = Nothing Set WDApp = Nothing End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail