2 snabba sätt att extrahera texter med samma färg från ditt Word-dokument

I dagens inlägg delar vi gärna med oss ​​av två snabba metoder för att extrahera texter i samma färg från ditt Word-dokument.

Då och då, medan vi formaterar på ett Word-dokument, kommer vi troligen att använda teckensnittsfärg för vissa texter för att slå ut dem för extra uppmärksamhet. Vanligtvis är dessa färgade ord viktiga innehåll som förtjänar din recension igen. Vad sägs om att exportera och samla dem till någon annanstans för en tydlig kontroll senare?

Med fokus på denna efterfrågan föreslår vi dig två snabba genvägar istället för oändliga klipp- och klistraåtgärder.

Metod 1: Använd funktionen "Sök"

1. Klicka först på fliken "Hem".
2. Gå sedan till gruppen "Redigering" för att klicka på upp och ner-triangeln bredvid "Sök".
3. Välj sedan "Avancerad sökning" i listan.
4. I dialogrutan "Sök och ersätt" placerar du markören i textrutan "Hitta vad" och rensar eventuellt innehåll där.
5. Klicka sedan på “Mer” -knappen.
6. Klicka nu på "Format" -knappen och välj "Font".
7. I dialogrutan "Hitta teckensnitt" klickar du på rullgardinsmenyn bakom "Teckensnittsfärg" för att välja den exakta färgen du tilldelar dina texter.
8. Kom ihåg att klicka på “OK”.
9. Gå tillbaka till rutan "Sök och ersätt" och klicka på "Sök in".
10. Välj slutligen ”Huvuddokument”.

Då kommer alla texter i målfärgen att markeras. Du kan nu trycka på "Ctrl+C" för att kopiera och sedan klistra in dem på en annan plats med ett enda steg.

Metod 2: Kör en Word Macro

1. Först och främst, klicka på fliken "Utvecklare".
2. Klicka sedan på “Visual Basic” för att utlösa VBA-redigeraren.
3. Klicka sedan på “Normal” och sedan “Infoga”.
4. Välj ”Modul” på menyn.
5. Dubbelklicka sedan på modulen för att aktivera kodutrymmet.
6. Nästa klistra in koder:

Sub ExtractColoredTexts()
  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
      .ClearFormatting
      .Replacement.ClearFormatting
      .Font.Color = wdColorRed
      .Text = ""
      .Execute
    End With
  Do While .Find.Found
    Set objRange = Selection.Range
    objDocAdd.Range.InsertAfter objRange & vbCr
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
  End With
End Sub

7. Klicka nu på "Kör" -knappen.

Det ska finnas ett nytt dokument öppet med alla extraherade texter.

Obs! I kodraden “.Font.Color = wdColorRed” måste du ersätta “wdColorRed” med den faktiska färgen på dina texter. För detaljerad referens kan du besöka den här sidan: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Adressera Word-problem

De flesta av oss använder redan Word flitigt. Trots det kan vi fortfarande stöta på svåra problem, som att Word kollapsar. Detta är definitivt ett allvarligt problem, eftersom dina viktiga filer kan vara i fara. Under sådana omständigheter rekommenderas det att skaffa en Word data fel reparation verktyg som återställer Word-data på bara några minuter.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls dataproblem reparationsverktyg och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com