Paano Maghanap at Palitan ang Mga Nilalaman sa Maramihang Mga Dokumento ng Salita

Sa artikulong ngayon, nasasabik kaming ipaalam sa iyo ang paraan upang mahanap at palitan ang mga nilalaman sa maraming dokumento ng Word.

Sa pangkalahatan, karamihan sa mga gumagamit ng Word ay pamilyar sa feature na "Find and Replace" sa software. Nakakatulong ito sa atin sa batch process sa buong dokumento, na nakakatipid sa atin ng maraming oras. Naisip mo na ba ang paggamit ng opsyong ito sa multi-document, tulad ng lahat ng file sa ilalim ng isang partikular na folder?

Dahil palaging may pangangailangan na maghanap at palitan ang mga nilalaman sa isang batch ng mga file, mainam na maisakatuparan ang function. At ang aming paraan ay ang paggamit ng macro. Mangyaring basahin upang malaman ang higit pang mga detalye.

Mga Hakbang sa Pag-install at Pagpapatakbo ng Macro

1. Una sa lahat, ilagay ang lahat ng file sa isang folder at buksan ang Word.
2. Pagkatapos i-click ang tab na "Developer".
3. Susunod na i-click ang "Visual Basic". O pindutin lang ang “Alt+ F11” para ma-trigger ang VBA editor.
4. Pagkatapos ay i-click ang "Normal" na proyekto.
5. Susunod na i-click ang tab na "Insert" at pagkatapos ay piliin ang "Module".
6. Ngayon ay matagumpay mong naipasok ang isang bagong module. I-double click ito para buksan ang coding space.
7. Idikit doon ang mga bellowing code:

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. Panghuli, i-click ang "Run".
9. Ngayon ay magkakaroon ng isang input box na lalabas. Ipasok ang path ng folder kung saan ka nag-iimbak ng mga dokumento.
10. Pagkatapos ay i-click ang "OK" at naroon ang pangalawang kahon. Ilagay ang mga text na gusto mong hanapin.
11. Magpatuloy sa pag-click sa "OK" upang buksan ang ikatlong kahon ng pag-input, kung saan ipinasok mo ang mga pinapalitang teksto at i-click ang pindutang "OK" doon. Awtomatikong papalitan ng macro ang lahat ng nilalaman at i-save ang pagbabago.

Tulad ng nakikita mo, ang macro na ito ay nagbibigay sa iyo ng 3 input box kung saan maaari kang magpasok ng landas ng folder, ang paghahanap at pagpapalit ng mga teksto. Kaya maaari kang magtalaga ng isang button para sa macro na ito at idagdag ito sa "Quick Access Toolbar" para sa muling paggamit.

Kung paano magtalaga ng isang pindutan sa isang macro, maaari mong basahin ang artikulong ito: Paano Tanggalin ang Pag-format ng Mga Na-paste na Mga Teksto gamit ang Macro at VBA sa Iyong Salita

Protektahan ang Mahalagang Data

Maaaring mangyari ang mga error at problema sa Word. Bilang resulta, maaaring masira ang mahahalagang dokumento. Habang nakakaharap sa pinsala ng doc, ipinapayong kumuha ng isang propesyonal na tool sa pagbawi upang makuha ang 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 xls pinsala at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa