Kā atrast un aizstāt saturu vairākos Word dokumentos

Šodienas rakstā mēs esam priecīgi informēt jūs par veidu, kā atrast un aizstāt saturu vairākos Word dokumentos.

Vispārīgi runājot, lielākā daļa Word lietotāju ir diezgan labi pazīstami ar programmatūras funkciju “Atrast un aizstāt”. Tā palīdz mums veikt pakešapstrādi visā dokumentā, kas ietaupa daudz laika. Vai esat domājuši par šīs opcijas izmantošanu vairākos dokumentos, piemēram, visiem failiem noteiktā mapē?

Tā kā vienmēr ir nepieciešams meklēt un aizstāt saturu failu sērijā, būtu jauki, ja šī funkcija tiktu realizēta. Un mūsu veids ir izmantot makro. Lūdzu, lasiet tālāk, lai uzzinātu sīkāku informāciju.

Makro instalēšanas un palaišanas darbības

1. Pirmkārt un galvenokārt, ievietojiet visus failus vienā mapē un atveriet programmu Word.
2. Pēc tam noklikšķiniet uz cilnes Izstrādātājs.
3. Pēc tam noklikšķiniet uz "Visual Basic". Vai vienkārši nospiediet taustiņu kombināciju Alt+F11, lai aktivizētu VBA redaktoru.
4. Pēc tam noklikšķiniet uz “Normal” projekta.
5. Pēc tam noklikšķiniet uz cilnes "Ievietot" un pēc tam izvēlieties "Modulis".
6. Tagad esat veiksmīgi ievietojis jaunu moduli. Veiciet dubultklikšķi uz tā, lai atvērtu kodēšanas vietu.
7. Ielīmējiet siles kodus:

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. Visbeidzot, noklikšķiniet uz “Palaist”.
9. Tagad parādīsies ievades lodziņš. Ievadiet mapes ceļu, kurā glabājat dokumentus.
10. Pēc tam noklikšķiniet uz "OK", un ir otrais lodziņš. Ievadiet tekstus, kurus vēlaties atrast.
11. Turpiniet noklikšķināt uz “OK”, lai atvērtu trešo ievades lodziņu, kurā ievadiet aizstājošos tekstus un noklikšķiniet uz pogas “OK”. Makro automātiski aizstās visu saturu un saglabās izmaiņas.

Kā redzat, šis makro nodrošina 3 ievades lodziņus, kur varat ievadīt mapes ceļu, atrast un aizstāt tekstus. Tātad šim makro varat piešķirt pogu un pievienot to ātrās piekļuves rīkjoslai atkārtotai izmantošanai.

Par pogas piešķiršanu makro varat izlasīt šo rakstu: Kā noņemt ielīmēto tekstu formatēšanu ar makro un VBA

Aizsargājiet vērtīgos datus

Programmā Word var rasties kļūdas un problēmas. Tā rezultātā var tikt sabojāti vērtīgi dokumenti. Saskaroties ar doc bojājumi, ir ieteicams iegūt profesionālu atkopšanas rīku, lai izgūtu datus.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xls bojājums un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar