Microsoft Word 对象

Microsoft Word 对象(27)
Dim pptObj As Powerpoint. Application.8

If Tasks. Exists ("Microsoft Powerpoint") = True Then

Set pptObj = GetObject (, "Powerpoint. Application.8")

Else

Set pptObj = CreateObject ("Powerpoint. Application.8")

End If

pptObj. Visible = True

Set pptPres = pptObj. presentations. Add

Set aSlide = pptPres. Slides. Add(Index :=1, Layout :=ppLayoutText)

aSlide. Shapes(1). TextFrame. TextRange. Text = ActiveDocument.Name

aSlide. Shapes(2). TextFrame. TextRange. Text = ActiveDocument.Paragraphs(1). Range. Text

Set pptObj = Nothing

要了解关于对Microsoft Access进行自动化的信息，请参阅第三章“Microsoft Access对象”。要了解关于Word中Data Access 对象(DAO)的使用，请参阅“帮助”中的“在Microsoft Word中使用DAO”。

同内嵌Word对象进行通信

以后可以使用任何Word对象的Application属性来返回Word Application 对象。这有助于从内嵌在另一个应用程序中的Word文档里方法Word Application对象。以下的在Microsoft Excel中运行的示例，将一个对象变量设置为Word Application对象。(为了使该示例能够运行，在活动工作表中的形状一必须是一个内嵌Word文档。)该示例中最后一条命令在内嵌Word文档的开头添加文字。