2 brza načina da pronađete više stavki u jednom Word dokumentu u isto vrijeme

U ovom postu, naš fokus je na predstavljanju dva brza načina za pronalaženje više stavki u jednom Word dokumentu istovremeno.

Svako ko je upoznat sa Wordom mora prilično dobro poznavati opciju „Pronađi i zamijeni“. Dobro funkcionira kada je tekst za pronalaženje uzastopni niz. Ali, nažalost, postaje komplikovano kada želimo tražiti više odvojenih riječi u isto vrijeme. A tamo je velika potražnja za brisanjem liste riječi ili fraza u jednom dokumentu u jednom potezu. Na primjer, ako ste urednik, može postojati nekoliko riječi koje se nikada ne bi trebale pojaviti ni u jednom dokumentu. Ako je tako, trebat će vam zaobilazna rješenja da označite pojavu nekih specifičnih riječi.

Evo 2 dostupna rješenja:

Metoda 1: Uvezite riječi u Rečnik za izuzimanje

Dodajte gomilu riječi ili fraza u rječnik izuzimanja u Wordu, a zatim će se ispod odgovarajućih riječi pojaviti crvena talasna linija koja će ih označiti.

Detaljni koraci za dodavanje riječi u rječnik izuzimanja nalaze se u ovom članku: 4 korisna savjeta za provjeru pravopisa i gramatike

Metod 2: Koristite Word makro

1. Prvo i najvažnije, sve riječi koje želite pretražiti stavite u jedan dokument. Svaka riječ ili fraza treba da zauzima jedan paragraf. Ovdje ćemo to nazvati „lista dokumenata“. Sačuvajte dokument.
2. Drugo, kliknite na karticu "Developer".
3. Zatim kliknite na "Visual Basic" da otvorite VBA editor. Alternativni način je da pritisnete “Alt+ F11”.
4. Zatim kliknite na "Normalno", a zatim na karticu "Insert".
5. I izaberite “Module” na meniju.
6. Dvaput kliknite na novi modul da prikažete područje za uređivanje i tamo zalijepite sljedeći 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 kraju, kliknite na “Run”.
8. Sada postoji kutija. Unesite putanju i naziv dokumenta liste koji ste upravo sačuvali. Zatim kliknite na “OK”.

Sljedeće što vidite je da su sve pronađene riječi označene.

Osigurajte svoje Word dokumente

Jedna od najpopularnijih mjera za sprječavanje oštećenja vaših Word dokumenata je pravljenje sigurnosnih kopija. One vam mogu pružiti mir kada imate oštećen docx. Zato odvojite vrijeme da napravite sigurnosnu kopiju važnih fajlova odmah.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući corrupt xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com