4 Handige methoden om tekst in een deel van een Word-document te zoeken en te vervangen

Word-oplossingen 28 september 2025

In dit document laten we u graag 4 handige methoden zien om tekst in een deel van een Word-document te zoeken en te vervangen.

Normaal gesproken is het effect globaal als we "Zoeken en vervangen" in Word uitvoeren. Daarom willen we u vandaag manieren bieden om tekst in een deel van een document te zoeken en te vervangen, zoals in een selectie, een enkele pagina of een specifieke sectie.Zoek en vervang tekst in een deel van een Word-document

Methode 1: Gebruik de functie "Zoeken en vervangen" in een selectie

  1. Selecteer eerst tarkrijg tekst.
  2. Ten tweede, druk op "Ctrl + H" om het vak "Zoeken en vervangen" te openen.
  3. Voer vervolgens de zoektekst in het tekstvak “Zoeken naar” in en de vervangende tekst in het vak “Vervangen door”.
  4. Klik vervolgens op de knop "Alles vervangen".
  5. Er verschijnt een venster waarin u wordt gevraagd of u wilt doorgaan met zoeken in de rest van een document. Zorg ervoor dat u op "Nee" klikt.Voer teksten in bij "Zoeken naar" en "Vervangen door" Tekstvakken-> Klik op "Alles vervangen" -> Klik op "Nee"

Methode 2: voer VBA-codes uit om tekst in een selectie te zoeken en te vervangen

  1. Selecteer allereerst een reeks documentinhoud.
  2. Activeer vervolgens de VBA-editor door op "Alt + F11" te drukken.
  3. Klik vervolgens op "Normaal" en klik op "Invoegen".
  4. Kies "Module" in het menu.Klik op "Normaal" -> Klik op "Invoegen" -> Klik op "Module"
  5. Open nu de module met dubbelklik.
  6. Kopieer en plak daar de volgende codes:
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
  1. Druk vervolgens op "F5".Plak Codes-> Klik op "Uitvoeren"
  2. Er zullen twee invoervakken verschijnen. Voer de zoek- en vervangende tekst respectievelijk in twee vakken in.
  3. Klik op "OK" om door te gaan.Voer de te vinden tekst in

U krijgt exact hetzelfde effect als bij methode 1.

Methode 3: Voer Word Macro uit om tekst op een aangewezen pagina te zoeken en te vervangen

Met de volgende macro kunt u tekst op een specifieke pagina zoeken en vervangen.

  1. Installeer en voer eerst een macro uit volgens de stappen in methode 2.
  2. Vervang dan die macro door deze:
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
  1. Na het uitvoeren van deze codes zijn er 3 invoervakken. Typ een paginanummer in het eerste vak en voer de zoektekst in het tweede in en typ vervangende tekst in het derde.
  2. Vergeet niet op "OK" te klikken om verder te gaan.Voer een paginanummer in -> klik op "OK"

Methode 4: Voer Word Macro uit om tekst in een sectie te zoeken en te vervangen

  1. Volg dezelfde stappen in methode 2 om een ​​macro te installeren en uit te voeren.
  2. Gebruik deze keer alleen deze macro:
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
  1. Vergeet niet om het sectienummer in het eerste vak in te voeren. En voer zoeken en vervangen van teksten in de volgende twee vakken in.
  2. Klik nog steeds op "OK" om door te gaan.

Omgaan met Word-problemen

Er kunnen veel soorten problemen optreden in uw document. Sommige zijn gemakkelijk te hanteren, terwijl andere ernstiger zijn, wat kan leiden tot Woord corruptie. In een dergelijk scenario moet u zo snel mogelijk een reparatietool aanschaffen om uw gegevens te redden.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Excel-oplossing en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.