4 kasulikku meetodit Wordi dokumendi osa teksti otsimiseks ja asendamiseks

Selles dokumendis on meil hea meel näidata teile 4 kasulikku meetodit teksti leidmiseks ja asendamiseks Wordi dokumendis.

Tavaliselt, kui teeme Wordis funktsiooni Otsi ja asenda, on mõju globaalne. Seega tahame täna pakkuda teile viise, kuidas leida ja asendada teksti osa dokumendist, näiteks valikus, ühel lehel või konkreetses jaotises.

1. meetod: kasutage valikus funktsiooni „Otsi ja asenda”.

1. Esiteks valige tarsaada tekst.
2. Teiseks vajutage klahvikombinatsiooni "Ctrl + H", et avada kast "Otsi ja asenda".
3. Järgmisena sisestage otsingutekst tekstikasti "Leia mida" ja asendamise tekst väljale "Asenda".
4. Seejärel klõpsake nuppu "Asenda kõik".
5. Ilmub kast, mis küsib, kas soovite jätkata otsimist ülejäänud dokumendist. Veenduge, et klõpsate "Ei".

2. meetod: valiku teksti otsimiseks ja asendamiseks käivitage VBA koodid

1. Kõigepealt valige dokumendi sisu vahemik.
2. Järgmisena käivitage VBA redaktor, vajutades "Alt + F11".
3. Seejärel klõpsake nuppu "Tavaline" ja klõpsake nuppu "Lisa".
4. Valige menüüst "Moodul".
5. Nüüd avage moodul topeltklõpsuga.
6. Kopeerige ja kleepige sinna järgmised koodid:

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. Järgmine vajuta "F5".
8. Ilmub kaks sisestuskasti. Sisestage otsimise ja asendamise tekst vastavalt kahte kasti.
9. Jätkamiseks klõpsake "OK".

Te saavutate täpselt sama efekti nagu 1. meetodis.

3. meetod: määratud lehel teksti otsimiseks ja asendamiseks käivitage Wordi makro

Järgmine makro võimaldab teil konkreetsel lehel teksti leida ja asendada.

1. Esmalt installige ja käivitage makro, järgides meetodi 2 samme.
2. Seejärel asendage see makro järgmisega:

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. Pärast nende koodide käivitamist on 3 sisestuskasti. Sisestage esimesse kasti leheküljenumber ja teise otsingutekst ning kolmandasse asendustekst.
4. Jätkamiseks ärge unustage klõpsata "OK".

4. meetod: jaotises teksti otsimiseks ja asendamiseks käivitage Wordi makro

1. Samamoodi tehke makro installimiseks ja käitamiseks samu samme 2. meetodis.
2. Ainult seekord kasutage selle asemel seda makrot:

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. Ärge unustage sisestada esimesse lahtrisse jaotise number. Ja tekstide leidmine ja asendamine kahes järgmises kastis.
4. Sellegipoolest klõpsake jätkamiseks nuppu "OK".

Wordi probleemidega toime tulemine

Teie dokumendis võib esineda mitmesuguseid probleeme. Mõnda on lihtne käsitseda, samas kui teised on raskemad, mis võib põhjustada Sõnade korruptsioon. Sellise stsenaariumi korral peate oma andmete päästmiseks hankima võimalikult kiiresti remonditööriista.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli parandus ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom