例: GetObject 関数

次のスクリプトは、Microsoft Word がインストールされている Macintosh で機能します。

Dim myDoc As Variant
'Get the WordPro.Document object from a file. 
Set mydoc = getobject("d:¥wordpro¥docs¥test.lwp","WordPro.Document")
' Call the Print method defined for WordPro.Document object.
myDoc.Print

次のスクリプトは、Microsoft Word がインストールされている Macintosh で機能します。

Sub Initialize
	Dim myDoc As Variant
	Dim filename As String

	filename = "MKashG4HD:MSTestDoc"

	'Get the Word.Document object from a file. 
	Set myDoc = GetObject(filename,"Word.Document")

	' Make the object visible
	myDoc.Application.Visible = True
End Sub