Controlar um aplicativo do Microsoft Office a partir de outro

Se você deseja executar código em um aplicativo do Microsoft Office que trabalhe com os objetos de um outro aplicativo, siga esses passos.

1. Defina uma referência à biblioteca de tipos do outro aplicativo na caixa de diálogo Referências (menu Ferramentas). Depois que você fizer isso, os objetos, propriedades e métodos aparecerão no pesquisador de objetos e a sintaxe será verificada durante a compilação. Você também pode obter ajuda contextual.
2. Declare variáveis de objeto que se refiram aos objetos de outro aplicativo como tipos específicos. Certifique-se de qualificar cada tipo com o nome do aplicativo que está fornecendo o objeto. Por exemplo, a instrução a seguir declara uma variável que irá apontar para um documento do Microsoft Word e uma outra que irá se referir a uma pasta de trabalho do Microsoft Excel:

   Dim appWD As Word.Application, wbXL As Excel.Workbook

   Observação Você precisa seguir os passos anteriores se desejar que seu código seja de acoplamento antecipado.

3. Use a função CreateObject com Identificadores de programação OLE do objeto do outro aplicativo com o qual você deseja trabalhar, conforme mostrado no exemplo a seguir. Se quiser ver a sessão do outro aplicativo, defina a propriedade Visible como True.

   Dim appWD As Word.Application
   
   Set appWD = CreateObject("Word.Application")
   appWd.Visible = True

4. Aplique propriedades e métodos ao objeto contido na variável. Por exemplo, a instrução seguinte cria um novo documento do Word.

   Dim appWD As Word.Application
   
   Set appWD = CreateObject("Word.Application")
   appWD.Documents.Add

5. Quando você tiver terminado de trabalhar com o outro aplicativo, use o método Quit para fechá-lo, conforme mostrado no exemplo seguinte.

   appWd.Quit