Apprendre à insérer des valeurs à partir de Microsoft Word à une base de données Microsoft Access peut être utile lorsque vous capturez des données des utilisateurs à travers la parole . La meilleure façon d' insérer des données à partir de Word à l'accès se fait par l'utilisation de « Active Data Objects ( ADO) » dans Visual Basic pour Applications ( VBA) . VBA est un langage de programmation informatique utilisé dans les applications Microsoft Office pour écrire des programmes . ADO vous permet d'effectuer une connexion à une base de données et d'insérer des valeurs à la table et les colonnes de votre choix . Instructions
1

Lancez Microsoft Word, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer la fenêtre de l'éditeur VB . Cliquez sur le menu "Insertion " et cliquez sur "Module" pour insérer un nouveau module de code
2

Tapez la suivante pour créer un nouveau sous procédure : .

Private Sub insertValuesToDB ()

3

créer une variable de type de données de chaîne pour contenir les données de texte que vous souhaitez insérer :

valueRead Dim As String
4

Sélectionnez l' ligne de texte dans Word et le sauvegarder dans la chaîne de variable :

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text
5

Créer l' variables objet ADODB :

adoConn As ADODB.Connection

adoCmd As ADODB.Command
6

définir le chemin et le nom de votre base de données Access . Ouvrez la connexion :

Set adoConn = New ADODB.Connection

adoConn

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

"Data Source = C: \\ Northwind 2007.accdb " .

Ouvert

End With
7

Créer une nouvelle commande pour insérer la ligne sélectionné dans Word à une table de base de données Access :

Set adoCmd = New ADODB.Command

adoCmd

ActiveConnection = adoConn

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

End With

adoCmd.Execute
8

Modifier et nom de zone> et tapez votre nom de la table et le nom de domaine que vous souhaitez utiliser pour insérer les données

objets de sortie à partir de la mémoire et de fermer la connexion : . < br >

adoConn.Close

Set adoConn = Nothing
9

afficher une boîte de message lorsque la valeur a été insérée à la base de données et mettre fin à la procédure :
< p > MsgBox " la valeur a été ajouté à votre table de base de données. "

End Sub
10

Appuyez sur " F5" pour exécuter la procédure .
< br > Photos