Ձեր Word փաստաթղթից նույն գույնով տեքստեր հանելու 2 արագ եղանակ

Այսօրվա գրառման մեջ մենք ուրախ ենք ձեզ հետ կիսվել 2 արագ մեթոդով՝ ձեր Word փաստաթղթից նույն գույնի տեքստեր հանելու համար։

Այժմ և հետո, Word փաստաթղթի ձևաչափման ընթացքում, մենք, ամենայն հավանականությամբ, որոշ տեքստերի համար կկիրառենք տառատեսակի գույն, որպեսզի նրանց դուրս գցենք լրացուցիչ ուշադրության համար: Սովորաբար, այս գունավոր բառերը կարևոր բովանդակություն են, որոնք կրկին արժանի են ձեր վերանայման: Հետո ինչպե՞ս վերաբերվել դրանց արտահանմանը և հավաքագրմանը այլ տեղ ՝ ավելի ուշ հստակ ստուգման:

Կենտրոնանալով այս պահանջի վրա ՝ մենք առաջարկում ենք ձեզ 2 արագ դյուրանցում ՝ կտրելու և կպցնելու անվերջ գործողությունների փոխարեն:

Մեթոդ 1. Օգտագործեք «Գտիր» հատկությունը

1. Սկզբից կտտացրեք «Տուն» ներդիրին:
2. Դրանից հետո անցեք «Խմբագրում» խումբ `կտտացրեք« Գտիր »-ի կողքին գտնվող անկարգ եռանկյան կոճակին:
3. Հաջորդը ընտրեք ցուցակում «Ընդլայնված որոնում»:
4. «Գտիր և փոխարինիր» երկխոսության դաշտում կուրսորը դրիր «Գտիր ինչ» տեքստի վանդակում և այնտեղ, եթե առկա է, մաքրիր ցանկացած բովանդակություն:
5. Հաջորդը կտտացրեք «Ավելին» կոճակին:
6. Այժմ կտտացրեք «Ձևաչափ» կոճակին և ընտրեք «Տառատեսակ»:
7. «Գտեք տառատեսակը» երկխոսության դաշտում կտտացրեք «Տառատեսակի գույնի» ետևում գտնվող բացվող կոճակին ՝ ձեր տեքստերին ճշգրիտ գույնը ընտրելու համար:
8. Մի մոռացեք կտտացնել «Լավ»:
9. Այժմ վերադարձեք «Գտեք և փոխարինեք» վանդակում և կտտացրեք «Գտիր»:
10. Վերջապես ընտրեք «Հիմնական փաստաթուղթ»:

Այնուհետև կընտրվեն թիրախային գույնի բոլոր տեքստերը: Այժմ կարող եք սեղմել «Ctrl+ C»՝ դրանք մեկ սեղմումով պատճենելու և այնուհետև այլ տեղում տեղադրելու համար:

Մեթոդ 2. Գործարկել բառի մակրո

1. Առաջին հերթին, սեղմեք «Մշակող» ներդիրին:
2. Դրանից հետո կտտացրեք «Visual Basic» - ին `VBA խմբագիրը գործարկելու համար:
3. Հաջորդը կտտացրեք «Նորմալ» և ապա «Տեղադրել»:
4. Ընտրացանկում ընտրեք «Մոդուլ»:
5. Դրանից հետո կրկնակի կտտացրեք մոդուլին ՝ կոդավորման տարածությունն ակտիվացնելու համար:
6. Հաջորդ տեղադրման կոդերը.

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. Այժմ կտտացրեք «Գործարկել» կոճակին:

Պետք է բացվի նոր փաստաթուղթ ՝ դուրս բերված բոլոր տեքստերով:

Նշում. «.Font.Color = wdColorRed» ծածկագրի տողում անհրաժեշտ է «wdColorRed» - ը փոխարինել ձեր տեքստերի իրական գույնով: Մանրամասն տեղեկությունների համար կարող եք այցելել այս էջը. https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Հասցե բառի խնդիր

Մեզանից շատերն արդեն Word-ի հաճախակի օգտագործողներ են։ Այնուամենայնիվ, չնայած դրան, մենք դեռ կարող ենք բախվել որոշ լուրջ խնդիրների, ինչպիսին է Word-ի փլուզումը։ Սա, անշուշտ, բավականին լուրջ խնդիր է, քանի որ ձեր կարևոր ֆայլերը կարող են վտանգի տակ լինել։ Նման դեպքերում խորհուրդ է տրվում ձեռք բերել... Բառի տվյալների սխալների վերականգնման գործիք որը վերականգնում է Word- ի տվյալները ընդամենը մի քանի րոպեում:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xls տվյալների խնդիրների վերականգնման գործիք և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com