Incontestablement, Word 2010 est un meilleur éditeur de motsEn plus de fournir des outils d'édition de base et des styles de création de graphiques, il offre également la possibilité de personnaliser le document comme bon vous semble. Dissimulé par défaut, Word 2010 offre la possibilité d'ajouter différentes fonctions. Par exemple, en insérant quelques lignes de code, vous pouvez fusionner des documents Word sans avoir à utiliser une application tierce dédiée. Dans cet article, nous insérerons quelques lignes de code pour fusionner tous les contenus de documents résidant dans le même dossier et les afficher dans un nouveau.
Pour commencer, vous devez d’abord les mettre dans le mêmedossier, assurez-vous qu’ils appartiennent tous à la même version de Word, Doc ou Docx. Comme vous pouvez le voir dans la capture d'écran ci-dessous, nous avons ouvert deux documents qui seront fusionnés.
Maintenant, ouvrez n’importe quel document Word et enregistrez-le en tant que document activé pour la macro. Pour cela, allez dans le menu Fichier et cliquez sur Enregistrer sous.
Une boîte de dialogue apparaîtra, à partir de Sauvegarder comme type, Cliquez sur Modèle Word prenant en charge les macros et cliquez sur Enregistrer.
Nous utiliserons VB Editor, nous devons donc commencer par Développeur onglet apparent sur la fenêtre Word. Si vous ne trouvez pas Développeur onglet, allez à Fichier menu, cliquez Les options, et dans le volet gauche Personnaliser le ruban, à partir du volet de droite activer Développeur case à cocher. Cliquez sur Ok pour à voir Développeur onglet sur le ruban.
Maintenant, naviguez vers Développeur onglet et cliquez Visual Basic.
Vous allez accéder à la boîte de dialogue Editeur VB, à partir de la barre latérale gauche, double-cliquez sur ThisDocument to ouvrez la fenêtre d’édition VB. Vous verrez la fenêtre de code sur le côté droit. Maintenant, mettez ces lignes de code en elle.
Remarque: N'oubliez pas de changer le chemin du dossieroù résident les documents et la version des documents Word dans ces lignes de code. Pour faciliter les choses, nous avons également ajouté cette précaution devant les codes.
Sub MergeDocs ()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = “C: Documents UsersUsman JavaidDesktopWord” ||| (Changer le chemin où résident vos documents)
Définissez MainDoc = Documents.Add
strFile = Dir $ (strFolder & “* .docx”) ||| (Modifiez l'extension de fichier en .doc en cas d'utilisation de la version Word 97-03)
Faire jusqu'à strFile = “”
Définir rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir $ ()
Boucle
End Sub
Maintenant, appuyez sur Ctrl + S pour enregistrer la macro récemment ajoutée et fermez l'éditeur VB. Aller vers Développeur onglet et cliquez Macros
Du Les macros dialogue, sélectionnez FusionnerDocs macro et cliquez Courir.
Si vous avez spécifié le chemin et la version correctement, tous les documents seront fusionnés et ouverts dans un nouveau document.
Vous pouvez également consulter nos guides précédemment examinés sur Retour à la dernière ligne modifiée dans Word 2010 et Utilisation du publipostage dans Word 2010.
commentaires