VBA代码无法在Word 2010中运行

Question

我不知道为什么，但是这段代码突然停止了工作，我正在寻找帮助以找到原因。

PictCount = ActiveDocument.Shapes.Count  ' This always returns 0
PageCount = ActiveDocument.ActiveWindow.Panes(1).Pages.Count  ' This gives the correct number

这是在一个页面上，已经复制/粘贴了几张图片。

Answer 1

当图片与文本内联时，图片不会被视为形状。如果它漂浮在文本之上，之下或之间，则将其计为形状。因此，右键单击图片，选择“自动换行”，然后选择“内联文本”之外的任何其他选项，您应该会看到数字增加。

作为对应物，还有InlineShapes，其中包含那些内联图片，而不是浮动图片。 所以加上它们应该可以一起给你所有的照片。

PictCount = ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count