Бичвэр хийх 3 арга бол үгийн баримтандаа олон дүрсний дүүрсэн өнгийг арилгах

Энэ бичлэгт бид танд Word баримт бичигт байгаа олон хэлбэрийн дүүргэлтийн өнгийг бөөнөөр нь арилгах 3 үр дүнтэй аргыг үзүүлж байгаадаа баяртай байна.

Word баримт бичигт дүрс оруулахдаа дүүргэх өнгө хэрэглэж болно. Нэг дүрсний өнгийг нэмэх, хасахад хялбар байдаг. Гэхдээ багцаар боловсруулах талаар ярихад бидэнд зарим нэг заль мэх хэрэгтэй болно.

Энэ удаад бид баримт бичигт байгаа олон дүрсийг нөхөх өнгийг хэрхэн багцаар устгахыг үзүүлэхийг хүсч байна. Тиймээс та тэдгээрийг хүссэн өнгөөр ​​дүүргэж эсвэл хоосон дэвсгэр дээр хэлбэр дүрсээ үлдээж болно. Дараахь тохиолдолд өөр өөр тохиолдолд танд тус болох 3 аргыг санал болгож байна.

Арга 1: Хуудсан дээрх олон хэлбэрийн дүүргэх өнгийг арилгах

1. Юуны өмнө тууз дээрх "Нүүр хуудас" табыг дарна уу.
2. Дараа нь "Засварлах" бүлгийн "Сонгох" командыг дарна уу.
3. Унтраах цэснээс “Сонгох хэсэг” -ийг сонгоно уу.
4. Одоо "Сонголт ба харагдах байдал" хэсэгт та энэ хуудсан дээрх бүх хэлбэрийн нэрийг харах боломжтой. Шаардлагатай дүрсийг сонгохын тулд "Ctrl" товчийг дарна уу.
5. Дараа нь тууз дээрх "Format" дээр дарна уу.
6. Дараа нь "Дүрс бөглөх" дээр дарна уу.
7. Унтраах цэснээс "No Fill" -ийг сонгоно уу.

Арга 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