2 hitra načina za iskanje več elementov v enem besedilnem dokumentu hkrati

V tej objavi se bomo osredotočili na predstavitev dveh hitrih načinov za iskanje več elementov v enem Wordovem dokumentu hkrati.

Kdor pozna Word, mora zelo dobro poznati možnost »Najdi in zamenjaj«. Dobro deluje, če je besedilo za iskanje zaporedni niz. Toda na žalost se zaplete, ko želimo iskati več ločenih besed hkrati. In tam zunaj je veliko povpraševanje po prečrtanju seznama besed ali besednih zvez v enem dokumentu z eno potezo. Na primer, če ste urednik, se lahko nekaj besed nikoli ne bi smelo pojaviti v nobenem dokumentu. Če je tako, boste potrebovali rešitve za označevanje pojavljanja nekaterih določenih besed.

Tu sta na voljo 2 rešitvi:

1. način: Uvozi besede v slovar za izključitev

Dodajte več besed ali besednih zvez v izključitveni slovar v Wordu, nato pa se bo pod ujemajočimi se besedami pojavila rdeča valovita črta, ki jih bo označila.

Podrobni koraki za dodajanje besed v izključitveni slovar so v tem članku: 4 koristni nasveti za preverjanje črkovanja in slovnice

2. način: Uporabite Wordov makro

1. Najprej in predvsem, vse besede, ki jih želite iskati, shranite v en dokument. Vsaka beseda ali besedna zveza naj zasede en odstavek. Tukaj to poimenujmo »seznam dokumentov«. Shranite dokument.
2. Drugič, kliknite jeziček »Razvijalec«.
3. Nato kliknite »Visual Basic«, da odprete urejevalnik VBA. Druga možnost je, da pritisnete »Alt + F11«.
4. Nato kliknite »Normalno« in nato zavihek »Vstavi«.
5. In v meniju izberite »Modul«.
6. Dvokliknite nov modul, da prikažete območje za urejanje in tja prilepite naslednji makro:

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. Na koncu kliknite »Zaženi«.
8. Zdaj je škatla. Vnesite pot in ime dokumenta seznama, ki ste ga pravkar shranili. Nato kliknite »V redu«.

Naslednja stvar, ki jo vidite, je, da so vse najdene besede označene.

Zavarujte svoje Wordove dokumente

Eden najbolj priljubljenih ukrepov za preprečevanje poškodb dokumentov Word je ustvarjanje varnostnih kopij. Zagotavljajo vam lahko brezskrbnost, ko imate poškodovan docx. Zato si vzemite čas in varnostno kopirajte pomembne datoteke takoj zdaj.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjen xlsx in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com