3 snelle methoden om randen toe te voegen aan afbeeldingen in uw Word-document

In dit artikel willen we 3 snelle methoden bespreken voor het toevoegen van randen aan afbeeldingen in uw Word-documenten.

Waarom zouden we randen op afbeeldingen toepassen? Het antwoord is duidelijk. Sommige afbeeldingen lijken te veel op de hoofdinhoud, bijvoorbeeld een shot van een blok woorden, die we gemakkelijk voor teksten kunnen aanzien. Daarom, om afbeeldingen te laten opvallen, maakt de tekstinhoud gebruik van de bruikbaarheid van de volgende 3 methoden die we u gaan laten zien.

Methode 1: randen toevoegen aan één afbeelding in één document

1. Klik eerst op een afbeelding om deze te selecteren.
2. Klik vervolgens op het tabblad "Formaat" onder "Afbeeldingstool".
3. Klik vervolgens op "Picture Border" en kies een kleur.   

Methode 2: randen toevoegen aan alle afbeeldingen in één document

Zoals getoond in methode 1, is het handmatig één voor één wijzigen van de afbeelding niet echt een goed idee. Om inspanningen te besparen, is macro de manier die u moet nemen.

1. Klik om te beginnen op het tabblad "Ontwikkelaar" en vervolgens op "Visual Basic" om de VBA-editor te openen. Als "Ontwikkelaar" niet beschikbaar is, druk dan op "Alt + F11".
2. Klik vervolgens op "Normaal".
3. Klik vervolgens op het tabblad "Invoegen" en kies "Module" in het menu.
4. Dubbelklik op de nieuwe module om het coderingsgebied aan de rechterkant te openen.
5. Plak nu de brullende macro daar:

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. Last but not least, klik op de knop "Uitvoeren" of druk op "F5".

Methode 3: randen toevoegen aan alle afbeeldingen in meerdere documenten

Omdat we een macro kunnen schrijven om met afbeeldingen in een document om te gaan, is er ook een manier om afbeeldingen in meerdere documenten te verwerken.

Allereerst moet u alle doeldocumenten in dezelfde map organiseren. Volg vervolgens exact dezelfde stappen als hierboven beschreven om een ​​macro te installeren en uit te voeren, maar vervang deze door de volgende:

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

Notes:

1. De "C: \ Users \ Public \ Documents \ New folder \”In deze macro verwijst naar het directorypad waar u documenten opslaat. En vergeet nooit de laatste "\'.
2. U kunt de randkleur wijzigen door de RGB-waarde.

Tijd om na te denken over back-up

De meesten van ons weten wel wat een back-up kan doen. Het kan je leven redden in tijden van nood. Woordschade. We zullen dus nooit het effect ondermijnen van het maken van notulen om een ​​back-up te maken van waardevolle documenten. Als zodanig kan men de veiligheid van zijn gegevens niet garanderen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde xlsx en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com