4 korisne metode za pronalaženje i zamjenu teksta u dijelu Word dokumenta

U ovom dokumentu, drago nam je pokazati vam 4 korisne metode za pronalaženje i zamjenu teksta u dijelu Word dokumenta.

Obično, kada radimo "Pronađi i zamijeni" u Wordu, učinak je globalan. Dakle, danas vam želimo ponuditi načine za pronalaženje i zamjenu teksta u dijelu dokumenta, kao što je odabir, jedna stranica ili određeni odjeljak.

Metoda 1: Iskoristite značajku "Pronađi i zamijeni" u odabiru

1. Prvo odaberite tardobiti tekst.
2. Drugo, pritisnite “Ctrl+ H” da biste otvorili okvir “Pronađi i zamijeni”.
3. Zatim unesite traženi tekst u tekstni okvir "Pronađi što" i zamjenski tekst u okvir "Zamijeni sa".
4. Zatim kliknite gumb "Zamijeni sve".
5. Pojavit će se okvir s pitanjem želite li nastaviti s pretraživanjem ostatka dokumenta. Obavezno kliknite "Ne".

Metoda 2: Pokrenite VBA kodove za pronalaženje i zamjenu teksta u odabiru

1. Prije svega odaberite niz sadržaja dokumenta.
2. Zatim pokrenite VBA uređivač pritiskom na “Alt+ F11”.
3. Zatim kliknite "Normalno" i kliknite "Umetni".
4. U izborniku odaberite "Modul".
5. Sada otvorite modul dvostrukim klikom.
6. Tamo kopirajte i zalijepite sljedeće kodove:

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. Zatim pritisnite "F5".
8. Pojavit će se dva okvira za unos. Unesite traženi i zamjenski tekst u dva okvira.
9. Pritisnite “OK” za nastavak.

Postići ćete točno isti učinak kao u metodi 1.

Metoda 3: Pokrenite Word Macro za pronalaženje i zamjenu teksta na određenoj stranici

Sljedeći makro vam omogućuje da pronađete i zamijenite tekst na određenoj stranici.

1. Najprije instalirajte i pokrenite makro slijedeći korake u metodi 2.
2. Zatim zamijenite tu makronaredbu ovom:

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. Nakon pokretanja ovih kodova, pojavit će se 3 okvira za unos. U prvi okvir unesite broj stranice, u drugi unesite traženi tekst, a u treći upišite zamjenski tekst.
4. Ne zaboravite kliknuti "OK" za nastavak.

Metoda 4: Pokrenite Word Macro za pronalaženje i zamjenu teksta u odjeljku

1. Slično, poduzmite iste korake u metodi 2 za instaliranje i pokretanje makronaredbe.
2. Samo ovaj put umjesto toga koristite ovu makronaredbu:

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. Ne zaboravite unijeti broj odjeljka u prvi okvir. I unesite traženje i zamjenu tekstova u sljedeća dva okvira.
4. Ipak, kliknite "OK" za nastavak.

Nosite se s problemima s riječima

U vašem dokumentu mogu se pojaviti mnoge vrste problema. Nekima je lako rukovati, dok su drugi ozbiljniji što može dovesti do Korupcija riječi. U takvom scenariju morate nabaviti alat za popravak što je prije moguće kako biste spasili svoje podatke.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com