2 greiti būdai, kaip iš „Word“ dokumento išskirti tekstus ta pačia spalva

Šiandienos įraše mielai pasidalinsime dviem greitais metodais, kaip iš „Word“ dokumento išgauti tos pačios spalvos tekstus.

Kartais, formatuodami Word dokumentą, kai kuriems tekstams pritaikysime šrifto spalvą, kad atkreiptume dėmesį į juos. Paprastai šie spalvoti žodžiai yra svarbus turinys, kurį verta dar kartą peržiūrėti. O kaip eksportuoti ir surinkti juos kitur, kad vėliau būtų galima aiškiai patikrinti?

Atsižvelgdami į šį poreikį, vietoj nesibaigiančių kirpimo ir įklijavimo veiksmų siūlome naudoti 2 sparčiuosius klavišus.

1 būdas: naudokite funkciją „Rasti“.

1. Pirmiausia spustelėkite skirtuką „Pagrindinis“.
2. Tada eikite į grupę „Redagavimas“ ir spustelėkite apverstą trikampį, esantį šalia „Rasti“.
3. Tada sąraše pasirinkite „Išplėstinis paieška“.
4. Dialogo lange „Rasti ir pakeisti“ perkelkite žymeklį į teksto laukelį „Rasti ką“ ir išvalykite visą turinį, jei toks yra.
5. Tada spustelėkite mygtuką „Daugiau“.
6. Dabar spustelėkite mygtuką „Formatas“ ir pasirinkite „Šriftas“.
7. Dialogo lange „Rasti šriftą“ spustelėkite išskleidžiamąjį mygtuką po „Šrifto spalva“, kad pasirinktumėte tikslią spalvą, kurią priskiriate savo tekstams.
8. Nepamirškite spustelėti „Gerai“.
9. Dabar grįžkite į laukelį „Rasti ir pakeisti“ ir spustelėkite „Rasti“.
10. Galiausiai pasirinkite „Pagrindinis dokumentas“.

Tada bus pasirinkti visi norimos spalvos tekstai. Dabar galite paspausti „Ctrl“ + C, kad juos nukopijuotumėte ir įklijuotumėte kitoje vietoje vienu ypu.

2 būdas: paleiskite Word makrokomandą

1. Visų pirma, spustelėkite skirtuką „Kūrėjas“.
2. Tada spustelėkite „Visual Basic“, kad paleistumėte VBA redaktorių.
3. Tada spustelėkite „Įprastas“, tada „Įterpti“.
4. Meniu pasirinkite „Modulis“.
5. Tada dukart spustelėkite modulį, kad suaktyvintumėte kodavimo erdvę.
6. Kitas įklijavimo kodai:

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. Dabar spustelėkite mygtuką „Vykdyti“.

Turi būti atidarytas naujas dokumentas su visais ištrauktais tekstais.

Pastaba: kodo eilutėje „.Font.Color = wdColorRed“ turite pakeisti „wdColorRed“ tikrąja teksto spalva. Norėdami gauti išsamią informaciją, galite apsilankyti šiame puslapyje: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Adresas Word problema

Dauguma mūsų jau dažnai naudojamės „Word“. Vis dėlto, nepaisant to, vis tiek galime susidurti su sunkiomis problemomis, tokiomis kaip „Word“ programos gedimas. Tai tikrai rimta problema, nes gali būti pažeisti svarbūs jūsų failai. Tokiomis aplinkybėmis rekomenduojama gauti... Word duomenų klaidų taisymo įrankis kuri atkurs Word duomenis tik per kelias minutes.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls duomenų problemų taisymo įrankis bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com