3 szybkie metody dodawania obramowań do obrazów w dokumencie programu Word

W tym artykule chcielibyśmy omówić 3 szybkie metody dodawania obramowań do obrazów w dokumentach programu Word.

Dlaczego mielibyśmy nakładać obramowania na obrazy? Odpowiedź jest oczywista. Niektóre zdjęcia są zbyt podobne do głównej treści, powiedzmy ujęcie bloku słów, które możemy łatwo pomylić z tekstami. Dlatego, aby zdjęcia wyróżniały się, zawartość tekstu korzysta z przydatności trzech poniższych metod, które pokażemy.

Metoda 1: Dodaj obramowanie do jednego obrazu w jednym dokumencie

1. Najpierw kliknij zdjęcie, aby je wybrać.
2. Następnie kliknij kartę „Format” w sekcji „Narzędzie do zdjęć”.
3. Następnie kliknij „Obramowanie obrazu” i wybierz kolor.   

Metoda 2: Dodaj obramowanie do wszystkich zdjęć w jednym dokumencie

Jak pokazano w metodzie 1, ręczne zmienianie obrazu po kolei nie jest dobrym pomysłem. Aby zaoszczędzić wysiłek, powinieneś wybrać makro.

1. Na początek kliknij zakładkę „Deweloper”, a następnie „Visual Basic”, aby wyświetlić edytor VBA. Jeśli „Deweloper” jest niedostępny, po prostu naciśnij „Alt+F11”.
2. Następnie kliknij „Normalne”.
3. Następnie kliknij zakładkę „Wstaw” i wybierz z menu „Moduł”.
4. Kliknij dwukrotnie nowy moduł, aby otworzyć obszar kodowania po prawej stronie.
5. Teraz wklej tam ryczące makro:

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. Wreszcie, kliknij przycisk „Uruchom” lub naciśnij „F5”.

Metoda 3: Dodaj obramowanie do wszystkich zdjęć w wielu dokumentach

Ponieważ możemy napisać makro do obsługi obrazów w dokumencie, istnieje również sposób na przetwarzanie obrazów w wielu dokumentach.

Przede wszystkim musisz umieścić wszystkie dokumenty docelowe w tym samym katalogu. Następnie wykonaj dokładnie te same kroki, co powyżej, aby zainstalować i uruchomić makro, ale zastąp je następującym:

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

Komentarz:

1. "C: \ Users \ Public \ Documents \ New folder \”W tym makrze odnosi się do ścieżki katalogu, w którym przechowywane są dokumenty. I nigdy nie zapomnij dodać ostatniego „\".
2. Możesz zmienić kolor obramowania, zmieniając plik Wartość RGB.

Czas pomyśleć o kopii zapasowej

Większość z nas dobrze wie, co potrafi kopia zapasowa. Może być ratunkiem w chwilach, gdy… Szkoda słów. Dlatego nigdy nie będziemy osłabiać efektu poświęcania minut na tworzenie kopii zapasowych cennych dokumentów. W związku z tym nie można zagwarantować bezpieczeństwa jego danych.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony xlsx i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com