====== Word macros ======

===== Resize all images =====

<code vbscript>
Sub AA_resize()
Dim i As Long
With ActiveDocument
    For i = 1 To .InlineShapes.Count
        With .InlineShapes(i)
            .ScaleHeight = 50
            .ScaleWidth = 50
        End With
    Next i
End With
End Sub 
</code>

===== References =====
[[https://superuser.com/questions/940771/how-can-i-resize-not-compress-multiple-images-in-a-ms-word-document|How can I resize (not compress) multiple images in a MS Word document?]]