4 Nützliche Methoden zum Suchen und Ersetzen von Text in einem Teil eines Word-Dokuments

In diesem Dokument zeigen wir Ihnen gerne 4 nützliche Methoden zum Suchen und Ersetzen von Text in einem Teil eines Word-Dokuments.

Normalerweise ist der Effekt global, wenn wir in Word „Suchen und Ersetzen“ ausführen. Daher möchten wir Ihnen heute Möglichkeiten bieten, Text in einem Teil eines Dokuments zu finden und zu ersetzen, z. B. in einer Auswahl, einer einzelnen Seite oder einem bestimmten Abschnitt.

Methode 1: Verwenden Sie die Funktion "Suchen und Ersetzen" in einer Auswahl

1. Wählen Sie zunächst aus tarText abrufen.
2. Drücken Sie zweitens "Strg + H", um das Feld "Suchen und Ersetzen" zu öffnen.
3. Geben Sie als Nächstes den Suchtext in das Textfeld "Suchen nach" und den Ersetzungstext in das Feld "Ersetzen durch" ein.
4. Klicken Sie dann auf die Schaltfläche "Alle ersetzen".
5. Es erscheint ein Feld, in dem Sie gefragt werden, ob Sie die Suche im Rest eines Dokuments fortsetzen möchten. Stellen Sie sicher, dass Sie auf "Nein" klicken.

Methode 2: Führen Sie VBA-Codes aus, um Text in einer Auswahl zu suchen und zu ersetzen

1. Wählen Sie zunächst eine Reihe von Dokumentinhalten aus.
2. Als nächstes lösen Sie den VBA-Editor durch Drücken von „Alt + F11“ aus.
3. Klicken Sie dann auf "Normal" und dann auf "Einfügen".
4. Wählen Sie im Menü "Modul".
5. Öffnen Sie nun das Modul mit einem Doppelklick.
6. Kopieren Sie dort die folgenden Codes und fügen Sie sie ein:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. Als nächstes drücken Sie "F5".
8. Es werden zwei Eingabefelder angezeigt. Geben Sie den Such- bzw. Ersetzungstext in zwei Felder ein.
9. Klicken Sie auf "OK", um fortzufahren.

Sie erzielen genau den gleichen Effekt wie in Methode 1.

Methode 3: Führen Sie das Word-Makro aus, um Text auf einer bestimmten Seite zu suchen und zu ersetzen

Mit dem folgenden Makro können Sie Text auf einer bestimmten Seite suchen und ersetzen.

1. Installieren Sie zunächst ein Makro und führen Sie es aus, indem Sie die Schritte in Methode 2 ausführen.
2. Ersetzen Sie dann dieses Makro durch dieses:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Nach dem Ausführen dieser Codes werden 3 Eingabefelder angezeigt. Geben Sie im ersten Feld eine Seitenzahl ein, geben Sie im zweiten den Suchtext ein und geben Sie im dritten Feld den ersetzenden Text ein.
4. Denken Sie daran, auf "OK" zu klicken, um fortzufahren.

Methode 4: Führen Sie das Word-Makro aus, um Text in einem Abschnitt zu suchen und zu ersetzen

1. Führen Sie in Methode 2 die gleichen Schritte aus, um ein Makro zu installieren und auszuführen.
2. Verwenden Sie dieses Mal nur dieses Makro:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Denken Sie daran, die Abschnittsnummer in das erste Feld einzugeben. Geben Sie das Suchen und Ersetzen von Texten in die folgenden beiden Felder ein.
4. Klicken Sie dennoch auf "OK", um fortzufahren.

Mit Word-Problemen umgehen

In Ihrem Dokument können viele Arten von Problemen auftreten. Einige sind leicht zu handhaben, während andere schwerer sind, was dazu führen kann Wortkorruption. In einem solchen Szenario müssen Sie so schnell wie möglich ein Reparaturwerkzeug erhalten, um Ihre Daten zu retten.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel-Fix , pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX