VBA for Microsoft Word: Add a black, solid line border all pictures in a Word document

gistfile1.txt

Sub borders()
'
' borders Macro
'
'There should be a way to make this the default styling for all images pasted into a Word document, in my opinion.
' Adds black solid line borders to all images in word document
' Source: 
'
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
  pic.borders.OutsideLineStyle = wdLineStyleSingle
  pic.borders.OutsideLineWidth = wdLineWidth050pt
Next


End Sub