Malen Sie einen Rahmen um jedes Bild in einem Word-Dokument

Question

Gibt es eine Möglichkeit, einen Rahmen um jedes Bild in Word hinzuzufügen? Ich weiß, dass ich einen benutzerdefinierten Absatzstil mit einer Grenze zu schaffen und dort das Bild setzen, aber vielleicht kann ich nur einen globalen Bild-Stil, wie in CSS angeben:

img { border: 1px solid #000 } 

Answer 1

Leider gibt es kein Bild Stilkonzept verfügbar in Word. Daher ist so etwas wie das Festlegen eines globalen Stils für CSS-ähnliche Bilder nicht möglich.

Sie können einen VBA-Makro schreiben, der den Rand zu allen Bildern hinzufügt. Der Code ist ein wenig anders, je nachdem, ob Ihr Bild formatiert wird inline, um mit Text (InlineShape) oder variabel (Shape):

Sub AddBorderToPictures() 

    ' Add border to pictures that are "inline with text" 
    Dim oInlineShape As inlineShape 
    For Each oInlineShape In ActiveDocument.InlineShapes 
     oInlineShape.Borders.Enable = True 
     oInlineShape.Borders.OutsideColor = wdColorBlack 
     oInlineShape.Borders.OutsideLineWidth = wdLineWidth100pt 
     oInlineShape.Borders.OutsideLineStyle = wdLineStyleSingle 
    Next 

    ' Add border to pictures that are floating 
    Dim oShape As shape 
    For Each oShape In ActiveDocument.Shapes 
     oShape.Line.ForeColor.RGB = RGB(0, 0, 0) 
     oShape.Line.Weight = 1 
     oShape.Line.DashStyle = msoLineSolid 
    Next 

End Sub 

Wenn anscheinend die Linienbreite auf wdLineWidth100pt Einstellung ein Problem ist, können Sie versuchen, mit der tatsächliche zugrundeliegende ganzzahligen Wert statt, zB:

oInlineShape.Borders.OutsideLineWidth = 8 

Dies ist, wie die konstante definiert ist:

public enum WdLineWidth 
{ 
    wdLineWidth025pt = 2, 
    wdLineWidth050pt = 4, 
    wdLineWidth075pt = 6, 
    wdLineWidth100pt = 8, 
    wdLineWidth150pt = 12, 
    wdLineWidth225pt = 18, 
    wdLineWidth300pt = 24, 
    wdLineWidth450pt = 36, 
    wdLineWidth600pt = 48, 
}