Supprimer champ de fusion word depuis macro Excel

Question

Bonjour, Je suis novice en matière de langage VBA aussi je sollicite votre aide pour un sujet particulier que je dois traiter. Je souhaite : - mettre à jour des champs de fusion WORD dans plusieurs documents WORD stockés dans un répertoire précis - supprimer d'autres champs de fusion qui ne sont plus d'actualité J'ai préparé un fichier EXCEL comprenant 2 colonnes soit : Col A : le nom du champ de fusion actuel (exemple : MERGEFIELD "_L83634") à remplacer Col B : le nouveau nom du champ de fusion qui serait systématique MERGEFIELD "_CGFP" J'ai trouvé comment : - ouvrir chaque document WORD du répertoire indiqué - chercher via une boucle les valeurs de la colonne A dans le document WORD ouvert - remplacer par la valeur de la colonne B En revanche, je bloque sur la deuxième étape qui consiste à supprimer les champs de fusion qui, après modification, feraient doublon. Par la fonction "selection.find", je trouve le texte dans le document WORD mais je ne sais pas comment sélectionner le champ de fusion entier et le supprimer ? Je vous remercie par avance pour votre aide. Ci-dessous, la macro en question Sub Remplacement_Valeurs_Word() Dim Ws As Worksheet 'Classeur Excel dans lequel on importe les valeurs à chercher et remplacer Dim sChemin As String 'répertoire contenant les fichiers Word Dim sNomFichier As String 'nom du fichier Word Dim WApp As Object, WDoc As Object, WSel As Object Dim i As Integer ' -- Initialisation des variables Set Ws = ThisWorkbook.Sheets(1) sChemin = "C:\Users\XXX\Desktop\Modèles.doc" Set WApp = CreateObject("Word.Application") 'pour créer un objet Word Application.ScreenUpdating = False WApp.Visible = True 'ne pas afficher Word pendant l'exécution sNomFichier = Dir(sChemin & "*.doc*") 'pour ouvrir tous les fichiers .doc*. en boucle Do While Len(sNomFichier) 0 Set WDoc = WApp.Documents.Open(sChemin & sNomFichier) 'ouvre le document Word For i = 2 To Ws.range("A" & Rows.Count).End(xlUp).Row With WApp.Selection.Find '.ClearFormatting On Error GoTo 2 .Text = Ws.Cells(i, 1).Value '.Replacement.ClearFormatting .Replacement.Text = Ws.Cells(i, 2).Value .Forward = True .Execute Replace:=wdReplaceAll ', Forward:=True, Wrap:=wdFindContinue End With 3: i = i + 1 'To Ws.range("A" & Rows.Count).End(xlUp).Row With WApp.Selection.Find '.ClearFormatting On Error GoTo 3 .Text = Ws.Cells(i, 1).Value .Forward = True .Wrap = wdFindStop .Execute End With WApp.ActiveDocument.Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend Selection.Delete GoTo 3 2: Next i WApp.ActiveDocument.Close wdSaveChanges 'fermer le document Word avec enregistrement sNomFichier = Dir 'prochain document Loop Application.ScreenUpdating = True WApp.Quit Set AppWord = Nothing End Sub...

21Formatic · Answer

Bonjour, les vidéos vous permettent de faire passer votre message de façon convaincante. Quand vous cliquez sur Vidéo en ligne, vous pouvez coller le code incorporé de la vidéo que vous souhaitez ajouter. Vous pouvez également taper un mot-clé pour rechercher en ligne la vidéo qui convient le mieux à votre document. Pour donner un aspect professionnel à votre document, Word offre des conceptions d’en-tête, de pied de page, de page de garde et de zone de texte qui se complètent mutuellement. Vous pouvez par exemple ajouter une page de garde, un en-tête et une barre latérale identiques. Cliquez sur Insérer et sélectionnez les éléments de votre choix dans les différentes galeries. Les thèmes et les styles vous permettent également de structurer votre document. Quand vous cliquez sur Création et sélectionnez un nouveau thème, les images, graphiques et SmartArt sont modifiés pour correspondre au nouveau thème choisi. Quand vous appliquez des styles, les titres changent pour refléter le nouveau thème. Gagnez du temps dans Word grâce aux nouveaux boutons qui s'affichent quand vous en avez besoin. Si vous souhaitez modifier la façon dont une image s’ajuste à votre document, cliquez sur celle-ci pour qu’un bouton d’options de disposition apparaisse en regard de celle-ci. Quand vous travaillez sur un tableau, cliquez à l’emplacement où vous souhaitez ajouter une ligne ou une colonne, puis cliquez sur le signe plus. La lecture est également simplifiée grâce au nouveau mode Lecture. Vous pouvez réduire certaines parties du document et vous concentrer sur le texte désiré. Si vous devez stopper la lecture avant d’atteindre la fin de votre document, Word garde en mémoire l’endroit où vous avez arrêté la lecture, même sur un autre appareil. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Maecenas porttitor congue massa. Fusce posuere, magna sed pulvinar ultricies, purus lectus malesuada libero, sit amet commodo magna eros quis urna. Nunc viverra imperdiet enim. Fusce est. Vivamus a tellus. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin pharetra nonummy pede. Mauris et orci. Aenean nec lorem. In porttitor. Donec laoreet nonummy augue. Suspendisse dui purus, scelerisque at, vulputate vitae, pretium mattis, nunc. Mauris eget neque at sem venenatis eleifend. Ut nonummy. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Maecenas porttitor congue massa. Fusce posuere, magna sed pulvinar ultricies, purus lectus malesuada libero, sit amet commodo magna eros quis urna. Nunc viverra imperdiet enim. Fusce est. Vivamus a tellus. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin pharetra nonummy pede. Mauris et orci. Aenean nec lorem. In porttitor. Donec laoreet nonummy augue. Suspendisse dui purus, scelerisque at, vulputate vitae, pretium mattis, nunc. Mauris eget neque at sem venenatis eleifend. Ut nonummy.

Ce n'est pas ma réponse la plus pertinente, désolé, mais ton pavé est imbuvable.