|
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 . "
|
