谁能把这段代码翻成javascript的。救急!!!
Sub OpenVisio()
Dim appVisio As Visio.Application
Dim docsObj As Visio.Documents
Dim docObj As Visio.Document
Dim stnObj As Visio.Document
Dim mastObj As Visio.Master
Dim pagsObj As Visio.Pages
Dim pagObj As Visio.Page
Dim shpObj As Visio.Shape
Try
appVisio = CreateObject("Visio.Application")
docsObj = appVisio.Documents
'Create a document based on the Basic Diagram template that automatically
'opens the Basic Shapes stencil.
docObj = docsObj.Add("Basic Diagram.vst")
pagsObj = appVisio.ActiveDocument.Pages
'A new document always has at least one page, whose index in the Pages collection is 1.
pagObj = pagsObj.Item(1)
stnObj = appVisio.Documents("Basic Shapes.vss")
mastObj = stnObj.Masters("Rectangle")
'Drop the rectangle in the approximate middle of the page.
'Coordinates passed with the Drop method are always inches.
shpObj = pagObj.Drop(mastObj, 4.25, 5.5)
'Set the text of the rectangle
shpObj.Text = "Hello World!"
'Save the drawing and quit Visio. The message pauses the program
'so you can see the Visio drawing before the instance closes.
docObj.SaveAs("hello.vsd")
MsgBox("Drawing finished!", , "Hello World!")
appVisio.Quit()
Catch e As Exception
Debug.Write(e.Message)
End Try
End Sub