怎样在VB中控制Word（一）
网上看了很多，总结了一下，一些已经成功，一些还需要继续验证。
'方法1 OK
'Dim StartDoc As Long
'Dim Scr_hDC As Long
'Scr_hDC = GetDesktopWindow()
'StartDoc = ShellExecute(Scr_hDC, "Open", strApp, "", "C:/", SW_SHOWNORMAL)
'方法2
'Shell ("C:/Program Files/Microsoft Office/Office/winword.exe " & strApp)
'方法3 OK
'问题是没有捕捉到打开文件的关闭，如果在后台打开并有写操作，如果没有关闭进程，将会对多个副本进行操作
'Dim WordApp As Word.Application
'Set WordApp = New Word.Application
'Set WordApp = CreateObject("Word.Application")
'WordApp.Visible = True
'WordApp.Documents.Open strApp
'方法四
'OLE1.CreateEmbed vbNullString, "Word.Document"
'Set oDocument = OLE1.object
'oDocument.SaveAs strApp
'方法五
'
'winexec( 'explorer.exe ' ' http://www.tdown.com',1)
'方法6
'使用WordBasic
Set oWord = CreateObject("Word.Basic")
oWord.Open strApp
OLE方法：
具体见：http://support.microsoft.com/kb/q242243/
使用函数API函数 Shellexecute
具体见：http://support.microsoft.com/default.aspx?scid=kb;en-us;Q170918
