升级了WORD 2010之后，VBA出问题了

godhawk

很多以前word2003时候用的VBA语句，现在都不能很好的执行了……

比如这个

1. Sub Atest1()
   
2. Dim s As Shape, n As Long
   
3. 
   
4. If ActiveDocument.Shapes.Count <> 0 Then '如果有自选图形
   
5. n = 0
   
6. For Each s In ActiveDocument.Shapes '在所有自选图形中循环
   
7. s.Delete                            '进行删除
   
8. 'Selection.ShapeRange.Delete
   
9. n = n + 1                           '计数
   
10. 
    
11. Next
    
12. Else
    
13. MsgBox "本文档没有自选图形。"
    
14. End If
    
15. 
    
16. MsgBox "删除自选图形" & n & "个。"
    
17. End Sub
    

复制代码

这只是一个很简单的删除所有自选图形的代码，但是在新版本里面，往往只能删掉一部分，剩下很多，得反复运行好几次才删干净……{:soso_e136:}

求教原因是什么……有什么办法修正么？{:soso_e103:}

wudixin96

ActiveDocument.Shapes.SelectAll
Selection.Delete

godhawk

感谢楼上朋友给出了一个新的写法{:soso_e103:}

但是依然无法解释为什么我原来的写法会出问题，难道VBA在新版的office里面，函数有了什么大变化吗？我看了看帮助文档，这些函数基本都还是一样的用法啊……没理由会失败的？

godhawk

我把 for each 语句改为 For i = 1 To ActiveDocument.Shapes.Count step 1     '在所有自选图形中循环

前面一半的shape对象能够正常的删除，但是当进入后半的第一个shape对象时候，出错，提示为：

运行时错误 '-2147024809 (80070057)':
不允许进入指定汇编中的索引。

奇怪的是，如果我把 ActiveDocument.Shapes(i).delete 改为 ActiveDocument.Shapes(i).Select的话，却可以正常的选择所有shape

看来office的VBA真的改动了算法，当一个对象被删除（而不是被选择）时，它在对象集合中的索引会发生变化，导致无法对其余对象进行按序执行。

tan133

For i = 1 To ActiveDocument.Shapes.Count step 1  
ActiveDocument.Shapes(0).delete
next
如果报错，红色的字换成1试试，看不懂问我

kaisidinasi

其实我认为
For i = ActiveDocument.Shapes.Count To 1 step -1
这样就可以了，
因为删到一半时count减少了

xiaopeng3017

正着删，删掉第一个后，第二个变成第一个，接着删的第二个其实是原来的第三个，以此类推，删的是1、3、5、7、9…很快就删到最后一个（原来顺序最大的奇数），实际但只删掉了一半，一半，一半（重要的说三遍）。所以要倒着删。
原始的队列好像垂着的珠帘，拿掉最下面一个后，重力会把后面的都向下压一个位置。

学好VBA啊

7楼说的实在太对了，非常感谢！！！！！！！

danny1159

我之前也有楼主这个问题，选择自选图片现在是需要用Inlineshapes(i)才可以了。给官方文档楼主参考一下
本示例显示活动文档中的图形和内嵌图形的数目。
Set doc = ActiveDocument
Msgbox "InlineShape = " & doc.InlineShapes.Count & _
vbCr & "Shapes = " & doc.Shapes.Count