Question

如何在VB中打开Word，可以直接向平时打开Word阅读的那种

用Word程序打开一个已有的word文件，显示在屏幕上直接阅读的那种。

能打开PDF吗，如果能打开PDF更好。

Answer 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Open "c:\新建文档.doc" For Output As #1 '打开一WORD文档
Print #1, "这是用VB新建的文档" '
Close
ShellExecute Me.hwnd, "open", "c:\新建文档.doc", vbNullString, vbNullString, 5
End
End Sub

Answer 2

Private Sub Form_Load()
'将窗体移动屏幕中央。
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
End Sub

Private Sub Command1_Click()
FileName = "c:\ht.doc"
'调用Word文档。
OLE1.SourceDoc = FileName
OLE1.Action = 1 'crealink 联结
OLE1.Action = 7 'doverb 打开
End Sub