Այս գրառման մեջ մենք ուրախ ենք ձեզ ցույց տալ 3 արդյունավետ մեթոդ՝ Word փաստաթղթում բազմաթիվ ձևերի լցման գույնը խմբաքանակով հեռացնելու համար։
Word- ի փաստաթղթում ձևեր մտցնելիս կարող եք նաև դրանց վրա լրացնել գույնը: Հեշտ է ավելացնել կամ հանել մեկ ձևի լրացման գույնը: Բայց երբ խոսքը վերաբերում է խմբաքանակի վերամշակմանը, մեզ հարկավոր է ինչ-որ հնարք:
Այս անգամ մենք ուզում ենք ցույց տալ, թե ինչպես փաթեթում հեռացնել փաստաթղթում առկա բազմաթիվ ձևերի լրացման գույնը: Այսպիսով, դուք կարող եք դրանք նորից լցնել ցանկալի գույներով կամ պարզապես թողնել ձևերը դատարկ ֆոնի վրա: Ստորև ներկայացված են 3 մեթոդներ, որոնք կարող են օգնել ձեզ տարբեր դեպքերում:
Մեթոդ 1. Հեռացրեք մի քանի ձևերի լրացման գույնը մի էջում
- Առաջին հերթին ժապավենի մեջ կտտացրեք «Տուն» ներդիրին:
- Դրանից հետո կտտացրեք «Ընտրել» հրամանին «Խմբագրում» խմբում:
- Բացվող ընտրացանկում ընտրեք «Ընտրության պատուհան»:
- Այժմ «Ընտրություն և տեսանելիություն» վահանակում այս էջում կարող եք տեսնել ձևերի բոլոր անվանումները: Սեղմեք «Ctrl» - ը ՝ ձեզ համար անհրաժեշտ ձևերը ընտրելու համար:
- Դրանից հետո ժապավենի մեջ կտտացրեք «Ձևաչափը»:
- Հաջորդը կտտացրեք «Լրացնել ձևը»:
- Բացվող ընտրացանկում ընտրեք «No Fill»:
Մեթոդ 2. Փաթեթում խմբաքանակը հանեք բոլոր ձևերի լրացման գույնը
- Նախ և առաջ, եթե «Մշակող» ներդիրը հասանելի է, սեղմեք դրա վրա, ապա սեղմեք «Visual Basic»-ի վրա՝ VBA խմբագրիչը բացելու համար: Եթե «Մշակող»-ը չի ակտիվացվել, դրա փոխարեն սեղմեք «Alt+ F11»:
- Այժմ խմբագրության մեջ կտտացրեք «Նորմալ» նախագիծը ձախ կողմում:
- Դրանից հետո կտտացրեք «Տեղադրել» ցանկի տողի վրա:
- Բացվող ցանկում ընտրեք «Մոդուլ» -ը:
- Կրկնակի կտտացրեք նոր մոդուլին ՝ այն բացելու և այս կոդերը այնտեղ տեղադրելու համար.
Sub RemoveAllShapeFill()
Dim objShape As Shape
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objShape In objDoc.Shapes
objShape.Fill.Visible = False
objShape.Line.Visible = msoTrue
Next objShape
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- Ի վերջո, կտտացրեք «Գործարկել» կոճակը կամ սեղմեք «F5» կոդերը կատարելու համար:
Մեթոդ 3. Փաստաթղթում հանեք բոլոր տեքստային տուփերի լրացնելու գույնը
Տեքստային տուփերը պատկանում են ձևերի կատեգորիային: Եթե ցանկանում եք հեռացնել բոլոր տեքստային տուփերի լրացման գույնը, բայց պահպանել այն այլ ձևերի, այն կարող եք օգտագործել այս եղանակով:
- Նախ `կրկնեք քայլերը մեթոդ 2-ում` մակրո տեղադրելու և գործարկելու համար:
- Եվ այս անգամ այդ մակրոը փոխարինեք այսով.
Sub RemoveTextBoxFill()
Dim objShape As Shape
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.Fill.Visible = msoFalse
objShape.Line.Visible = msoTrue
Else
Exit For
End If
Next objShape
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
Ահա արդյունքը.
Արագ վերականգնել վնասված փաստաթղթերը
Եթե երբևէ հանդիպեք փաստաթղթերի վնասման, մի՛ խուճապի մատնվեք։ Հիշե՛ք, որ փաստաթղթերի մեծ մասը կարելի է վերականգնել։ Դուք պետք է ժամանակ գտնեք և... փաստաթղթի շտկում գործիք Մեր օրերում նման օգտակար ծրագիրը կարող է մեծ օգուտ բերել ձեր տվյալները հետ ստանալու հարցում:
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xls շտկել և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com




