2 ātrie veidi, kā no Word dokumenta iegūt vienādas krāsas tekstus

Šodienas ierakstā mēs ar prieku dalāmies ar jums divās ātrās metodēs, kā no Word dokumenta iegūt vienas krāsas tekstus.

Šad un tad, formatējot Word dokumentā, mēs, iespējams, dažiem tekstiem izmantosim fonta krāsu, lai tiem pievērstu īpašu uzmanību. Parasti šie krāsainie vārdi ir svarīgs saturs, kas ir pelnījis jūsu pārskatīšanu vēlreiz. Tad kā būtu ar to eksportēšanu un savākšanu kaut kur citur, lai vēlāk veiktu skaidru pārbaudi?

Koncentrējoties uz šo pieprasījumu, iesakām jums 2 ātras saīsnes, nevis bezgalīgas griešanas un ielīmēšanas darbības.

1. metode: izmantojiet funkciju “Atrast”

1. Vispirms noklikšķiniet uz cilnes Sākums.
2. Pēc tam dodieties uz grupu “Rediģēšana”, lai blakus “Atrast” noklikšķinātu uz trīsstūra otrādi.
3. Pēc tam sarakstā izvēlieties “Advanced Find”.
4. Dialoglodziņā “Atrast un aizstāt” ievietojiet kursoru tekstlodziņā “Atrast ko” un notīriet tajā esošo saturu, ja tāds ir.
5. Pēc tam noklikšķiniet uz pogas “Vēl”.
6. Tagad noklikšķiniet uz pogas “Formatēt” un izvēlieties “Fonts”.
7. Dialoglodziņā “Atrast fontu” noklikšķiniet uz nolaižamās pogas aiz “Fonta krāsa”, lai izvēlētos precīzu krāsu, ko piešķirat saviem tekstiem.
8. Neaizmirstiet noklikšķināt uz Labi.
9. Tagad atgriezieties lodziņā “Atrast un aizstāt” un noklikšķiniet uz “Atrast”.
10. Visbeidzot, izvēlieties “Galvenais dokuments”.

Pēc tam tiks atlasīti visi teksti mērķa krāsā. Tagad varat nospiest taustiņu kombināciju “Ctrl+C”, lai tos kopētu un pēc tam uzreiz ielīmētu citā vietā.

2. metode: palaidiet Word makro

1. Pirmkārt un galvenokārt, noklikšķiniet uz cilnes “Izstrādātājs”.
2. Pēc tam noklikšķiniet uz Visual Basic, lai aktivizētu VBA redaktoru.
3. Pēc tam noklikšķiniet uz “Normal” un pēc tam uz “Insert”.
4. Izvēlnē izvēlieties “Module”.
5. Pēc tam veiciet dubultklikšķi uz moduļa, lai aktivizētu kodēšanas vietu.
6. Nākamie ielīmēšanas kodi:

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. Tagad noklikšķiniet uz Palaist.

Ir atvērts jauns dokuments ar visiem izvilktajiem tekstiem.

Piezīme: Kodu rindā “.Font.Color = wdColorRed” ir jāaizstāj “wdColorRed” ar faktisko tekstu krāsu. Lai iegūtu detalizētu informāciju, varat apmeklēt šo lapu: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Adreses vārda problēma

Lielākā daļa no mums jau ir bieži Word lietotāji. Tomēr, neskatoties uz to, mēs joprojām varam saskarties ar dažām sarežģītām problēmām, piemēram, Word sabrukumu. Tā noteikti ir diezgan nopietna problēma, jo jūsu svarīgi faili var būt apdraudēti. Šādos apstākļos ieteicams iegūt Word datu kļūdu labošanas rīks kas Word datus atgūs tikai dažu minūšu laikā.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xls datu problēmu novēršanas rīks un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar