4 Användbara metoder för att hitta och ersätta text i en del av ett Word-dokument

I det här dokumentet är vi glada att kunna visa dig fyra användbara metoder för att hitta och ersätta text i en del av ett Word-dokument.

Normalt, när vi gör "Hitta och ersätt" i Word, är effekten globalt. Så idag vill vi erbjuda dig sätt att hitta och ersätta text i en del av ett dokument, till exempel i ett urval, en enda sida eller ett specifikt avsnitt.

Metod 1: Använd funktionen "Hitta och ersätt" i ett urval

1. Välj först tarfå text.
2. För det andra, tryck på "Ctrl + H" för att öppna rutan "Sök och ersätt".
3. Därefter anger du söktexten i "Hitta vad" textrutan och ersätter texten i "Ersätt med" rutan.
4. Klicka sedan på "Ersätt alla" -knappen.
5. En ruta dyker upp och frågar om du vill fortsätta söka i resten av ett dokument. Se till att du klickar på “Nej”.

Metod 2: Kör VBA-koder för att hitta och ersätta text i ett urval

1. Välj först en rad dokumentinnehåll.
2. Nästa utlösare för VBA genom att trycka på “Alt + F11”.
3. Klicka sedan på "Normal" och klicka på "Infoga".
4. Välj ”Modul” på menyn.
5. Öppna nu modulen med dubbelklick.
6. Kopiera och klistra in följande koder där:

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. Nästa hit “F5”.
8. Det kommer att finnas två inmatningsrutor som uppmanas. Ange sökningen och ersätt texten i två rutor.
9. Klicka på “OK” för att fortsätta.

Du ska uppnå exakt samma effekt som i metod 1.

Metod 3: Kör Word Macro för att hitta och ersätta text på en utsedd sida

Med följande makro kan du hitta och ersätta text på en specifik sida.

1. Installera och kör först ett makro genom att följa stegen i metod 2.
2. Byt sedan ut det här makrot med det här:

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. Efter att ha kört dessa koder kommer det att finnas 3 inmatningsrutor. Ange ett sidnummer i den första rutan och mata in sökningstexten i den andra och skriv ersättningstexten i den tredje.
4. Kom ihåg att klicka på “OK” för att fortsätta.

Metod 4: Kör Word Macro för att hitta och ersätta text i ett avsnitt

1. På samma sätt, ta samma steg i metod 2 för att installera och köra ett makro.
2. Endast den här gången använder du detta makro istället:

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. Kom ihåg att ange sektionsnumret i den första rutan. Och mata in hitta och ersätta texter i följande två rutor.
4. Klicka ändå på “OK” för att fortsätta.

Hantera ordfrågor

Det kan finnas många typer av problem i ditt dokument. Vissa är lätta att hantera, medan andra är allvarligare vilket kan leda till Ordkorruption. I ett sådant scenario måste du skaffa ett reparationsverktyg så snart som möjligt för att rädda dina data.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Excel-fix och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com