Сіздің Word құжатыңыздағы бірнеше пішіннің бояуын жоюдың 3 әдісі

Бұл жазбада біз сізге Word құжатындағы бірнеше пішіндердің бояу түсін топтап жоюдың 3 тиімді әдісін көрсетуге қуаныштымыз.

Word құжатына фигуралар енгізу кезінде сіз оларға бояудың түсін де қолдануға болады. Бір пішіннің толтыру түсін қосу немесе жою оңай. Топтамалық өңдеу туралы сөз болғанда, бізге қандай да бір алдау қажет болады.

Бұл жолы біз сізге құжаттағы бірнеше фигураның бояу түсін қалай алып тастау керектігін көрсеткіміз келеді. Сіз оларды қажетті түстермен толтыра аласыз немесе бос фонда кескіндер қалдыра аласыз. Төменде сізге әртүрлі жағдайларда көмектесе алатын 3 әдіс берілген.

1-әдіс: парақтың бірнеше пішінінің бояуын алып тастаңыз

1. Ең алдымен, таспадағы «Үйге» қойындысын нұқыңыз.
2. Содан кейін «Өңдеу» тобындағы «Таңдау» командасын басыңыз.
3. Ашылмалы мәзірден «Таңдау аймағын» таңдаңыз.
4. Енді «Таңдау және көріну» тақтасында сіз осы беттегі кескіндердің барлық атауларын көре аласыз. Қажетті кескіндерді таңдау үшін «Ctrl» пернесін басыңыз.
5. Содан кейін таспадағы «Пішімдеу» батырмасын басыңыз.
6. Әрі қарай «Пішінді толтыру» батырмасын басыңыз.
7. Ашылмалы мәзірден «Толтыру жоқ» таңдаңыз.

2-әдіс: Құжаттағы барлық пішіндердің бояуын бумалық түрде алып тастаңыз

1. Ең алдымен, егер «Әзірлеуші» қойындысы қолжетімді болса, оны басып, VBA редакторын ашу үшін «Visual Basic» түймесін басыңыз. Егер «Әзірлеуші» белсендірілмеген болса, оның орнына «Alt+ F11» пернелер тіркесімін басыңыз.
2. Енді редактордың сол жағындағы «Қалыпты» жобасын басыңыз.
3. Содан кейін мәзір жолағында «Кірістіру» батырмасын басыңыз.
4. Содан кейін ашылмалы мәзірден «Модуль» таңдаңыз.
5. Жаңа модульді екі рет нұқыңыз және оны ашыңыз және мына кодтарды қойыңыз:

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. Соңында кодтарды орындау үшін «Іске қосу» батырмасын басыңыз немесе «F5» пернесін басыңыз.

3-әдіс: Құжаттағы барлық мәтін ұяшықтарының түстерін алып тастаңыз

Мәтін ұяшықтары пішін категориясына жатады. Егер сіз барлық мәтін ұяшықтарының бояуын жойғыңыз келсе, бірақ басқа фигураларды сақтағыңыз келсе, осылай қолдануға болады.

1. Біріншіден, макросты орнату және іске қосу үшін 2-тәсілдегі әрекеттерді қайталаңыз.
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