Si vous avez commencé à utiliser Visual Basic pour Applications ( VBA) pour Excel, vous avez déjà vu comment VBA peut transformer une bonne feuille de calcul dans un grand. Macros enregistrées peuvent automatiser des tâches , mais le pouvoir réel de VBA est dans l'éditeur Visual Basic , où vous pouvez écrire des procédures qui étendent les capacités d'Excel . Vous pouvez également utiliser VBA pour Excel atteindre à l'extérieur , dans une autre application Office comme Word. Depuis deux applications utilisent le langage de programmation VBA , vous pouvez écrire du code dans Excel pour démarrer Word et entrer du texte dans un document. Exécutez le code d'échantillon , puis utilisez vos compétences VBA pour modifier le code afin qu'il s'adapte à vos besoins. Instructions
1

lancement Word et ouvrez un nouveau document. Enregistrez le document sous un nouveau nom , par exemple « C : \\. TestDoc.doc " Prenez note du nom que vous avez choisi , que vous utiliserez dans votre code VBA. Fermez le document et quittez Word .
2

Ouvrez Excel .
3

Démarrez le Visual Basic Editor. Faites un clic droit sur ​​l'onglet "Sheet1" sur le bas de votre écran . Sélectionnez « Afficher le code. "
4

Ajouter la bibliothèque d'objets contenant des objets, des propriétés et des méthodes pour Word . Sélectionnez "Outils " puis " Références " dans le menu . Faites défiler la liste jusqu'à ce que vous trouvez " Microsoft Word xx.x Object Library " ( xx, x représente la version ; . Par exemple , si vous utilisez Office 2007, recherchez le mot 12.0 Object Library ) Cochez la case à cocher , puis cliquez sur "OK".
5

insérer un module d'organiser votre code en sélectionnant "Insérer" puis " Module " dans le menu .
6

Commencez une subprocédure . Tapez la commande suivante dans le nouveau module :

Sous Word_Text ()

Appuyez sur " Entrée". Excel génère automatiquement une instruction " End Sub " .
7

déclarer des variables . Tapez le code suivant entre le "Sub" et les déclarations " End Sub" :

wdApp As Object, wdDoc As Object

wordfile As String, enterstring As String
8

Réglez la valeur de la variable " wordfile , " précisant le document de test que vous avez créé dans Word. Si vous voulez par la suite utiliser un document Word , modifiez le nom de fichier dans cette ligne de code . Tapez la commande suivante :

wordfile = " c: \\ testdoc.doc "
9

Réglez la valeur de la " enterstring " variable pour le texte que vous voulez ajouter dans le haut de le document Word . Tapez la commande suivante :

enterstring = " Ajouter ce texte dans le fichier . "
10

Ajoutez une routine de gestion des erreurs pour vérifier si Word est déjà en cours d'exécution. Sinon , ouvrez une nouvelle instance de Word. Tapez la commande suivante :

On Error Resume Next

Set wdApp = GetObject ( , " Word.Application " )

Si wdApp n'est rien Puis

Set wdApp = CreateObject (" Word.Application " )

End If

On Error GoTo 0
11

ajouter du code pour ouvrir le document Word . Tapez la commande suivante :

Set wdDoc = GetObject ( wordfile )
12

ajouter du code pour rendre l'application Word visible , puis déplacer le point d' insertion au début du document. Tapez la commande suivante :

wdApp

Visible = True

Selection.HomeKey Unité: . . = WdStory , Extend : = wdMove

End With
13

ajouter du code à écrire le texte d'exemple dans " enterstring " pour le document Word suivie d'un retour chariot. Tapez la commande suivante : . .

WdDoc.Content

InsertAfter enterstring

InsertParagraphAfter

End With
14

Ajouter code pour vider les variables d'objet afin de libérer la mémoire utilisée par l'application. Tapez la commande suivante :

Set wdDoc = Nothing Set

wdApp = Nothing

Laisser l'instruction " End Sub " au lieu
15 de

. exécutez le code . Sélectionnez "Exécuter" puis " Exécuter Sub /UserForm " dans le menu .
16

Voir le document Word de l'échantillon que vous avez créé à l'étape 1 . Au début du document , vous devriez voir une lecture en ligne, " Ajouter ce texte dans le fichier . "