vba - 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