4 Mga Kapaki-pakinabang na Paraan upang Maghanap at Palitan ang Teksto sa Bahagi ng isang Dokumentong Salita

Sa dokumentong ito, natutuwa kaming ipakita sa iyo ang 4 na kapaki-pakinabang na paraan upang mahanap at palitan ang teksto sa bahagi ng isang dokumento ng Word.

Karaniwan, kapag ginawa namin ang "Hanapin at Palitan" sa Word, ang epekto ay sa buong mundo. Kaya, ngayon gusto naming mag-alok sa iyo ng mga paraan upang mahanap at palitan ang teksto sa bahagi ng isang dokumento, tulad ng sa isang seleksyon, isang pahina o isang partikular na seksyon.

Paraan 1: Gamitin ang Feature na "Hanapin at Palitan" sa isang Pinili

1. Una, piliin tarkumuha ng text.
2. Pangalawa, pindutin ang "Ctrl + H" upang buksan ang kahon ng "Hanapin at Palitan".
3. Susunod na ilagay ang paghahanap ng teksto sa "Hanapin kung ano" na text box at ang papalitan na teksto sa "Palitan ng" na kahon.
4. Pagkatapos i-click ang pindutang "Palitan Lahat".
5. May lalabas na kahon, na nagtatanong kung gusto mong ipagpatuloy ang paghahanap sa natitirang bahagi ng isang dokumento. Tiyaking i-click mo ang "Hindi".

Paraan 2: Patakbuhin ang mga VBA Code upang Hanapin at Palitan ang Teksto sa isang Pinili

1. Una sa lahat, pumili ng hanay ng nilalaman ng dokumento.
2. Susunod na trigger ang VBA editor sa pamamagitan ng pagpindot sa “Alt+ F11”.
3. Pagkatapos ay i-click ang "Normal" at i-click ang "Ipasok".
4. Piliin ang "Modyul" sa menu.
5. Ngayon buksan ang module na may double click.
6. Kopyahin at i-paste ang mga sumusunod na code doon:

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. Susunod na pindutin ang "F5".
8. Magkakaroon ng dalawang input box na magpo-prompt up. Ilagay ang paghahanap at pagpapalit ng teksto ayon sa pagkakabanggit sa dalawang kahon.
9. I-click ang "OK" upang magpatuloy.

Makakamit mo ang eksaktong parehong epekto tulad ng sa pamamaraan 1.

Paraan 3: Patakbuhin ang Word Macro upang Hanapin at Palitan ang Teksto sa isang Itinalagang Pahina

Ang pagsunod sa macro ay nagbibigay-daan sa iyo na mahanap at palitan ang text sa isang partikular na page.

1. Una, i-install at patakbuhin ang isang macro na sumusunod sa mga hakbang sa paraan 2.
2. Pagkatapos palitan ang macro na ito sa isang ito:

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. Pagkatapos patakbuhin ang mga code na ito, magkakaroon ng 3 input box. Maglagay ng numero ng pahina sa unang kahon, at ilagay ang paghahanap ng teksto sa pangalawa, at i-type ang pagpapalit ng teksto sa pangatlo.
4. Tandaan na i-click ang "OK" upang magpatuloy.

Paraan 4: Patakbuhin ang Word Macro upang Hanapin at Palitan ang Teksto sa isang Seksyon

1. Katulad nito, gawin ang parehong mga hakbang sa paraan 2 upang mag-install at magpatakbo ng isang macro.
2. Ngayon lang gamitin ang macro na ito sa halip:

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. Tandaan na ilagay ang numero ng seksyon sa unang kahon. At paghahanap ng input at pagpapalit ng mga teksto sa sumusunod na dalawang kahon.
4. Gayunpaman, i-click ang "OK" upang magpatuloy.

Makayanan ang mga Isyu sa Salita

Maaaring may maraming uri ng mga problemang nagaganap sa iyong dokumento. Ang ilan ay madaling hawakan, habang ang iba ay mas malala na maaaring humantong sa Word katiwalian. Sa ganitong sitwasyon, dapat kang makakuha ng tool sa pag-aayos sa lalong madaling panahon upang mailigtas ang iyong data.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang Pag-ayos ng Excel at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa