如何使用存储过程调用插入？

Question

我有一个存储过程，该存储过程在最后运行一次select，因此检索具有三列的表，我可以使用该数据插入吗？因为它不能使用这种语法

Sub ShadowProperties()
    Dim shp As Word.Shape
    Dim shw As Word.ShadowFormat

    Set shp = Selection.ShapeRange(1)
    Set shw = shp.Shadow
    With shw
      Debug.Print "Blur: " & .Blur, _
                "size: " & .Size, _
                "Transparency: " & .Transparency, _
                "Offset x: " & .OffsetX, _
                "Offset y: " & .OffsetY
    End With
End Sub

请为此提供解决方法？