在word中一键压缩所有图片

在word文档中，如果有多张图片的话，通常只能一张一张地压缩，相当不方便。如图：通过添加宏，可以实现一次压缩所有图片，唯一不中的是dpi的选择没有上面那张图那么多。如图：对应的宏： Sub CompressPhotos() ' ' 一键压缩所有图片 ' Dim docNew As Docum