Aprender a inserir valores a partir do Microsoft Word para um banco de dados Microsoft Access pode tornar-se útil quando você capturar dados de usuários através da Palavra . A melhor maneira de inserir dados de Word para acesso é através do uso de "Objetos Ativos de dados ( ADO) " em Visual Basic for Applications (VBA). VBA é uma linguagem de programação de computadores usados ​​em aplicativos do Microsoft Office para escrever programas. ADO permite que você faça uma conexão com um banco de dados e inserir valores para a tabela e colunas de sua escolha . Instruções
1

Inicie o Microsoft Word , clique na guia "Desenvolvedor" , e clique em " Visual Basic" para abrir a janela do VB Editor. Clique no menu "Inserir" e clique em " Módulo " para inserir um novo módulo de código
2

Digite o seguinte para criar um novo procedimento sub: .

Private Sub insertValuesToDB ()

3

Criar uma variável de seqüência tipo de dados para armazenar os dados do Word que deseja inserir :

Dim valueRead as String
4

Selecione o linha de texto no Word e salve-o na variável string:

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text
5

Crie o variáveis ​​de objeto ADODB :

Dim adoConn as ADODB.Connection

Dim adoCmd Como ADODB.Command
6

Definir o caminho eo nome de seu banco de dados Access. Abra a conexão:

Set adoConn = New ADODB.Connection

Com adoConn

ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0 ; " & _ < br. >

"Data Source = C: \\ Adamastor 2007.accdb " . Abrir

End With
7

Criar um novo comando para inserir a linha selecionado no Word para uma tabela de banco de dados de acesso: . .

Set adoCmd = New ADODB.Command

com adoCmd

ActiveConnection = adoConn

CommandText = " INSERT INTO ) VALUES ( '"& ( valueRead ) &"' ) "

End With

adoCmd.Execute
8

Editar

liberar objetos da memória e fechar a conexão : . < br >

adoConn.Close

Set adoConn = Nothing
9

Exibe uma caixa de mensagem quando o valor foi inserido no banco de dados e no final do processo :

MsgBox " o valor foi adicionado ao seu banco de dados tabela . "

End Sub
10

Pressione " F5" para executar o procedimento .
< br >