4 nyttige metoder for å finne og erstatte tekst i en del av et Word-dokument

Word-løsninger September 28, 2025

I dette dokumentet er vi glade for å vise deg 4 nyttige metoder for å finne og erstatte tekst i deler av et Word-dokument.

Normalt, når vi gjør "Finn og erstatt" i Word, er effekten global. Så i dag ønsker vi å tilby deg måter å finne og erstatte tekst i en del av et dokument, for eksempel i et utvalg, en enkelt side eller en bestemt del.Finn og erstatt tekst i en del av et Word-dokument

Metode 1: Bruk "Finn og erstatt"-funksjonen i et utvalg

  1. Velg først tarfå tekst.
  2. For det andre, trykk "Ctrl + H" for å åpne "Finn og erstatt"-boksen.
  3. Skriv deretter inn søketeksten i "Finn hva"-tekstboksen og erstatningsteksten i "Erstatt med"-boksen.
  4. Klikk deretter på "Erstatt alle"-knappen.
  5. En boks dukker opp som spør om du vil fortsette å søke i resten av et dokument. Pass på at du klikker "Nei".Skriv inn tekster i "Finn hva" og "Erstatt med" tekstbokser->Klikk på "Erstatt alle"->Klikk "Nei"

Metode 2: Kjør VBA-koder for å finne og erstatte tekst i et utvalg

  1. Først av alt, velg en rekke dokumentinnhold.
  2. Neste utløser VBA editor ved å trykke "Alt + F11".
  3. Klikk deretter "Normal" og klikk "Sett inn".
  4. Velg "Modul" på menyen.Klikk "Normal" -> Klikk "Sett inn" -> Klikk "Modul"
  5. Åpne nå modulen med dobbeltklikk.
  6. Kopier og lim inn følgende koder der:
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. Neste trykk "F5".Lim inn koder-> Klikk "Kjør"
  2. Det vil være to inndatabokser som spør. Skriv inn henholdsvis finne- og erstatningsteksten i to bokser.
  3. Klikk "OK" for å fortsette.Skriv inn teksten som skal finnes

Du skal oppnå nøyaktig samme effekt som i metode 1.

Metode 3: Kjør Word Macro for å finne og erstatte tekst på en angitt side

Følgende makro lar deg finne og erstatte tekst på en bestemt side.

  1. Installer og kjør først en makro ved å følge trinnene i metode 2.
  2. Bytt deretter ut den makroen med denne:
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. Etter å ha kjørt disse kodene vil det være 3 inndatabokser. Skriv inn et sidetall i den første boksen, og skriv inn søketeksten i den andre, og skriv erstatte tekst i den tredje.
  2. Husk å klikke "OK" for å fortsette.Skriv inn et sidenummer -> Klikk "OK"

Metode 4: Kjør Word Macro for å finne og erstatte tekst i en seksjon

  1. På samme måte tar du de samme trinnene i metode 2 for å installere og kjøre en makro.
  2. Bare denne gangen bruker du denne makroen i stedet:
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. Husk å skrive inn seksjonsnummer i den første boksen. Og skriv inn for å finne og erstatte tekster i de følgende to boksene.
  2. Likevel, klikk "OK" for å fortsette.

Håndtere Word-problemer

Det kan oppstå mange typer problemer i dokumentet ditt. Noen er enkle å håndtere, mens andre er mer alvorlige som kan føre til Ordkorrupsjon. I et slikt scenario må du få et reparasjonsverktøy så snart som mulig for å redde dataene dine.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel-fiks og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.