Veja esta incrível macro extraída desta fonte . Eu o incluí aqui caso o link referenciado expire. Basicamente, você deve atribuir um atalho e salvar essa macro, depois selecionar todas as imagens no documento (indo até Estilos e escolhendo o estilo de imagem atribuído que você possui).
Sub AllPictSize()
Dim PecentSize As Integer
Dim oIshp As InlineShape
Dim oshp As Shape
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)
For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End With
Next oIshp
For Each oshp In ActiveDocument.Shapes
With oshp
.ScaleHeight Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
.ScaleWidth Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
End With
Next oshp
End Sub
Execute a macro nas imagens selecionadas e especifique uma porcentagem da maior imagem entre a imagem selecionada. O valor padrão é 75%, o que significa que TODAS as imagens serão redimensionadas para 75% da maior das imagens.
NOTE : Todos os itens selecionados devem ser imagens para que essa macro funcione, porque o Word pode executar as operações de redimensionamento apenas em objetos de imagem. Se as imagens não forem redimensionadas corretamente, verifique seus estilos e torne todas as imagens consistentes com seu próprio estilo.