Bu yazıda sizə Word sənədinizdəki birdən çox formanın rəngini silməyin 3 təsirli üsulunu göstərməkdən məmnunuq.
Word sənədinə formalar daxil edərkən, onlara da dolğun rəng tətbiq edə bilərsiniz. Tək bir formanın dolğun rəngini əlavə etmək və ya silmək asandır. Ancaq toplu işlənməyə gəldikdə, bizə bəzi hiylə lazım olacaq.
Bu dəfə sizə sənəddəki çoxlu formanın dolğun rəngini toplu şəkildə necə silməyi göstərmək istəyirik. Beləliklə, onları istədiyiniz rənglərlə doldura və ya sadəcə boş fonda formalar buraxa bilərsiniz. Aşağıda müxtəlif hallarda sizə kömək edə biləcək 3 üsul var.
Metod 1: Səhifədə Çoxlu Formanın Doldurma Rəngini Silin
- Əvvəlcə lentdə "Ev" sekmesini vurun.
- Sonra "Redaktə etmə" qrupunda "Seç" əmrini basın.
- Açılan menyuda "Seçim Bölməsi" ni seçin.
- İndi "Seçim və Görünüş" panelində bu səhifədəki bütün formaların adlarını görə bilərsiniz. Lazım olan formaları seçmək üçün "Ctrl" düyməsini basın.
- Sonra lentdə "Format" düyməsini basın.
- Sonra "Forma Doldur" düyməsini basın.
- Açılan menyuda "Doldurulmur" seçin.
Metod 2: Toplu Sənəddəki Bütün Formaların Doldurma Rəngini Silin
- İlk növbədə, əgər "Tərtibatçı" sekmesi mövcuddursa, üzərinə klikləyin və sonra VBA redaktorunu açmaq üçün "Visual Basic" düyməsini basın. Əgər "Tərtibatçı" aktivləşdirilməyibsə, "Alt+ F11" düymələrini basın.
- İndi redaktorda, sol tərəfdəki "Normal" layihəsini vurun.
- Sonra menyu çubuğunda "Daxil et" düyməsini basın.
- Sonra açılan menyuda "Modul" seçin.
- Yeni modulu açmaq üçün üzərinə iki dəfə klikləyin və bu kodları ora yapışdırın:
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
- Nəhayət, kodları yerinə yetirmək üçün "Çalış" düyməsini və ya "F5" düyməsini basın.
Metod 3: Sənəddəki Bütün Mətn Qutularının Doldurma Rəngini Silin
Mətn qutuları forma kateqoriyasına aiddir. Bütün mətn qutularının rəngini silmək, lakin digər formaların rəngini saxlamaq istəyirsinizsə, bu üsuldan istifadə edə bilərsiniz.
- Əvvəlcə makronu quraşdırmaq və işə salmaq üçün 2-ci üsuldakı addımları təkrarlayın.
- Və bu dəfə həmin makronu bununla əvəz edin:
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
Nəticə budur:
Zədələnmiş sənədləri tez bir zamanda bərpa edin
Sənədlərin korlanması ilə qarşılaşsanız, panikaya düşməyin. Unutmayın ki, sənədlərin əksəriyyəti bərpa edilə bilər. Etməli olduğunuz şey vaxtdan istifadə etmək və... doc fix alət. İndiki vaxtda belə bir yardım proqramı məlumatlarınızı geri qaytarmaqda böyük kömək ola bilər.
Müəllif Giriş:
Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls düzəldin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com




