Word 2010 est incontestablement le meilleur éditeur de texte disponible. Outre ses outils d'édition de base et ses styles de graphiques, il offre également la possibilité de personnaliser vos documents à votre guise. Masquée par défaut, Word 2010 permet d'ajouter différentes fonctionnalités, comme par exemple la fusion de documents Word sans avoir recours à une application tierce dédiée, en insérant quelques lignes de code. Dans cet article, nous allons insérer quelques lignes de code pour fusionner tous les documents d'un même dossier et les afficher dans un nouveau dossier.
Pour commencer, placez-les dans le même dossier et assurez-vous qu'ils appartiennent tous à la même version de Word, Doc ou Docx. Comme le montre la capture d'écran ci-dessous, nous avons ouvert deux documents qui seront fusionnés.

Ouvrez maintenant n'importe quel document Word et enregistrez-le en tant que document prenant en charge les macros. Pour cela, accédez au menu Fichier et cliquez sur Enregistrer sous.

Une boîte de dialogue apparaîtra, à partir de Enregistrer sous le type, cliquez sur Modèle Word prenant en charge les macros et cliquez sur Enregistrer.

Nous utiliserons l'éditeur VB ; nous devons donc d'abord afficher l'onglet Développeur dans la fenêtre Word. Si vous ne le trouvez pas , accédez au menu Fichier , cliquez sur Options, puis, dans le volet de gauche, cliquez sur Personnaliser le ruban . Dans le volet de droite, cochez la case Développeur . Cliquez sur OK pour afficher l'onglet Développeur sur le ruban.

Accédez maintenant à l’onglet Développeur et cliquez sur Visual Basic.

Vous accéderez à la boîte de dialogue de l'éditeur VB. Dans la barre latérale gauche, double-cliquez sur « CeDocument » pour ouvrir la fenêtre d'édition VB. La fenêtre de code s'affichera à droite. Insérez-y ces lignes de code.
Remarque : N'oubliez pas de modifier le chemin du dossier où se trouvent les documents et la version des documents Word dans ces lignes de code. Pour plus de simplicité, nous avons également ajouté cette précaution devant les codes.
Sous MergeDocs()
Dim rng comme plage
Atténuer MainDoc comme document
Dim strFile As String
Const strFolder = « C:\Users\Usman Javaid\Desktop\Word documents\ » ||| (Modifier le chemin d'accès à vos documents)
Définir MainDoc = Documents.Add
strFile = Dir$(strFolder & “*.docx”) ||| (Changez l'extension du fichier en .doc si vous utilisez la version Word 97-03)
Faire jusqu'à ce que strFile = « »
Définir rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Boucle
Fin du sous-titrage

Appuyez maintenant sur Ctrl+S pour enregistrer la macro nouvellement ajoutée et fermer l'éditeur VB. Accédez à l'onglet Développeur et cliquez sur Macros.
Dans la boîte de dialogue Macros , sélectionnez la macro MergeDocs et cliquez sur Exécuter .

Si vous avez correctement spécifié le chemin et la version, tous les documents seront fusionnés et s'ouvriront dans un nouveau document.

Vous pouvez également consulter nos guides précédemment examinés sur le retour à la dernière ligne modifiée dans Word 2010 et l'utilisation du publipostage dans Word 2010 .
[via gaebler ]