let shpTextArray[]
let myDocument = ActivePresentation.Slides.Item(1)
let myshapes = myDocument.Shapes
let numShapes = myshapes.Count
if(numShapes > 1){
    let numTextShapes = 0
    ReDim shpTextArray[1 To 2, 1 To numShapes]
	for(let i = 1; i <= numShapes; i++){
        if(myshapes.Item(i).HasTextFrame == msoTrue){
            numTextShapes = numTextShapes + 1
            shpTextArray[numTextShapes, 1] = myshapes.Item(i).Name
            shpTextArray[numTextShapes, 2] = myshapes.Item(i).TextFrame.TextRange.Text
        }
    }
    ReDim Preserve shpTextArray[1 To 2, 1 To numTextShapes]
}