这个可以使用word本身的宏功能
我经常使用的调整身份证图像大小宏如下
Sub 身份证大小()
'
' 身份证大小 宏
'
'On Error Resume Next '????
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes ?? ??
ActiveDocument.InlineShapes(n).Height = 5.4 * 28.35 '??????? 5cm (1cm??28.35px)
ActiveDocument.InlineShapes(n).Width = 8.56 * 28.35 '?????? 4cm
Next n
End Sub
只需要把上面的5.4和8.56改成你想一键调的大小即可使用。