ამ პოსტში, სიამოვნებით გაჩვენებთ 3 ეფექტურ მეთოდს, თუ როგორ მოაშოროთ Word დოკუმენტში მრავალი ფორმის შევსების ფერი.
ფორმების Word დოკუმენტში ჩასმისას, თქვენ შეგიძლიათ გამოიყენოთ შევსების ფერი მათზეც. ერთი ფორმის შევსების ფერის დამატება ან ამოღება მარტივია. მაგრამ როდესაც საქმე ეხება პარტიულ დამუშავებას, ჩვენ დაგვჭირდება გარკვეული ხრიკი.
ამჯერად, გვინდა გაჩვენოთ, თუ როგორ უნდა ამოიღოთ დოკუმენტში მრავალი ფორმის შევსების ფერი. ასე რომ თქვენ შეგიძლიათ შეავსოთ ისინი სასურველი ფერებით ან უბრალოდ დატოვოთ ფორმები ცარიელ ფონზე. ქვემოთ მოცემულია 3 მეთოდი, რომელიც დაგეხმარებათ სხვადასხვა შემთხვევაში.
მეთოდი 1: ამოიღეთ გვერდის მრავალი ფორმის შევსების ფერი
- უპირველეს ყოვლისა, დააწკაპუნეთ "მთავარი" ჩანართზე ლენტით.
- შემდეგ დააჭირეთ "აირჩიეთ" ბრძანებას "რედაქტირების" ჯგუფში.
- ჩამოსაშლელ მენიუში აირჩიეთ "შერჩევის პანელი".
- ახლა "შერჩევისა და ხილვადობის" პანელზე შეგიძლიათ იხილოთ ფორმის ყველა სახელი ამ გვერდზე. დააჭირეთ "Ctrl"-ს, რათა აირჩიოთ თქვენთვის სასურველი ფორმები.
- შემდეგ დააჭირეთ "ფორმატს" ლენტით.
- შემდეგი, დააჭირეთ "Shape Fill".
- ჩამოსაშლელი მენიუში აირჩიეთ "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. ერთად




