TextRange2.Office (Application 屬性)

當不使用物件限定符時，此屬性會回傳一個代表 Microsoft Office 應用程式目前實例的 應用程式 物件。 當使用物件限定符時，此屬性會回傳一個 Application 物件，代表 TextRange2 物件的創建者。 當與 OLE 自動化 物件一起使用時，會回傳該物件的應用程式。 唯讀。

語法

expression.Application

詞 一個回傳 TextRange2 物件的表達式。

傳回值

物件

範例

這個範例會示範在使用中 Publisher 出版物第一頁上建立每一個連結 OLE 物件的應用程式名稱。

Dim shpOle As Shape 
 
For Each shpOle In ActiveDocument.Pages(1).Shapes 
 If shpOle.Type = pbLinkedOLEObject Then 
 MsgBox shpOle.OLEFormat.Application.Name 
 End If 
Next

另請參閱

• TextRange2 物件成員

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。