将word中的图片批量旋转180度(2014-05-30 17:50:43)

 用VBA来实现就可以了。 不过，这个VBA代码得到的结果，只能满足批量旋转图片的目的，但旋转之后，图片的位置会发生变动，而且只对所有的嵌入式图片有效。按Alt+F11，打开VBA编辑器，将如下代码直接粘贴进来，然后按F5运行即可。

Sub Rotate()
Do Until ActiveDocument.InlineShapes.Count = 0
ActiveDocument.InlineShapes(1).Select
ActiveDocument.InlineShapes(1).ConvertToShape
Selection.ShapeRange.IncrementRotation 180# '这里的180#代码旋转的度数，0~359.9
Loop
end sub

采纳本方法之前，先备份文档，以免转换后图片位置发生变动导致整篇文档的页面布局发生变化难以恢复。