Word e Excel são ambos aplicativos da suíte Microsoft Office. Word é um aplicativo de processamento de texto e um aplicativo de planilha Excel . Saber como acessar as tabelas do Microsoft Word a partir do Microsoft Excel pode ser útil quando se trabalha com tabelas do Word . Visual Basic for Applications (VBA) é uma linguagem de programação que é fácil de aprender e usar, e em poucos passos você pode escrever código VBA para acessar uma tabela do Word a partir do Excel . Instruções
1
Inicie o Microsoft Office Word , selecione o menu "Inserir " e clique em "Tabela" . Selecione uma tabela com duas colunas e duas linhas.
Clique na célula no canto superior esquerdo e digite " coluna1 ", pressione "Tab" para passar para a segunda coluna e digite " coluna2 " .
Clique na primeira célula na linha número dois e digite " Datq1 " . Pressione " Tab" para passar para a segunda coluna e digite " Dados2 "
Salve o documento no "C: \\". " . MyTableDoc.doc " como
2
Comece Microsoft office Excel , selecione a guia "Desenvolvedor" e clique em " Visual Basic ". Clique no menu "Inserir" e selecione " Module ".
Selecione o menu "Ferramentas " e clique em "Referências ..." . Marque a caixa ao lado de " Microsoft Word 3 Digite o seguinte para criar o " getWordTableData " sub-rotina :
Private Sub getWordTableData ()
Pressione "Enter . "
4
Digite o seguinte para criar novas variáveis :
Dim clmnCnt as Integer Dim
rowCnt as Integer
5
Tipo o seguinte para criar objetos de Word :
Set wrdApp = CreateObject (" Word.Application " )
Set wrdDoc = wrdApp.Documents.Open ( "C: \\ myTableDoc.doc " ) < br >
6
Digite o seguinte para percorrer a tabela em " myTableDoc.doc " e exibir seu conteúdo através de uma caixa de mensagem:
para clmnCnt = 1 To wrdDoc.Tables ( 1 ) colunas. . Contagem
Para rowCnt = 1 To wrdDoc.Tables (1). Rows.Count
MsgBox wrdDoc.Tables (1). célula ( rowCnt , clmnCnt ) . Range.Text
Próxima rowCnt
Próxima clmnCnt
7
Digite o seguinte para liberar a variável da memória :
Set wrdApp = Nothing
Definir wrdDoc = Nothing
Pressione " F5" para executar o seu sub-rotina.
