4 korisna metoda za pronalaženje i zamjenu teksta u dijelu Word dokumenta

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

Obično, kada uradimo „Pronađi i zameni“ u Wordu, efekat je globalan. Dakle, danas želimo da vam ponudimo načine da pronađete i zamenite tekst u delu dokumenta, kao što je izbor, jedna stranica ili određeni odeljak.

Metoda 1: Koristite funkciju „Pronađi i zamijeni“ u odabiru

1. Prvo odaberite tardobiti tekst.
2. Drugo, pritisnite “Ctrl+ H” da otvorite okvir “Pronađi i zamijeni”.
3. Zatim unesite traženi tekst u okvir za tekst "Pronađi šta" i tekst koji zamjenjuje u okvir "Zamijeni sa".
4. Zatim kliknite na dugme „Zameni sve“.
5. Pojavit će se okvir koji vas pita da li želite da nastavite s pretraživanjem ostatka dokumenta. Obavezno kliknite na “Ne”.

Metoda 2: Pokrenite VBA kodove da pronađete i zamijenite tekst u selekciji

1. Prije svega, odaberite raspon sadržaja dokumenta.
2. Zatim pokrenite VBA editor pritiskom na “Alt+ F11”.
3. Zatim kliknite na “Normal” i kliknite na “Insert”.
4. U meniju izaberite „Modul“.
5. Sada otvorite modul dvostrukim klikom.
6. Kopirajte i zalijepite sljedeće kodove tamo:

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 polja za unos. Unesite tekst za pronalaženje i zamjenu teksta u dva polja.
9. Kliknite na “OK” da nastavite.

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

Metoda 3: Pokrenite Word makro da biste pronašli i zamijenili tekst na određenoj stranici

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

1. Prvo instalirajte i pokrenite makro slijedeći korake u metodi 2.
2. Zatim zamijenite taj makro sa ovim:

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, postojaće 3 polja za unos. Unesite broj stranice u prvo polje, a u drugo unesite traženi tekst, a u treće unesite zamjenski tekst.
4. Ne zaboravite da kliknete na “OK” da nastavite.

Metoda 4: Pokrenite Word makro da biste pronašli i zamijenili tekst u odjeljku

1. Slično, poduzmite iste korake u metodi 2 da instalirate i pokrenete makro.
2. Samo ovaj put umjesto toga koristite ovaj 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. Ne zaboravite da unesete broj odjeljka u prvi okvir. I unesite pronalaženje i zamjenu tekstova u sljedeća dva polja.
4. Ipak, kliknite na “OK” da nastavite.

Nosite se sa Word problemima

U vašem dokumentu može biti mnogo vrsta problema. Neki su laki za rukovanje, dok su drugi ozbiljniji što može dovesti do Korupcija riječi. U takvom scenariju morate nabaviti alat za popravku što je prije moguće kako biste spasili svoje podatke.

Uvod za autora:

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