Macros Word

Sub ResizePicture()
'
' ResizePicture Macro
'
'
Dim x As Long
With ActiveDocument
    For x = 1 To .InlineShapes.Count
        With .InlineShapes(x)
            .LockAspectRatio = msoFalse
            .Width = CentimetersToPoints(15)
        End With
    Next x
End With
End Sub
Sub RemoveTableBorder()
'
' RemoveTableBorder Macro
'
'
For Each Table In ActiveDocument.Tables
    Table.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Table.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Table.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Table.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Table.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
    Table.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
Next
End Sub