Word баримт дээрх зурган дээр хүрээ нэмэх 3 хурдан арга

Энэ нийтлэлд бид Word баримт бичигт зурган дээр хүрээ нэмэх 3 хурдан аргыг авч үзэхийг хүсч байна.

Яагаад бид зурган дээр хил хязгаар тавих ёстой вэ? Хариулт нь ойлгомжтой. Зарим зураг нь үндсэн агуулгатай дэндүү их төстэй байдаг тул бид тексттэй андуурч магадгүй. Тиймээс, зургийг текстийн агуулгаар нь онцлон харуулахын тулд бидний танд үзүүлэх дараах 3 аргыг ашиглах нь чухал юм.

Арга 1: Нэг баримтанд нэг зурагт хүрээ нэмэх

1. Эхлээд зураг дээр дарж сонгох хэрэгтэй.
2. Дараа нь "Зургийн хэрэгсэл" хэсэгт байрлах "Формат" таб дээр дарна уу.
3. Дараа нь "Зургийн хил" дээр товшоод өнгө сонгоно уу.   

Арга 2: Нэг баримтанд байгаа бүх зурганд хүрээ нэмэх

1-р аргын дагуу зургийг нэг нэгээр нь гараар өөрчлөх нь тийм ч сайн санаа биш юм. Хүчин чармайлтаа хэмнэхийн тулд макро нь таны авах ёстой арга юм.

1. Эхлээд VBA засварлагчийг харуулахын тулд "Хөгжүүлэгч" таб дээр дараад "Visual Basic" дээр дарна уу. "Хөгжүүлэгч" байхгүй үед "Alt+ F11" товчийг дарна уу.
2. Дараа нь "Хэвийн" дээр дарна уу.
3. Дараа нь "Оруулах" таб дээр товшоод цэснээс "Модуль" -ыг сонгоно уу.
4. Баруун талд байгаа кодчиллын хэсгийг нээхийн тулд шинэ модуль дээр давхар товшино уу.
5. Одоо дараах макрог наа:

Sub AddPictureBorders()
  Dim objShape As Shape
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objInLineShape In .InlineShapes
      With objInLineShape.Line
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    Next
    For Each objShape In .Shapes
      objShape.Fill.Solid
      With objShape.Line
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    Next
  End With
End Sub

6. Хамгийн сүүлд гэхдээ "Run" товчийг дарна уу эсвэл "F5" дээр дарна уу.

Арга 3: Олон баримт бичигт байгаа бүх зурганд хүрээ нэмэх

Бид баримт бичигт зурагтай ажиллах макро бичих боломжтой тул олон баримт бичигт зургийг боловсруулах арга байдаг.

Юуны өмнө та бүх зорилтот баримт бичгүүдийг нэг сан дор зохион байгуулах хэрэгтэй. Дараа нь дээр үзүүлсэнтэй яг адилхан алхмуудыг дагаж макро суулгаж ажиллуул, гэхдээ үүнийг дараах байдлаар солино уу:

Sub AddPictureBordersInMultiDoc()
  Dim objShape As Shape
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
 
  Set objDoc = ActiveDocument
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    With objDoc
      For Each objInLineShape In .InlineShapes
        With objInLineShape.Line
          .Style = msoLineSingle
          .ForeColor.RGB = RGB(0, 0, 0)
        End With
      Next
      For Each objShape In .Shapes
        objShape.Fill.Solid
        With objShape.Line
          .Style = msoLineSingle
          .ForeColor.RGB = RGB(0, 0, 0)
        End With
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

тэмдэглэл:

1. "C:\Users\Public\Documents\Шинэ хавтас\Энэ макро дахь ” нь таны баримт бичгүүдийг хадгалдаг лавлах замыг хэлнэ. Сүүлд нь нэмэхээ хэзээ ч бүү март "\".
2. Та хүрээний өнгийг өөрчлөх замаар өөрчилж болно RGB утга.

Нөөцлөлтийн талаар бодох цаг болжээ

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

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. гэмтсэн xlsx болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com