VBScript操作powerpoint，窗口显示的问题
大家好。在下是VB菜鸟。
现在想用VBScript获取ppt文档的页眉。
其实说白了，就是想获取如下这个东西。
ActivePresentation.Slide(1).HeadersFooters.Footer.Text
现在的问题是，获取ppt页眉，必须显示powerpoint主窗口。
如果不显示，就会获取失败。
有没有办法，能够不显示powerpoint主窗口，并且获取到ppt页眉呢。
请大家多多指导。谢谢！
[解决办法]
Sub PowerExamples()
Dim PowerApp As New PowerPoint.Application
Dim Pretion As Presentation
Dim mySlide As Slide
Dim MyShape As Shape
For i = 1 To PowerApp.Presentations.Count
Set Pretion = PowerApp.Presentations(i) 'PowerApp.Presentations 所有打开的 Power档案集合
' MsgBox Pretion.Name '取得每个打开的档案的标题
Next
If PowerApp.Presentations.Count > 0 Then
Set Pretion = PowerApp.Presentations(1) '对第一个打开的文档进行操作
End If
For i = 1 To Pretion.Slides.Count 'Pretion.Slides 文档里面 页面的集合
Set mySlide = Pretion.Slides(i)
Next
If Pretion.Slides.Count > 0 Then
Set mySlide = Pretion.Slides(1) '对第一页进行操作
End If
For i = 1 To mySlide.Shapes.Count ' mySlide.Shapes 页面中对象的集合 如果有页脚或页眉,也可以通过这个进行访问
'访问页脚
' MsgBox mySlide.Shapes(i).Name '取得每个页面对像的名称
If InStr(1, mySlide.Shapes(i).Name, "页脚") Then
Set MyShape = mySlide.Shapes(i)
End If
Next
If Not (MyShape Is Nothing) Then '如果找到了页脚
MsgBox MyShape.TextEffect.Text
End If
End Sub
