2 kiiret viisi Wordi dokumendist sama värvi tekstide eraldamiseks

Tänases lkost, jagame teiega hea meelega kahte kiiret meetodit, kuidas Wordi dokumendist sama värvi tekste välja tõmmata.

Aeg-ajalt rakendame Wordi dokumenti vormindades tõenäoliselt mõnele tekstile fondivärvi, et neile tähelepanu pöörata. Tavaliselt on need värvilised sõnad oluline sisu, mis väärib teie uuesti ülevaatamist. Kuidas oleks siis nende eksportimisega ja mujale kogumisega, et neid hiljem selgeks kontrollida?

Sellele nõudlusele keskendudes soovitame lõputute lõikamis- ja kleepimistoimingute asemel kasutada kahte kiiret otseteed.

1. meetod: kasutage funktsiooni Otsi

1. Kõigepealt klõpsake vahekaarti "Kodu".
2. Seejärel minge rühma "Redigeerimine", et klõpsata valiku "Otsi" kõrval olevat tagurpidi kolmnurga nuppu.
3. Järgmisena valige loendist "Täpsem otsing".
4. Asetage dialoogiboksis „Otsi ja asenda” kursor tekstiväljale „Leia mis” ja tühjendage sealt kogu sisu, kui see on olemas.
5. Järgmisena klõpsake nuppu "Veel".
6. Nüüd klõpsake nuppu "Format" ja valige "Font".
7. Klõpsake dialoogiboksis „Fonti otsimine” rippmenüü nuppu „Fonti värv” taga, et valida oma tekstidele määratud täpne värv.
8. Ärge unustage klõpsata "OK".
9. Nüüd pöörduge tagasi kasti "Otsi ja asenda" ja klõpsake nuppu "Leia".
10. Lõpuks valige "Põhidokument".

Seejärel kõik tekstid tarvalitakse värv. Nüüd saate kopeerimiseks vajutada klahvikombinatsiooni Ctrl+C ja seejärel ühe liigutusega teise asukohta kleepida.

2. meetod: käivitage Wordi makro

1. Esiteks ja eeskättost, klõpsake vahekaarti „Arendaja”.
2. Seejärel klõpsake VBA redaktori käivitamiseks "Visual Basic".
3. Järgmisena klõpsake nuppu "Tavaline" ja seejärel "Insert".
4. Valige menüüst "Moodul".
5. Seejärel topeltklõpsake moodulil kodeerimisruumi aktiveerimiseks.
6. Järgmised kleebi koodid:

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. Nüüd klõpsake nuppu "Käivita".

Avatakse uus dokument kõigi väljavõetud tekstidega.

Märkus. Koodireal ".Font.Color = wdColorRed" peate asendama "wdColorRed" oma tekstide tegeliku värviga. Üksikasjaliku teabe saamiseks külastage seda lehte: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Sõnaprobleemi aadress

Most meist on juba sagedane Wordi kasutaja. Sellest hoolimata võime siiski kokku puutuda raskete probleemidega, näiteks Wordi kokkuvarisemisega. See on igal juhul üsna tõsine probleem, sest teie kriitilised failid võivad olla mängus. Sellistel juhtudel on soovitatav hankida a Wordi andmete vigade parandamise tööriist mis taastab Wordi andmed vaid mõne minutiga.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls-i andmeprobleemide parandamise tööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom