Word Macros

Word Macros

Add border to all images

http://answers.microsoft.com/en-us/office/forum/office_2007-word/picture-borders-for-multiple-images/6f88c7b8-ded6-43ad-838a-b48f980f87a1

Sub ImageBorder()
'
' ImageBorder Macro
'
'
Dim i As Long, j As Long
With ActiveDocument.Range
    For i = 1 To .InlineShapes.Count
        With .InlineShapes(i)
            For j = 1 To .Borders.Count
                .Borders(j).LineStyle = wdLineStyleSingle
                .Borders(j).Color = wdColorAutomatic
            Next j
        End With
    Next i
End With

End Sub

Comments