resize images in word docs and horizontal center by word macro

resizeImageAndCentering.vbs

Sub ResizeAllImagesAndHorizontalCenter()

Dim oShp As Shape
Dim oILShp As InlineShape

For Each oILShp In ActiveDocument.InlineShapes
    With oILShp
        .ConvertToShape
    End With
Next

For Each oShp In ActiveDocument.Shapes
    With oShp
        .Width = CentimetersToPoints(10)
        .Select
        If Selection.ShapeRange.Type = msoPicture Then
            Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
            Selection.ShapeRange.Left = ActiveDocument.PageSetup.PageWidth / 2 - ActiveDocument.PageSetup.LeftMargin - Selection.ShapeRange.Width / 2
        End If
    End With
Next

End Sub