3 бързи метода за добавяне на граници към картинки във вашия документ на Word

В тази статия бихме искали да обсъдим 3 бързи метода за това как да добавите граници към картинки във вашите документи на Word.

Защо да прилагаме граници към снимки? Отговорът е очевиден. Някои снимки са твърде много като основното съдържание, да речем изстрел от блок думи, които лесно бихме могли да сбъркаме с текстове. Следователно, за да се откроят картините, съдържанието на текста се възползва от полезността на следните 3 метода, които ще ви покажем.

Метод 1: Добавяне на граници към една снимка в един документ

1. Първо кликнете върху снимка, за да изберете.
2. След това щракнете върху раздела „Форматиране“ под „Инструмент за изображения“.
3. След това щракнете върху „Граница на картината“ и изберете цвят.   

Метод 2: Добавяне на граници към всички снимки в един документ

Както е показано в метод 1, ръчното променяне на картина едно по едно наистина не е добра идея. За да спестите усилия, макросът е начинът, по който трябва да предприемете.

1. За начало щракнете върху раздела „Разработчик“, след което върху „Visual Basic“, за да се покаже редакторът на VBA. Когато „Разработчик“ не е наличен, просто натиснете „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. Не на последно място, щракнете върху бутона „Изпълни“ или натиснете „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 \ New folder \”В този макрос се отнася до пътя на директорията, където съхранявате документи. И никога не забравяйте да добавите последното “\".
2. Можете да промените цвета на границата, като промените RGB стойност.

Време е да помислите за архивиране

Повечето от нас са добре информирани за това какво може да направи резервното копие. То може да ви спаси живота в моменти, когато имате Увреждане на думите. По този начин никога няма да подкопаем ефекта от отделянето на минути за архивиране на ценни документи. Като такъв човек не може да гарантира безопасността на своите данни.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повреден xlsx и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com