2 praktické metody pro extrahování zvýrazněných textů z dokumentu aplikace Word

V tomto článku bychom vám rádi ukázali 2 praktické způsoby, jak extrahovat zvýrazněné texty z vašeho dokumentu Word.

Při procházení dokumentu se často stává, že texty zvýrazňujeme barvami. Všechny tyto útržky textů se mohou rozházet po celém článku, ale rozhodně si zaslouží naši pozornost. Můžeme je tedy pouze exportovat a uspořádat do jiného dokumentu pro rychlou kontrolu příště, což nám ušetří opakované rolování kolečkem myši.

Metoda 1: Využijte funkci „Pokročilé hledání“.

1. Nejprve klikněte na kartu „Domů“ a poté klikněte na tlačítko vzhůru nohama za „Najít“.
2. Poté zvolte „Pokročilé hledání“ a otevřete dialogové okno „Najít a nahradit“.
3. V poli umístěte kurzor do textového pole „Najít“ a klikněte na „Více“.
4. Poté klikněte na tlačítko „Formátovat“ a vyberte „Zvýraznit“.
5. Dále klikněte na kartu „Najít v“ a vyberte „Hlavní dokument“.

Nyní uvidíte, že všechny zvýrazněné texty jsou nyní ve výběru, stejně jako níže:

Poté je můžete zkopírovat a vložit do nového dokumentu.

Metoda 2: Použijte Word VBA

Jak ukazuje náš příklad, není neobvyklé mít více textů v různých barvách zvýraznění. Nyní si promluvme o způsobu, jak nejprve získat veškerý obsah ve stejné barvě zvýraznění.

1. Předevšímost, stisknutím kláves „Alt + F11“ otevřete editor VBA.
2. Poté klikněte na „Normální“.
3. A klikněte na „Vložit“.
4. Dále vyberte „Modul“.
5. Dvojitým kliknutím na nový modul zobrazíte prostor pro kódování.
6. Nyní tam vložte následující kódy:

Sub ExtractHighlightedTextsInSameColor()
  Dim objDoc As Document, objDocAdd As Document
  Dim objRange As Range

  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate

  With Selection
    .HomeKey Unit:=wdStory
     With Selection.Find
       .Highlight = True
       Do While .Execute
         If Selection.Range.HighlightColorIndex = wdYellow Then
           Set objRange = Selection.Range
           objDocAdd.Range.InsertAfter objRange & vbCr 
           Selection.Collapse wdCollapseEnd
         End If
       Loop
     End With
  End With
End Sub

7. Poté klikněte na tlačítko „Spustit“.

Budete mít nový dokument se všemi zvýrazněnými texty.

Pak je tu další makro, které vám umožní shromáždit všechny zvýrazněné texty stejné barvy z více dokumentů. Co musíte udělat, je uspořádat je všechny do jedné složky a provést výše uvedené kroky, ale nahradit makro tímto:

Sub ExtractHighlightedTextsInSameColorFromMultiDoc()
  Dim objDoc As Document, objDocAdd As Document
  Dim strFile As String, strFolder As String
  Dim objRange As Range
 
  '  Initialization
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  Set objDocAdd = Documents.Add
 
  '  Precess each file in the file folder.
  While strFile <> ""
  Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
      Do While .Execute
        If Selection.Range.HighlightColorIndex = wdYellow Then
          Set objRange = Selection.Range
          objDocAdd.Range.InsertAfter objRange & vbCr
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  objDoc.Close
  strFile = Dir()
  Wend
End Sub

Poznámky:

1. Nejprve, jak vidíte, 2 makra extrahují všechny texty žlutě. Určitě můžete nahradit kód “wdŽlutá“ s jinými barvami. Zde je odkaz, který můžete navštívit: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172829(v=office.11)
2. Za druhé, pokud chcete shromáždit všechny zvýrazněné texty v různých barvách, stačí odstranit „If Selection.Range.HighlightColorIndex = wdYellow Then"A"End If”Řádky.
3. Za třetí, v řádku kódu „strFolder = “C:\Users\Public\Documents\Nová složka\” ve druhém makru nahraďte cestu řetězce cestou cestou složky, kterou máte. A nezapomeňte dodat „\" na konci.

Zálohování není nikdy pozdě

Jedním slovem, kladli jsme takový důraz na zálohování, že most z vás by měl vědět, jak je to nyní důležité. Pravidelné zálohování se nám tak stále může podařit. A pravdou je, že bez zálohy je jediná možnost, která jednou zbývá korupce dokumentů je získat nástroj pro získávání dat.

Ú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ě xlsx oprava a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com