2 rychlé způsoby, jak najít více položek v jednom dokumentu Word současně

V tomto příspěvku se zaměříme na dva rychlé způsoby, jak najít více položek v jednom dokumentu Wordu najednou.

Každý, kdo zná Word, musí docela dobře znát možnost „Najít a nahradit“. Funguje to dobře, když je vyhledávaným textem po sobě jdoucí řetězec. Ale bohužel se to komplikuje, když chceme hledat více samostatných slov současně. A tam venku je silná poptávka po vyškrtnutí seznamu slov nebo frází v jednom dokumentu jedním pohybem. Pokud jste například editor, může existovat několik slov, která by se nikdy neměla objevit v žádném dokumentu. Pokud ano, budete potřebovat zástupná řešení k označení výskytu některých konkrétních slov.

Zde jsou k dispozici 2 řešení:

Metoda 1: Importujte slova do slovníku vyloučení

Přidejte spoustu slov nebo frází do slovníku výjimek ve Wordu a poté se pod odpovídajícími slovy objeví červená vlnovka, která je označí.

Podrobné kroky k přidání slov do slovníku výjimek jsou v tomto článku: 4 užitečné tipy pro kontrolu pravopisu slov a gramatiky

Metoda 2: Použijte Word Makro

1. V první řadě vložte všechna slova, která chcete vyhledat, do jednoho dokumentu. Každé slovo nebo fráze by měla zabírat jeden odstavec. Zde tomu řekněme „seznam dokumentů“. Uložte dokument.
2. Zadruhé klikněte na kartu „Vývojář“.
3. Poté kliknutím na „Visual Basic“ otevřete editor VBA. Alternativním způsobem je stisknout „Alt+ F11“.
4. Dále klikněte na „Normální“ a poté na kartu „Vložit“.
5. V nabídce vyberte „Modul“.
6. Dvojitým kliknutím na nový modul otevřete oblast úprav a vložte do ní následující 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. Nakonec klikněte na „Spustit“.
8. Nyní je tam krabice. Zadejte cestu a název dokumentu seznamu, který jste právě uložili. Poté klikněte na „OK“.

Další věc, kterou uvidíte, je, že všechna nalezená slova jsou zvýrazněna.

Zabezpečte své dokumenty Word

Jedním z nejoblíbenějších opatření, jak zabránit poškození dokumentů Wordu, je vytváření záloh. Mohou vám poskytnout klid, když máte poškozený docx. Udělejte si proto čas na zálohování důležitých souborů právě teď.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkorumpovaný xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com