WinActorのエミュレーションモードで、Powerpointファイルのマクロショートカットキーをたたいて（具体的にはクイックアクセスツールバーを利用）、
PowerpointVBA起動を検討しています。

Powerpointファイルの全文字列をイミディエイトウインドウに出力するPowerpointVBAのコードを作成して、マクロとして実行したところ、なぜかスライド1ページ目の文字列しか出力されませんでした。 
コードをどう直せば、全文字列を出力可能でしょうか？ 
 
  
--<Start of code>----- 
Sub アクティブスライドの全文字列を出力する（） 
 
Dim shp As Shape 
  
 With ActiveWindow.Selection.SlideRange 
   For Each shp In .Shapes 
    If shp.TextFrame.HasText Then 
       Debug.Print _ 
          shp.TextFrame.TextRange.Text 
     End If 
   Next shp 
  
 End With 
  
 End Sub 
 --<End of code>-----