反復すべてのスライドを通って、パワーポイント

Question

内の文字の数を取得し、私は唯一のスライドをループにスクリプトを持っており、形状

Sub Sample() 
Dim textShapes() As Shape, i as Long 

ReDim textShapes(0 To 2) 

i = 0 

For Each thisShape In ActivePresentation.Slides(1).Shapes 
    If thisShape.HasTextFrame Then 
     If thisShape.TextFrame.HasText Then 
      Set textShapes(i) = thisShape 
      i = i + 1 
      ReDim Preserve textShapes(0 To i) As Shape 
     End If 
    End If 
Next thisShape 

Debug.Print textShapes(1).TextFrame.TextRange.Text End Sub 

で書かれたテキストは、しかし、私はすべてのスライドをループにしたい取得し、すべてのスライドの形状とプレースホルダーから文字の数を取得

コードはリムーバブル保存配列で調整することができますが、エラーが発生することを願っています。私にすべてのスライド

内の文字の数とのメッセージを与えるスクリプトを探して

アムは同じで私を助けてください。

Answer 1

ため、各入れ子にしてみてください：

For Each slide In ActivePresentation.Slides 
    For Each thisShape In slide.Shapes 
     If thisShape.HasTextFrame Then 
      If thisShape.TextFrame.HasText Then 
       Set textShapes(i) = thisShape 
       i = i + 1 
       ReDim Preserve textShapes(0 To i) As Shape 
      End If 
     End If 
    Next thisShape 
Next slide