Boucler par programmation des éléments trouvés dans des documents

La classe Find a une propriété Found , qui retourne true chaque fois qu’un élément recherché est trouvé. Vous pouvez exécuter en boucle toutes les instances trouvées dans un Range à l’aide de la méthode Execute .

S’applique à : les informations contenues dans cette rubrique s’appliquent aux projets au niveau du document et aux projets de complément VSTO pour Word. Pour plus d’informations, consultez Fonctionnalités disponibles par application Office lication et le type de projet.

Pour exécuter en boucle les éléments trouvés

1. Déclarez un objet Range .

   L'exemple de code suivant peut être utilisé dans une personnalisation au niveau du document.

   C#

   Word.Range rng = this.Content;
   

   VB

   Dim rng As Word.Range = Me.Content
   

   L'exemple de code suivant peut être utilisé dans un complément VSTO. Cet exemple utilise le document actif.

   C#

   Word.Document document = this.Application.ActiveDocument;
   Word.Range rng = document.Content;
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Content
   

2. Utilisez la propriété Found d’une boucle pour rechercher toutes les occurrences de la chaîne dans le document, puis incrémentez une variable entière de 1 chaque fois que la chaîne est trouvée.

   C#

   rng.Find.ClearFormatting(); 
   rng.Find.Forward = true; 
   rng.Find.Text = "find me"; 
   
   rng.Find.Execute(
       ref missing, ref missing, ref missing, ref missing, ref missing, 
       ref missing, ref missing, ref missing, ref missing, ref missing,
       ref missing, ref missing, ref missing, ref missing, ref missing);
   
   while (rng.Find.Found) 
   { 
       intFound++;
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing, 
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   }
   

   VB

   rng.Find.ClearFormatting()
   rng.Find.Forward = True
   rng.Find.Text = "find me"
   
   rng.Find.Execute()
   
   Do While rng.Find.Found = True
       intFound += 1
       rng.Find.Execute()
   Loop
   

3. Affichez le nombre de fois où que la chaîne a été trouvée dans une boîte de message.

   C#

   MessageBox.Show("Strings found: " + intFound.ToString());
   

   VB

   MessageBox.Show("Strings found: " & intFound.ToString())
   

   Les exemples suivants montrent la méthode complète.

Exemple de personnalisation au niveau du document

Pour exécuter en boucle les éléments d’une personnalisation au niveau du document

1. L'exemple suivant montre le code complet pour une personnalisation au niveau du document. Pour utiliser ce code, exécutez-le à partir de la classe ThisDocument de votre projet.

   C#

   private void FindLoop() 
   { 
       int intFound = 0; 
       Word.Range rng = this.Content; 
   
       rng.Find.ClearFormatting(); 
       rng.Find.Forward = true; 
       rng.Find.Text = "find me"; 
   
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing, 
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   
       while (rng.Find.Found) 
       { 
           intFound++;
           rng.Find.Execute(
               ref missing, ref missing, ref missing, ref missing, ref missing, 
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing);
       } 
   
       MessageBox.Show("Strings found: " + intFound.ToString()); 
   }
   

   VB

   Private Sub FindLoop()
       Dim intFound As Integer = 0
       Dim rng As Word.Range = Me.Content
   
       rng.Find.ClearFormatting()
       rng.Find.Forward = True
       rng.Find.Text = "find me"
   
       rng.Find.Execute()
   
       Do While rng.Find.Found = True
           intFound += 1
           rng.Find.Execute()
       Loop
   
       MessageBox.Show("Strings found: " & intFound.ToString())
   End Sub
   

Exemple de complément VSTO

Pour parcourir des éléments dans un complément VSTO

1. L'exemple suivant montre le code complet pour un complément VSTO. Pour utiliser ce code, exécutez-le à partir de la classe ThisAddIn de votre projet.

   C#

   private void FindLoop()
   {
       int intFound = 0;
       Word.Document document = this.Application.ActiveDocument;
       Word.Range rng = document.Content;
   
       rng.Find.ClearFormatting();
       rng.Find.Forward = true;
       rng.Find.Text = "find me";
   
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   
       while (rng.Find.Found)
       {
           intFound++;
           rng.Find.Execute(
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing);
       }
   
       MessageBox.Show("Strings found: " + intFound.ToString());
   }
   

   VB

   Private Sub FindLoop()
       Dim intFound As Integer = 0
       Dim rng As Word.Range = Me.Application.ActiveDocument.Content
   
       rng.Find.ClearFormatting()
       rng.Find.Forward = True
       rng.Find.Text = "find me"
   
       rng.Find.Execute()
   
       Do While rng.Find.Found = True
           intFound += 1
           rng.Find.Execute()
       Loop
   
       MessageBox.Show("Strings found: " & intFound.ToString())
   End Sub
   

Contenu connexe

• Guide pratique pour rechercher et remplacer rext par programmation dans les documents
• Guide pratique pour définir par programmation des options de recherche dans Word
• Guide pratique pour définir et sélectionner des plages par programmation dans des documents
• Guide pratique pour restaurer des sélections par programmation après les recherches
• Paramètres facultatifs dans les solutions Bureau