To'plamning 3 usuli Word hujjatingizdagi bir nechta shakllarning to'ldirish rangini olib tashlash

Ushbu postda sizga Word hujjatingizdagi bir nechta shakllarning rangini olib tashlashning 3 ta samarali usulini ko'rsatib berishdan mamnunmiz.

Word hujjatiga shakllar qo'shayotganda siz ularga to'ldirish rangini ham qo'llashingiz mumkin. Bitta shaklning to'ldirish rangini qo'shish yoki olib tashlash oson. Ammo ommaviy ishlov berish haqida gap ketganda, bizga qandaydir hiyla kerak bo'ladi.

Bu safar biz sizga hujjatdagi bir nechta shakllarning to'ldirish rangini qanday qilib ommaviy ravishda olib tashlashni ko'rsatmoqchimiz. Shunday qilib, siz ularni kerakli ranglar bilan to'ldirishingiz yoki shunchaki bo'sh fonda shakllarni qoldirishingiz mumkin. Quyida turli holatlarda sizga yordam beradigan 3 ta usul keltirilgan.

1-usul: Sahifadagi bir nechta shakllarning to'ldirish rangini olib tashlang

1. Avvalo, lentadagi "Uy" yorlig'ini bosing.
2. Keyin "Tahrirlash" guruhidagi "Tanlash" buyrug'ini bosing.
3. Ochilgan menyuda "Tanlash paneli" ni tanlang.
4. Endi "Tanlash va ko'rinish" panelida siz ushbu sahifadagi barcha shakllarning nomini ko'rishingiz mumkin. Kerakli shakllarni tanlash uchun "Ctrl" tugmasini bosing.
5. Keyin tasmadagi "Format" tugmasini bosing.
6. Keyin "Shaklni to'ldirish" tugmasini bosing.
7. Ochilgan menyuda "To'ldirish yo'q" -ni tanlang.

2-usul: To'plam Hujjatdagi barcha shakllarning to'ldirish rangini olib tashlang

1. Avvalo, agar "Dasturchi" yorlig'i mavjud bo'lsa, uni bosing va keyin VBA muharririni ochish uchun "Visual Basic" ni bosing. Agar "Dasturchi" faollashtirilmagan bo'lsa, buning o'rniga "Alt+ F11" tugmalarini bosing.
2. Endi muharrirda chap tomondagi "Oddiy" loyihasini bosing.
3. Keyin menyu satrida "Qo'shish" tugmasini bosing.
4. Keyin ochiladigan menyuda "Modul" ni tanlang.
5. Yangi modulni ochish uchun uni ikki marta bosing va ushbu kodlarni u erga qo'ying:

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

6. Nihoyat, kodlarni bajarish uchun "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.

3-usul: Hujjatdagi barcha matn maydonlarining to'ldirish rangini olib tashlang

Matn qutilari shakl toifasiga kiradi. Agar siz barcha matn maydonlarining to'ldirish rangini olib tashlamoqchi bo'lsangiz, lekin boshqa shakllarning rangini saqlamoqchi bo'lsangiz, bu usuldan foydalanishingiz mumkin.

1. Birinchidan, makrosni o'rnatish va ishga tushirish uchun 2-usuldagi amallarni takrorlang.
2. Va bu safar o'sha makroni bu bilan almashtiring:

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

Mana natija:

Buzilgan hujjatlarni tezda tiklang

Agar siz qachondir hujjatlarning buzilishiga duch kelsangiz, vahima qo'ymang. Shuni yodda tutingki, aksariyat hujjatlar tiklanishi mumkin. Siz qilishingiz kerak bo'lgan narsa - vaqtni unumli sarflash va ... doc tuzatish asbob. Hozirgi vaqtda bunday yordamchi dastur ma'lumotlaringizni qaytarib olishda katta yordam berishi mumkin.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls tuzatish va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com