Programowe wyszukiwanie i zastępowanie tekstu w dokumentach

Obiekt Find jest elementem członkowskim obiektów Selection i Range , a można użyć go do wyszukiwania tekstu w dokumentach programu Microsoft Office Word. Polecenie replace to rozszerzenie polecenia find.

Find Użyj obiektu do pętli w dokumencie programu Microsoft Office Word i wyszukaj konkretny tekst, formatowanie lub styl, a następnie użyj Replacement właściwości , aby zastąpić dowolny znaleziony element.

Dotyczy: informacje w tym temacie dotyczą projektów na poziomie dokumentu i projektów dodatków VSTO dla programu Word. Aby uzyskać więcej informacji, zobacz Funkcje dostępne przez aplikacja pakietu Office lication i typ projektu.

Korzystanie z obiektu Selection

Gdy używasz Selection obiektu do znajdowania tekstu, wszystkie określone kryteria wyszukiwania są stosowane tylko względem aktualnie zaznaczonego tekstu. Selection Jeśli element jest punktem wstawiania, przeszukiwany jest dokument. Po znalezieniu elementu zgodnego z kryteriami wyszukiwania zostanie on automatycznie wybrany.

Należy pamiętać, że kryteria są skumulowane, co oznacza, że Find kryteria są dodawane do poprzednich kryteriów wyszukiwania. Wyczyść formatowanie z poprzednich wyszukiwań przy użyciu ClearFormatting metody przed wyszukiwaniem.

Aby znaleźć tekst przy użyciu obiektu Zaznacz

1. Przypisz ciąg wyszukiwania do zmiennej.

   C#

   object findText = "find me";
   

   VB

   Dim findText As String = "find me"
   

2. Wyczyść formatowanie z poprzednich wyszukiwań.

   C#

   Application.Selection.Find.ClearFormatting();
   

   VB

   Application.Selection.Find.ClearFormatting()
   

3. Wykonaj wyszukiwanie i wyświetl pole komunikatu z wynikami.

   C#

   if (Application.Selection.Find.Execute(ref findText,
       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("Text found.");
   } 
   else
   { 
       MessageBox.Show("The text could not be located.");
   }
   

   VB

   If Application.Selection.Find.Execute(findText) = True Then
       MessageBox.Show("Text found.")
   Else
       MessageBox.Show("The text could not be located.")
   End If
   

   Poniższy przykład przedstawia kompletną metodę.

   C#

   private void SelectionFind() 
   { 
       object findText = "find me";
   
       Application.Selection.Find.ClearFormatting();
   
       if (Application.Selection.Find.Execute(ref findText,
           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("Text found.");
       } 
       else
       { 
           MessageBox.Show("The text could not be located.");
       } 
   }
   

   VB

   Private Sub SelectionFind()
       Dim findText As String = "find me"
   
       Application.Selection.Find.ClearFormatting()
   
       If Application.Selection.Find.Execute(findText) = True Then
           MessageBox.Show("Text found.")
       Else
           MessageBox.Show("The text could not be located.")
       End If
   End Sub
   

---

Korzystanie z obiektu Range

Range Użycie obiektu umożliwia wyszukiwanie tekstu bez wyświetlania niczego w interfejsie użytkownika. Obiekt Find zwraca wartość True , jeśli zostanie znaleziony tekst zgodny z kryteriami wyszukiwania i fałsz , jeśli nie. Ponadto ponownie definiuje Range obiekt tak, aby był zgodny z kryteriami wyszukiwania, jeśli tekst zostanie znaleziony.

Aby znaleźć tekst przy użyciu obiektu Range

1. Zdefiniuj Range obiekt składający się z drugiego akapitu w dokumencie.

   Poniższy przykład kodu może być używany w dostosowywaniu na poziomie dokumentu.

   C#

   Word.Range rng = this.Paragraphs[2].Range;
   

   VB

   Dim rng As Word.Range = Me.Paragraphs(2).Range
   

   Poniższy przykład kodu może być używany w dodatku VSTO. W tym przykładzie użyto aktywnego dokumentu.

   C#

   Word.Document document = this.Application.ActiveDocument;
   Word.Range rng = document.Paragraphs[2].Range;
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(2).Range
   

2. Find Korzystając z właściwości Range obiektu, najpierw wyczyść wszystkie istniejące opcje formatowania, a następnie wyszukaj ciąg znajdź mnie.

   C#

   rng.Find.ClearFormatting();
   
   if (rng.Find.Execute(ref findText,
       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()
   
   If rng.Find.Execute(findText) Then
   

3. Wyświetl wyniki wyszukiwania w polu komunikatu i wybierz element Range , aby go wyświetlić.

   C#

       MessageBox.Show("Text found.");
   } 
   else 
   { 
       MessageBox.Show("Text not found.");
   } 
   
   rng.Select();
   

   VB

       MessageBox.Show("Text found.")
   Else
       MessageBox.Show("Text not found.")
   End If
   
   rng.Select()
   

   Jeśli wyszukiwanie zakończy się niepowodzeniem, zostanie wybrany drugi akapit; jeśli zakończy się powodzeniem, zostaną wyświetlone kryteria wyszukiwania.

   W poniższym przykładzie pokazano pełny kod dostosowywania na poziomie dokumentu. Aby użyć tego przykładu ThisDocument , uruchom kod z klasy w projekcie.

   C#

   private void RangeFind() 
   { 
       object findText = "find me";
   
       Word.Range rng = this.Paragraphs[2].Range; 
   
       rng.Find.ClearFormatting();
   
       if (rng.Find.Execute(ref findText,
           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("Text found.");
       } 
       else 
       { 
           MessageBox.Show("Text not found.");
       } 
   
       rng.Select(); 
   }
   

   VB

   Private Sub RangeFind()
       Dim findText As String = "find me"
   
       Dim rng As Word.Range = Me.Paragraphs(2).Range
   
       rng.Find.ClearFormatting()
   
       If rng.Find.Execute(findText) Then
           MessageBox.Show("Text found.")
       Else
           MessageBox.Show("Text not found.")
       End If
   
       rng.Select()
   End Sub
   

---

W poniższym przykładzie przedstawiono kompletny kod dodatku VSTO. Aby użyć tego przykładu ThisAddIn , uruchom kod z klasy w projekcie.

C#

private void RangeFind()
{
    object findText = "find me";

    Word.Document document = this.Application.ActiveDocument;
    Word.Range rng = document.Paragraphs[2].Range;

    rng.Find.ClearFormatting();

    if (rng.Find.Execute(ref findText,
        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("Text found.");
    }
    else
    {
        MessageBox.Show("Text not found.");
    }

    rng.Select();
}

VB

Private Sub RangeFind()
    Dim findText As Object = "find me"

    Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(2).Range

    rng.Find.ClearFormatting()

    If rng.Find.Execute(findText) Then
        MessageBox.Show("Text found.")
    Else
        MessageBox.Show("Text not found.")
    End If

    rng.Select()
End Sub

Wyszukiwanie i zastępowanie tekstu w dokumentach

Poniższy kod wyszukuje bieżące zaznaczenie i zastępuje wszystkie wystąpienia ciągu znajdź mnie ciągiem Znaleziony.

Aby wyszukać i zamienić tekst w dokumentach

1. Dodaj następujący przykładowy kod do ThisDocument klasy or ThisAddIn w projekcie.

   C#

   private void SearchReplace()
   {
       Word.Find findObject = Application.Selection.Find;
       findObject.ClearFormatting();
       findObject.Text = "find me";
       findObject.Replacement.ClearFormatting();
       findObject.Replacement.Text = "Found";
   
       object replaceAll = Word.WdReplace.wdReplaceAll;
       findObject.Execute(ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref replaceAll, ref missing, ref missing, ref missing, ref missing);
   }
   

   VB

   Private Sub SearchReplace()
       Dim FindObject As Word.Find = Application.Selection.Find
       With FindObject
           .ClearFormatting()
           .Text = "find me"
           .Replacement.ClearFormatting()
           .Replacement.Text = "Found"
           .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
   End Sub
   

   Klasa Find ma metodę ClearFormatting , a Replacement klasa ma również własną ClearFormatting metodę. Podczas wykonywania operacji znajdowania i zastępowania należy użyć metody ClearFormatting obu obiektów. Jeśli używasz go tylko w Find obiekcie, możesz uzyskać nieprzewidziane wyniki w tekście zastępczym.

2. Execute Użyj metody obiektu, aby zastąpić każdy znaleziony Find element. Aby określić, które elementy mają być zastępowane, użyj parametru Replace . Ten parametr może być jedną z następujących WdReplace wartości:

   • wdReplaceAll Zastępuje wszystkie znalezione elementy.

   • wdReplaceNone Zastępuje żaden z znalezionych elementów.

   • wdReplaceOne zastępuje pierwszy znaleziony element.

Powiązana zawartość

• Instrukcje: Programowe ustawianie opcji wyszukiwania w programie Word
• Instrukcje: Programowa pętla przez znalezione elementy w dokumentach
• Instrukcje: Programowe definiowanie i wybieranie zakresów w dokumentach
• Instrukcje: Programowe przywracanie zaznaczeń po wyszukiwaniu
• Parametry opcjonalne w rozwiązaniach pakietu Office