「求助」Word VBA运行选择全部图片，提示错误'70'，拒绝的权限

十二猪肠

如上两图，我的Word是有图片的，但运行ActiveDocument.Shapes.SelectAll 的时候就提示 错误'70'，拒绝的权限；
选择图片的主要目的，是批量调整图形居中、大小、边框等等，但现在出这种提示，我在百度和本论坛找了好久都没有对应的解决方法。

请高手大神指出一条明路，谢谢

limonet

    Dim S As Shape
    For Each S In ActiveDocument.Shapes
        表达式
    Next S

十二猪肠

limonet 发表于 2022-2-9 14:56
Dim S As Shape
    For Each S In ActiveDocument.Shapes
        表达式

感谢大神的帮助，我今天试了一下，发现我这里的图片类型不是简单的shape。
我的文档里有8张图片，原意是让它们都变为居中处理，而用上大神你的表达式：
   Dim S As Shape
    For Each S In ActiveDocument.Shapes
        S.Select
       Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
   Next S
结果显示，ActiveDocument.Shapes=1，即运行后改变不了这些图片的属性。

我研究了一下，这些图片的类型是lineshpae（还没弄清楚是为什么），换一下思路就变成了：
    Dim n, j As Integer   
    j = ActiveDocument.InlineShapes.Count
    For n = 2 To j    '第一张不需要居中
        ActiveDocument.InlineShapes(n).Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter   
    Next n
结果就可行了；
感谢大神的回答与启发