Question

如何用VB新建一个空白word文档并打开？

就像右键菜单的“新建”，然后打开。
注意不是直接打开word，那样的话新建的word还没有保存，没法得到文件路径。我的程序需要这个路径。

Answer 1

Private Sub Command1_Click()
Dim myDoc, WordApp As Object
Set WordApp = CreateObject("Word.Application")
Set myDoc = WordApp.Documents.Add()
myDoc.SaveAs "c:\新建 Microsoft Word 文档.doc"
End Sub

Answer 2

Private Sub Form_Load()
Dim myDoc, WordApp As Object
Dim filename As String
Set WordApp = CreateObject("Word.Application")
Set myDoc = WordApp.Documents.Add()
filename = App.Path & "\新建 Microsoft Word 文档.doc"
myDoc.SaveAs filename
End Sub

Answer 3

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
Print #1, "这是用VB新建的文档"
Close
ShellExecute Me.hwnd, "open", "c:\新建文档.doc", vbNullString, vbNullString, 5
End
End Sub