Dim Wordobj as Object Set Wordobj=CreateObject("Word.Basic") 可以使用大多数WordBasic语句和函数控制Word或Word文档,使用方法和在Word宏中使用WordBasic指令的方法基本相同。 关闭Set Wordobj =Nothing
先要引用word 9.0 library Private Sub Command1_Click() Dim wordd As Object Set wordd = CreateObject("Word.Application") wordd.Documents.Add "c:\asdf.doc" wordd.Visible = True wordd.Documents.Close wordd.Quit
Set Wordobj=CreateObject("Word.Basic")
可以使用大多数WordBasic语句和函数控制Word或Word文档,使用方法和在Word宏中使用WordBasic指令的方法基本相同。
关闭Set Wordobj =Nothing
Private Sub Command1_Click()
Dim wordd As Object
Set wordd = CreateObject("Word.Application")
wordd.Documents.Add "c:\asdf.doc"
wordd.Visible = True
wordd.Documents.Close
wordd.Quit
Set wordd = Nothing
End Sub