Question

Word中如何用VBA 将所有图片加上边框

请教Word中如何用VBA 将所有图片加上边框，我有个Word文档，通过QQ截图粘贴进去了200张图片，现在需要将其加上边框，最简单的黑色线边框即可，请高手给一句代码，谢谢
xiehuahere：我要的就是单个图片加边框的那句代码，不是一句计算文件中的图片数目，晕

Answer 1

只要一句代码？那就给你一句参考一下吧：
picCount = ActiveDocument.InlineShapes.Count '计算文件中图片数目

在Word中，插入的图片已被转化为 InlineShape 对象。

之后用For循环语句，给所有图片加黑色边框。
单个图片加边框的语句，你自己可以录制一个宏看看，将录制的宏代码拷贝到For循环中修改一下即可。

有问题，再补充问好了。
___________________________________________________________________

单个图片加边框，你自己录制宏就可以看到代码了，这是学习VBA的必由之路啊。
选中一张图片，工具-宏-录制新宏，然后，格式-边框和阴影，给图片加上黑边框，然后，alt+F11打开VB编译器，就看到代码了。本想只授人以渔即足够了，但犹豫了一下，还是贴给你吧：
With Selection.InlineShapes(1)
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With

计算图片数目是为了For循环用的，有多少图片就要循环多少次，给所有图片都加上边框。
For i = 1 to picCount
......
Next i

中间就是上面那段代码，把InlineShapes(1)改为InlineShapes(i)