4 uporabne metode za iskanje in zamenjavo besedila v delu Wordovega dokumenta

V tem dokumentu vam z veseljem pokažemo 4 uporabne metode za iskanje in zamenjavo besedila v delu Wordovega dokumenta.

Običajno, ko v Wordu izvedemo »Najdi in zamenjaj«, je učinek globalen. Danes vam torej želimo ponuditi načine za iskanje in zamenjavo besedila v delu dokumenta, na primer v izboru, na eni strani ali v določenem razdelku.

1. način: Uporabite funkcijo »Najdi in zamenjaj« v izboru

1. Najprej izberite tardobiti besedilo.
2. Drugič, pritisnite »Ctrl+ H«, da odprete polje »Najdi in zamenjaj«.
3. Nato vnesite najdeno besedilo v besedilno polje »Najdi kaj« in nadomestno besedilo v polje »Zamenjaj z«.
4. Nato kliknite gumb »Zamenjaj vse«.
5. Pojavilo se bo polje z vprašanjem, ali želite nadaljevati z iskanjem po preostalem delu dokumenta. Prepričajte se, da ste kliknili »Ne«.

2. način: Zaženite kode VBA za iskanje in zamenjavo besedila v izboru

1. Najprej izberite vrsto vsebine dokumenta.
2. Nato sprožite urejevalnik VBA s pritiskom na »Alt+ F11«.
3. Nato kliknite »Normalno« in kliknite »Vstavi«.
4. V meniju izberite “Module”.
5. Sedaj odprite modul z dvoklikom.
6. Tja kopirajte in prilepite naslednje kode:

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. Nato pritisnite "F5".
8. Prikazali se bosta dve vnosni polji. V dve polji vnesite besedilo za iskanje oziroma zamenjavo.
9. Za nadaljevanje kliknite »V redu«.

Dosegli boste popolnoma enak učinek kot pri 1. metodi.

3. način: Zaženite Wordov makro za iskanje in zamenjavo besedila na določeni strani

Naslednji makro vam omogoča iskanje in zamenjavo besedila na določeni strani.

1. Najprej namestite in zaženite makro po korakih v 2. metodi.
2. Nato zamenjajte ta makro s tem:

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. Po zagonu teh kod se prikažejo 3 vnosna polja. V prvo polje vnesite številko strani, v drugo vnesite besedilo za iskanje in v tretje vnesite nadomestno besedilo.
4. Za nadaljevanje ne pozabite klikniti »V redu«.

4. način: zaženite Wordov makro za iskanje in zamenjavo besedila v razdelku

1. Podobno izvedite iste korake v 2. metodi za namestitev in zagon makra.
2. Samo tokrat namesto tega uporabite ta 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 pozabite vnesti številke razdelka v prvo polje. In vnesite iskanje in zamenjavo besedil v naslednji dve polji.
4. Kljub temu kliknite »V redu« za nadaljevanje.

Spopadajte se z besednimi težavami

V vašem dokumentu se lahko pojavijo številne težave. Nekatere je enostavno obvladati, medtem ko so druge hujše, kar lahko povzroči Besedna korupcija. V takem primeru morate čim prej dobiti orodje za popravilo, da rešite svoje podatke.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Popravek v Excelu in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com