2 raske måter å trekke ut tekster med samme farge fra Word-dokumentet ditt

I dagens sost, vi deler gjerne 2 raske metoder med deg for å trekke ut tekster av samme farge fra Word-dokumentet ditt.

Nå og da, mens vi formaterer på et Word-dokument, vil vi sannsynligvis bruke skriftfarge på enkelte tekster for å stryke dem ut for ekstra oppmerksomhet. Vanligvis er disse fargede ordene viktig innhold som fortjener din anmeldelse igjen. Hva med å eksportere og samle dem til et annet sted for en klar sjekk senere?

Med fokus på denne etterspørselen foreslår vi 2 raske snarveier i stedet for endeløse klippe- og limhandlinger.

Metode 1: Bruk "Finn"-funksjonen

1. Først klikker du på "Hjem"-fanen.
2. Gå deretter til "Redigering"-gruppen for å klikke på opp-ned trekantknappen ved siden av "Finn".
3. Velg deretter "Avansert søk" på listen.
4. I "Finn og erstatt"-dialogboksen, sett markøren i "Finn hva"-tekstboksen og fjern eventuelt innhold der.
5. Klikk deretter på "Mer"-knappen.
6. Klikk nå på "Format"-knappen og velg "Font".
7. I "Finn skrift"-dialogboksen klikker du på rullegardinknappen bak "Skriftfarge" for å velge den nøyaktige fargen du tilordner tekstene dine.
8. Husk å klikke "OK".
9. Nå tilbake til "Finn og erstatt"-boksen og klikk "Finn inn".
10. Til slutt velger du "Hoveddokument".

Deretter alle tekster i tarfå farge vil bli valgt. Du kan nå trykke "Ctrl + C" for å kopiere og deretter lime dem inn på et annet sted med en gang.

Metode 2: Kjør en Word-makro

1. Først og fremstost, klikk på «Utvikler»-fanen.
2. Klikk deretter "Visual Basic" for å utløse VBA-editoren.
3. Klikk deretter "Normal" og deretter "Sett inn".
4. Velg "Modul" på menyen.
5. Dobbeltklikk deretter på modulen for å aktivere kodeplassen.
6. Neste lim inn 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. Klikk nå på "Kjør"-knappen.

Det skal være et nytt dokument åpent med alle de utpakkede tekstene.

Merk: I kodelinjen ".Font.Color = wdColorRed", må du erstatte "wdColorRed" med den faktiske fargen på tekstene dine. For detaljert referanse kan du besøke denne siden: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Adresse Word-problem

Most av oss er allerede en hyppig bruker av Word. Likevel, til tross for det, kan vi fortsatt støte på noen tøffe problemer, for eksempel sammenbruddet av Word. Dette er for all del en ganske alvorlig en, for dine kritiske filer kan være på linjen. Under slike omstendigheter foreslås det å skaffe en Verktøy for reparasjon av Word-datafeil som skal gjenopprette Word-data på bare noen få minutter.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls dataproblem reparasjonsverktøy og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med