2 ātri veidi, kā vienlaikus atrast vairākus vienumus vienā Word dokumentā

Šajā ierakstā mūsu uzmanības centrā ir divu ātru veidu demonstrēšana, kā vienlaikus atrast vairākus vienumus vienā Word dokumentā.

Ikvienam, kurš pārzina Word, diezgan labi jāzina opcija “Atrast un aizstāt”. Tas darbojas labi, ja atrašanas teksts ir secīga virkne. Diemžēl tas kļūst sarežģīti, ja mēs vienlaikus vēlamies meklēt vairākus atsevišķus vārdus. Un tur ir liels pieprasījums pēc vārdu kustības vai frāžu saraksta vienā dokumentā vienā kustībā. Piemēram, ja esat redaktors, var būt pāris vārdu, kas nekad nedrīkst parādīties nevienā dokumentā. Ja tā, jums būs nepieciešami risinājumi, lai atzīmētu dažu konkrētu vārdu parādīšanos.

Šeit ir 2 pieejamie risinājumi:

1. metode: importējiet vārdus vārdnīcā Izslēgt

Pievienojiet virkni vārdu vai frāžu izslēgšanas vārdnīcai programmā Word, un zem atbilstošajiem vārdiem parādīsies sarkanā viļņa līnija, lai tos atzīmētu.

Šajā rakstā ir sīki aprakstītas darbības vārdu pievienošanai izslēgšanas vārdnīcai: 4 noderīgi padomi vārdu pareizrakstībai un gramatikas pārbaudei

2. metode: izmantojiet Word Macro

1. Pirmkārt un galvenokārt, ievietojiet visus meklējamos vārdus vienā dokumentā. Katram vārdam vai frāzei jāaizņem viena rindkopa. Šeit to sauksim par “saraksta dokumentu”. Saglabājiet dokumentu.
2. Otrkārt, noklikšķiniet uz cilnes Izstrādātājs.
3. Pēc tam noklikšķiniet uz “Visual Basic”, lai atvērtu VBA redaktoru. Alternatīvs veids ir nospiest taustiņu “Alt + F11”.
4. Pēc tam noklikšķiniet uz “Normal”, pēc tam uz cilnes “Insert”.
5. Izvēlnē izvēlieties “Module”.
6. Veiciet dubultklikšķi uz jaunā moduļa, lai parādītu rediģēšanas apgabalu, un tur ielīmējiet šādu 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. Visbeidzot, noklikšķiniet uz “Palaist”.
8. Tagad tur ir kaste. Ievadiet tikko saglabātā saraksta dokumenta ceļu un nosaukumu. Pēc tam noklikšķiniet uz Labi.

Nākamā lieta, ko redzat, ir visi atrastie vārdi, kas tiek iezīmēti.

Nodrošiniet savus Word dokumentus

Viens no populārākajiem pasākumiem, lai novērstu Word dokumentu bojāšanu, ir dublējumu veidošana. Tie var sniegt jums sirdsmieru, kad jums ir bojāts docx. Tāpēc veltiet laiku, lai dublētu svarīgos failus tieši tagad.

Autora ievads:

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