3 hurtige metoder til at tilføje rammer til billeder i dit Word-dokument

I denne artikel vil vi gerne diskutere 3 hurtige metoder til, hvordan du tilføjer rammer til billeder i dine Word-dokumenter.

Hvorfor skulle vi sætte rammer på billeder? Svaret er indlysende. Nogle billeder minder for meget om hovedindholdet, f.eks. et skud af en blok af ord, som vi let kan forveksle med tekster. Derfor, for at få billeder til at skille sig ud, benytter tekstindholdet brugen af ​​de følgende 3 metoder, vi vil vise dig.

Metode 1: Tilføj grænser til ét billede i ét dokument

1. Først skal du klikke på et billede for at vælge.
2. Klik derefter på "Format"-fanen under "Picture Tool".
3. Klik derefter på "Billedkant" og vælg en farve.   

Metode 2: Tilføj rammer til alle billeder i ét dokument

Som vist i metode 1 er det virkelig ikke en god idé at ændre billedet manuelt et efter et. For at spare indsats er makro den måde, du bør tage.

1. For at starte med skal du klikke på fanen "Udvikler" og derefter på "Visual Basic" for at vise VBA-editoren. Når "Udvikler" ikke er tilgængelig, skal du blot trykke på "Alt+F11" i stedet.
2. Klik derefter på “Normal”.
3. Klik derefter på fanen "Indsæt", og vælg "Modul" i dens menu.
4. Dobbeltklik på det nye modul for at åbne kodningsområdet i højre side.
5. Indsæt nu nedenstående makro der:

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. Sidst men ikke mindst skal du klikke på "Kør" -knappen eller trykke på "F5".

Metode 3: Tilføj rammer til alle billeder i flere dokumenter

Da vi kan skrive en makro til at håndtere billeder i et dokument, er der også en måde at behandle billeder i flere dokumenter på.

Først og fremmest skal du organisere alle måldokumenter i samme mappe. Følg derefter præcis de samme trin som ovenfor for at installere og køre en makro, men erstat den med følgende:

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

Noter:

1. Den "C:\Brugere\Offentlige\Dokumenter\Ny mappe\” i denne makro refererer til mappestien, hvor du gemmer dokumenter. Og glem aldrig at tilføje det sidste "\".
2. Du kan ændre kantfarven ved at ændre RGB-værdi.

Tid til at tænke på backup

De fleste af os er godt informeret om, hvad en sikkerhedskopi kan gøre. Den kan være din livredder, når du har Ordskade. Vi vil således aldrig underminere effekten af ​​at tage minutter til at sikkerhedskopiere værdifulde dokumenter. Som sådan kan man ikke garantere sikkerheden af ​​sine data.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget xlsx og pdf produkter til reparation af software. For mere information besøg www.datanumen.com