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