"C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE" /p1 /p2 /p3 "C:\1\1.doc"

Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long

Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" ( _
  ByVal lpString As Long) As Long

Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" ( _
  ByVal lpString1 As String, _
  ByVal lpString2 As Long) As Long

Sub AutoOpen()
    Dim lngCommand As Long
    Dim lngChars As Long
    Dim strCommandLine As String
    
    lngCommand = GetCommandLine()
    lngChars = lstrlen(lngCommand)
    strCommandLine = Space(lngChars +  1 )
    lstrcpy strCommandLine, lngCommand
    
    MsgBox strCommandLine
End Sub