2 nopeaa tapaa löytää useita kohteita yhdestä Word-dokumentista samanaikaisesti

Tässä artikkelissa keskitymme esittelemään kaksi nopeaa tapaa löytää useita kohteita yhdestä Word-asiakirjasta samanaikaisesti.

Jokaisen, joka tuntee Wordin, on tunnettava "Etsi ja korvaa" -vaihtoehto melko hyvin. Se toimii hyvin, kun etsintäteksti on peräkkäinen merkkijono. Mutta valitettavasti se monimutkaistuu, kun haluamme etsiä useita erillisiä sanoja samanaikaisesti. Ja siellä kysyntä on voimakasta poistaa luettelo sanoista tai lauseista yhdessä asiakirjassa yhdellä kertaa. Esimerkiksi, jos olet toimittaja, voi olla pari sanaa, joiden ei pitäisi koskaan näkyä missään asiakirjassa. Jos näin on, tarvitset kiertotietoja tiettyjen sanojen esiintymisen merkitsemiseksi.

Tässä on 2 saatavilla olevaa ratkaisua:

Tapa 1: Tuo sanat poissuljettuun sanakirjaan

Lisää joukko sanoja tai lauseita poissuljettuun sanakirjaan Wordissa, ja sitten vastaavien sanojen alla on oltava punainen aaltoviiva niiden merkitsemiseksi.

Yksityiskohtaiset vaiheet sanojen lisäämiseksi poissuljettuun sanakirjaan ovat tässä artikkelissa: 4 hyödyllistä vinkkiä sanojen oikeinkirjoitukseen ja kieliopin tarkistamiseen

Tapa 2: Käytä Word-makroa

1. Ensinnäkin, laita kaikki haettavat sanat yhteen dokumenttiin. Jokaisen sanan tai lauseen tulisi täyttää yksi kappale. Kutsutaan sitä tässä "luettelodokumentiksi". Tallenna dokumentti.
2. Toiseksi napsauta Kehittäjä-välilehteä.
3. Napsauta sitten Visual Basic avataksesi VBA-editorin. Vaihtoehtoinen tapa on painaa “Alt + F11”.
4. Napsauta seuraavaksi “Normaali” ja sitten “Lisää” -välilehti.
5. Ja valitse valikosta ”Moduuli”.
6. Kaksoisnapsauta uutta moduulia tuodaksesi muokkausalueen esiin ja liittämällä seuraava makro sinne:

Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub

7. Napsauta lopuksi ”Suorita”.
8. Nyt on laatikko. Kirjoita juuri tallentamasi luettelodokumentin polku ja nimi. Napsauta sitten “OK”.

Seuraavaksi näet, että kaikki löydetyt sanat ovat korostuksessa.

Suojaa Word-asiakirjat

Yksi suosituimmista tavoista estää Word-asiakirjojen vioittuminen on varmuuskopioiden ottaminen. Ne voivat tarjota sinulle mielenrauhaa, kun sinulla on vaurioitunut docx. Ota siis aikaa varmuuskopioida tärkeät tiedostosi juuri nyt.

Tekijän esittely:

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