关于word文档的问题(在线急等!!!!)

Question

Private Sub Command1_Click()
Shell "C:\Program Files\Microsoft Office\Microsoft Office\OFFICE11\WINWORD.EXE App.Path + test.doc", vbMaximizedFocus
End Sub
      谁能看看我的这个错在哪儿呢.打到是能打开  但是要等上半天,好想是运行了WINWORD.EXE这个文件.还出现几个错误.最后才是打开的test.doc   谁能修改下.在下感激不尽.

Answer 1

显然有错，你App.Path怎么括在双引号中？用ShellExcute吧，
不用输入EXE那么长路径万一Word装在别的路径下，那你怎么办？！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

Answer 2

把上边代码放在通用说明部分了.在 Command1_Click() 事件里写什么代码才能调用呀?

Answer 3

Option ExplicitPrivate 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 Const SW_SHOW = 5Private Sub Command1_Click()
    ShellExecute Me.hwnd, "Open", "d:\1.doc", vbNullChar, vbNullChar, SW_SHOW
End Sub如下参照MSDN关于ShellExecute的说明：
———————————————————————————————
  
Contents  Index  Topic Contents
 
Previous Topic: SHEmptyRecycleBin
Next Topic: ShellExecuteExShellExecute
HINSTANCE ShellExecute(
    HWND hwnd, 
    LPCTSTR lpOperation,
    LPCTSTR lpFile, 
    LPCTSTR lpParameters, 
    LPCTSTR lpDirectory,
    INT nShowCmd
); Opens or prints a specified file. Returns a value greater than 32 if successful, or an error value that is less than or equal to 32 otherwise. The following table lists the error values. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Windows applications. 0  The operating system is out of memory or resources. 
ERROR_FILE_NOT_FOUND  The specified file was not found. 
ERROR_PATH_NOT_FOUND  The specified path was not found. 
ERROR_BAD_FORMAT  The .exe file is invalid (non-Win32® .exe or error in .exe image). 
SE_ERR_ACCESSDENIED  The operating system denied access to the specified file.  
SE_ERR_ASSOCINCOMPLETE  The file name association is incomplete or invalid. 
SE_ERR_DDEBUSY  The DDE transaction could not be completed because other DDE transactions were being processed. 
SE_ERR_DDEFAIL  The DDE transaction failed. 
SE_ERR_DDETIMEOUT  The DDE transaction could not be completed because the request timed out. 
SE_ERR_DLLNOTFOUND  The specified dynamic-link library was not found.  
SE_ERR_FNF  The specified file was not found.  
SE_ERR_NOASSOC  There is no application associated with the given file name extension. 
SE_ERR_OOM  There was not enough memory to complete the operation. 
SE_ERR_PNF  The specified path was not found. 
SE_ERR_SHARE  A sharing violation occurred. hwnd 
Window handle to a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box. 
lpOperation 
Address of a null-terminated string that specifies the operation to perform. The following operation strings are valid: "open"  The function opens the file specified by the lpFile parameter. The file can be an executable file or a document file. It can also be a folder. 
"print"  The function prints the file specified by lpFile. The file should be a document file. If the file is an executable file, the function opens the file, as if "open" had been specified. 
"explore"  The function explores the folder specified by lpFile.  This parameter can be NULL. In that case, the function opens the file specified by lpFile. lpFile 
Address of a null-terminated string that specifies the file to open or print or the folder to open or explore. The function can open an executable file or a document file. The function can print a document file. 
lpParameters 
If the lpFile parameter specifies an executable file, lpParameters is an address to a null-terminated string that specifies the parameters to be passed to the application. 
If lpFile specifies a document file, lpParameters should be NULL. 
lpDirectory 
Address of a null-terminated string that specifies the default directory. 
nShowCmd 
If lpFile specifies an executable file, nShowCmd specifies how the application is to be shown when it is opened. This parameter can be one of the following values: SW_HIDE  Hides the window and activates another window. 
SW_MAXIMIZE  Maximizes the specified window. 
SW_MINIMIZE  Minimizes the specified window and activates the next top-level window in the z-order. 
SW_RESTORE  Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window. 
SW_SHOW  Activates the window and displays it in its current size and position.  
SW_SHOWDEFAULT  Sets the show state based on the SW_ flag specified in theSTARTUPINFO structure passed to theCreateProcess function by the program that started the application. An application should callShowWindow with this flag to set the initial show state of its main window. 
SW_SHOWMAXIMIZED  Activates the window and displays it as a maximized window. 
SW_SHOWMINIMIZED  Activates the window and displays it as a minimized window. 
SW_SHOWMINNOACTIVE  Displays the window as a minimized window. The active window remains active. 
SW_SHOWNA  Displays the window in its current state. The active window remains active. 
SW_SHOWNOACTIVATE  Displays a window in its most recent size and position. The active window remains active. 
SW_SHOWNORMAL  Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time. If lpFile specifies a document file, nShowCmd should be zero. You can use this function to open or explore a shell folder. To open a folder, use either of the following calls: ShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL);or ShellExecute(handle, "open", path_to_folder, NULL, NULL, SW_SHOWNORMAL);To explore a folder, use the following call: ShellExecute(handle, "explore", path_to_folder, NULL, NULL, SW_SHOWNORMAL);If lpOperation is NULL, the function opens the file specified by lpFile. If lpOperation is "open" or "explore", the function will attempt to open or explore the folder. To obtain information about the application that is launched as a result of calling ShellExecute, use ShellExecuteEx. 

Answer 4

我把后边的d:\1.doc 给换成"App.Path + \test.doc"怎么不行呀
    还有我想新建一个.doc文件怎么实现呀.
    高手不要笑话我呀.这两天才开始学api实在是很吃力呀.

Answer 5

Shell "C:\Program Files\Microsoft Office\Microsoft Office\OFFICE11\WINWORD.EXE " & App.Path & "\test.doc", vbMaximizedFocus

Answer 6

'引用Microsoft Word X.0 Object Library
Private Sub Command1_Click()
    On Error GoTo connecterr
    Dim wordApp As Object
    Set wordApp = CreateObject("word.application")
    
    wordApp.Visible = True
    Dim myDoc As Object
    'Set myDoc = wordApp.Documents.Open(App.Path & "\test.doc")'打开指定的Word
    Set myDoc = wordApp.Documents.Add'新建Word
    
    'myDoc.Close
    'wordApp.Quit
    Set myDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
connecterr:
End Sub

Answer 7

我把后边的d:\1.doc 给换成"App.Path + \test.doc"怎么不行呀
_____________________________________________
App.Path不要括在双引号里面了，括起来，这个app.path就当作是"app.path"字符串，而不是
应用的路径。    还有我想新建一个.doc文件怎么实现呀.
——————————————————————
使用Word对象处理，楼上的说得很清楚了。

Answer 8

———————————————————————————— 
引用Microsoft Word X.0 Object Library
Private Sub Command1_Click()
    On Error GoTo connecterr
    Dim wordApp As Object
    Set wordApp = CreateObject("word.application")
    
    wordApp.Visible = True
    Dim myDoc As Object
    'Set myDoc = wordApp.Documents.Open(App.Path & "\test.doc")'打开指定的Word
    Set myDoc = wordApp.Documents.Add'新建Word
    
    'myDoc.Close
    'wordApp.Quit
    Set myDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
connecterr:
End Sub
——————————————————————————————————
 faysky2() 写的，带注释那行是打开app.path下的test.doc的，用心看
'Set myDoc = wordApp.Documents.Open(App.Path & "\test.doc")'打开指定的Word
还有，一而再地将app.path写入到“”里，与学api没关系，程序不复杂应该看到每句都实实在在的懂才行