Kuinka löytää ja korvata sisällön useissa Word-asiakirjoissa

Tämän päivän artikkelissa olemme innoissaan voidessamme kertoa sinulle tavasta löytää ja korvata sisällön useissa Word-asiakirjoissa.

Yleisesti ottaen useimmat Wordin käyttäjät tuntevat ohjelmiston "Etsi ja korvaa" -toiminnon melko hyvin. Se auttaa meitä koko asiakirjan eräkäsittelyssä, mikä säästää paljon aikaa. Oletko sitten ajatellut tämän toiminnon käyttöä useiden asiakirjojen käsittelyssä, kuten kaikkien tietyn kansion tiedostojen kanssa?

Koska tiedostoerän sisältöä on aina etsittävä ja korvattava, olisi mukava saada toiminto toteutettua. Ja meidän tapamme on käyttää makroa. Lue lisätietoja saadaksesi lisätietoja.

Makron asentamisen ja suorittamisen vaiheet

1. Ensinnäkin, laita kaikki tiedostot yhteen kansioon ja avaa Word.
2. Napsauta sitten Kehittäjä-välilehteä.
3. Napsauta sitten “Visual Basic”. Tai paina yksinkertaisesti “Alt + F11” käynnistääksesi VBA-editorin.
4. Napsauta sitten Normaali-projekti.
5. Napsauta sitten Lisää-välilehteä ja valitse sitten Moduuli.
6. Nyt olet onnistuneesti lisännyt uuden moduulin. Kaksoisnapsauta sitä avataksesi koodaustilan.
7. Liitä räjähtävät koodit sinne:

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. Napsauta lopuksi ”Suorita”.
9. Nyt syöttöruutu avautuu. Kirjoita kansion polku, johon tallennat asiakirjoja.
10. Napsauta sitten "OK" ja siellä on toinen ruutu. Kirjoita tekstit, jotka haluat löytää.
11. Napsauta edelleen "OK" avataksesi kolmannen syöttöruudun, johon kirjoitat korvaavat tekstit ja napsautat siellä "OK" -painiketta. Makro korvaa kaiken sisällön automaattisesti ja tallentaa muutoksen.

Kuten näette, tämä makro tarjoaa sinulle 3 syöttöruutua, joihin voit kirjoittaa kansion polun, etsiä ja korvata tekstejä. Joten voit määrittää tälle makrolle painikkeen ja lisätä sen pikakäyttöpalkkiin uudelleenkäyttöä varten.

Mitä painikkeen määrittämisestä makrolle löytyy, voit lukea tämän artikkelin: Kuinka poistaa liitettyjen tekstien muotoilu makrolla ja VBA: lla Wordissasi

Suojaa arvokkaat tiedot

Wordissa voi esiintyä virheitä ja ongelmia. Tämän seurauksena arvokkaat asiakirjat voivat vahingoittua. Vaikka kohtaat doc vahingot, on suositeltavaa hankkia ammattimainen palautustyökalu tietojen noutamiseksi.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xls vaurioita ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com