Fusion des documents Microsoft Word à l'aide de Visual Basic pour Applications ( VBA) peuvent vous faire gagner du temps lorsque vous travaillez avec des documents différents. Microsoft Word est une application de traitement de texte qui vient avec Microsoft Office ( MS Office ) Suite . VBA est utilisé lorsque vous avez besoin d'automatiser les tâches de routine pour créer un résultat . VBA peut être utilisé dans n'importe laquelle des applications MS Office. Vous pouvez utiliser un code pour copier du texte à partir de plusieurs documents en un seul. Instructions
1

Démarrez Microsoft Word 2007. Sélectionnez l'onglet " Developer" et cliquez sur " Visual Basic ". Clic-droit " Objets Microsoft Word ", cliquez sur "Insérer" et sélectionnez
2

Tapez la suivante pour créer un nouveau sous "Module ". :

Sous mergeTwoDocs () < br >

Appuyez sur " Entrée".
3

Tapez la commande suivante pour créer les variables utilisées pour stocker des données :

wDoc As
Word.Document

paragraphText Dim As String

paragraphRange As Word.Range

paragraphCount As long
4

Tapez la commande suivante pour définir votre variable " wordApplication ": < br >

Set wordApplication = CreateObject (" Word.Application " )

Tapez la commande suivante pour ouvrir le " premier " document à fusionner :

Set wDoc = wordApplication.Documents.Open ( " C: \\ Ceci est le texte de la première document.doc " )

Tapez la commande suivante pour appeler les " " sous-marin et envoyer le " readDocument premier objet de document " comme paramètre :

appelez readDocument ( wDoc )
5

Tapez la commande suivante pour ouvrir le "second" document à fusionner :

Set wDoc = wordApplication.Documents.Open ("C: \\ Ceci est un texte de l' deuxième document.doc " )

Tapez la commande suivante pour appeler les " " sous-marin et envoyer le " readDocument second objet de document " comme paramètre :

appelez readDocument ( wDoc )
< br > 6

Tapez la commande suivante pour créer les sous " readDocument " qui peut lire n'importe quel objet de document Word passé et d'ajouter du contenu au document en cours :

Private Sub readDocument ( wrdDoc As Object )

wrdDoc

paragraphCount = 1 To Paragraphs.Count

Set paragraphRange = Range (Début: . . . = Les paragraphes ( paragraphCount ) Range.Start , _
< . p> Fin: . . = Les paragraphes ( paragraphCount ) Range.End )

paragraphText = paragraphRange.Text

Selection.TypeText texte: = paragraphText

Selection.TypeParagraph < br >

Suivant paragraphCount

. Fermer

End With End Sub