Question

处理word文档中有很多图片，想批量把它们的版式改为 浮于文字上方 呢，怎么办啊！！谢谢了

word 03版

Answer 1

会用宏吗？

宏主要用来处理有规律的重复的工作，相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键（如L，相当于ctrl L快捷键），然后指定、关闭。开始录制宏。把你能够重复的操作执行一下，以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按，则连续执行。如果不完全正确，还要修改或重新录制宏。

对你来说，查找图片，然后选中一个图片，设置环绕方式为 衬于文字上方。结束宏录制。
然后执行宏即可。

如果不太会，就用这个笨办法。把图片工具栏菜单调出来。然后逐个图片的去选图片、点图片工具栏上的图片环绕方式的按钮，选衬于文字上方。这也算是比较快的方法了。

追问

宏录制的时候在选图片都不行呢，环绕方式也是灰色不可用，还需请教下；
另外批量把它们的版式改为嵌入式 的宏代码是：
Sub ShaToInSha()
Dim Sha As Shape
For Each Sha In ActiveDocument.Shapes
Sha.ConvertToInlineShape
Next
End Sub
我就想应该有 批量把它们的版式改为 衬于文字上方 的宏代码

Answer 2

1.费点事将图片选中然后统一设置格式；
2.使用格式刷点击每一幅图片；
我知道的暂时就这些，给你参考参考。不知道word中是否有个选项叫做选中文档中的所有图片。

追问

格式刷不行呀，谢谢

Answer 3

用宏：

Sub 宏1()
Dim i
On Error Resume Next
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).ConvertToShape
Next
End Sub