|
Microsoft Office Word est une application de traitement de texte inclus dans la suite Microsoft Office . Microsoft Visual Basic pour Applications, ou VBA, est un langage de programmation informatique couramment utilisé pour automatiser des tâches de routine. Apprendre à transmettre des données entre des documents Word à l'aide de VBA est utile lorsque vous avez besoin de fusionner en permanence des documents Word manuellement . En quelques étapes, vous pouvez apprendre comment écrire du code VBA pour ouvrir deux documents Word et transférer des données entre eux. Instructions
1 Ouvrez Microsoft Office Word , tapez " ces données sont dans firstDoc " et enregistrez dans "C: \\ " as ". FirstDoc.doc " Fermez le document . Ajouter un nouveau document , tapez " Ces données sont dans le secondDoc " et enregistrez dans "C: \\ " as ". SecondDoc.doc " Fermez le document.
2 Ouvrez Microsoft Office Word , sélectionnez l'onglet « Développeur » et cliquez sur « Visual Basic ». Cliquez sur le menu "Insertion" puis sélectionner "Module ". Copiez et collez le code suivant dans votre module d'échanger du texte entre " firstDoc.doc " et " secondDoc.doc . "
3 passDataBetweenWordDocs Private Sub ()
Dim wrd1App Comme Word.application
wrd2App As Word.application
Set wrd1App = CreateObject (" Word.Application " )
Set wrd2App = CreateObject (" Word.application " )
wrd1App.Visible = True
wrd2App.Visible = True
Set wordFirstDoc = wrd1App.Documents.Open ("C: \\ firstDoc.doc " )
Set wordSecondDoc = wrd2App.Documents.Open ("C: \\ secondDoc.doc " )
wrd1App.Selection.Expand wdLine
sTextDoc1 = wrd1App.Selection.Text
< p> wrd2App.Selection.Expand wdLine
sTextDoc2 = wrd2App.Selection.Text
wrd1App.Selection.TypeParagraph
wrd1App.Selection.TypeText texte : = " Ce texte a été passé de secondDoc : "& Text : = " Ce texte a été transmis de firstDoc :" & sTextDoc1
wrd2App.Selection.TypeParagraph
End Sub
4 vous exécutez sous-programme en appuyant sur la touche "F5 ».
|
