如何用代码把所有内插图片变成上下形环绕？

zzpsx · 发表于 2022-7-22 12:58

如何用代码把所有内插图片变成上下形环绕？.rar (711.89 KB, 下载次数: 6)

limonet · 发表于 2022-7-22 21:46

Sub ch_WrapFormat()
Dim S As InlineShape, Sh As Shape
For Each S In ActiveDocument.InlineShapes
S.ConvertToShape
Next S
For Each Sh In ActiveDocument.Shapes
Sh.WrapFormat.Type = wdWrapTopBottom
Next Sh
End Sub

		自动登录	找回密码
密码			免费注册

如何用代码把所有内插图片变成上下形环绕？

评分