Microsoft Word 对象

作者: 来源:网络文章时间:2005-12-13 22:19:25

Microsoft Word 对象(28)
Dim appWRD As Word. Application

Set embeddedDoc = ActiveSheet. Shapes(1)

Set appWRD = embeddedDoc. OLEFormat. Object. Object. Application

appWRD. ActiveDocument. Range(Start :=0, End :=0). InsertBefore Text :="New text "

以下在Powerpoint中运行的示例，将一个对象变量设置为Word Application对象。(为了使该示例能够运行，在演示文稿中的幻灯片一必须是一个内嵌Word文档。)该示例的最后一条命令显示了在内嵌Word文档中的文字。

Dim appWRD As Word. Application

Set embeddedDoc = Presentations(1). Slides(1). Shapes(1)

embeddedDoc. OLEFormat. Activate

Set appWRD = embeddedDoc.OLEFormat. Object. Application

MsgBox appWRD. ActiveDocument. Content.Text

共28页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] 8 :>

Microsoft Word 对象相关文章：

Microsoft Word 对象相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com