Topic: open an MS word doc with lisp

[andrew_nao]

im attempting to open an MS word doc with lisp


ndir = "F:/directory name with spaces"

Code: [Select]

(startapp "\"C:/Program Files (x86)/Microsoft Office/Office/winword.exe\"" ndir)
the issue im having is it opens ms word but pops up with an alert telling me the document path is invalid

can anyone offer some thoughts on what im doing wrong?

[MP]

forward slashes nfg?

[Matt__W]

Maybe? (been a while since I've LSP'ed)

Code: [Select]

(startapp (strcat "C:/Program Files (x86)/Microsoft Office/Office/winword.exe " ndir))

[MP]

try:

ndir = "\"F:\\directory name with spaces\\docname.doc""

(startapp "\"C:\\Program Files (x86)\\Microsoft Office\\Office\\winword.exe\"" ndir)

[andrew_nao]

thanks for the replies

but i still get the same error

[MP]

Works on my machine:

Code: [Select]

(setq
    doc_path "\"C:\\docs\\docname.doc\""
    app_path "\"C:\\Program Files (x86)\\Microsoft Office\\Office14\\winword.exe\""
)

(startapp app_path doc_path)
Check the validity of the paths you're supplying.

[Lee Mac]

ndir = "\"F:\\directory name with spaces\\docname.doc\""

Missed one 

[MP]

where's my coffee medic?

[andrew_nao]

Works on my machine:

Code: [Select]

(setq
    doc_path "\"C:\\docs\\docname.doc\""
    app_path "\"C:\\Program Files (x86)\\Microsoft Office\\Office14\\winword.exe\""
)

(startapp app_path doc_path)
Check the validity of the paths you're supplying.

they paths are good
im thinking because i have spaces in the path with periods and commas?

try your code again but with a directory that has spaces and a peroid and a comma
like "docs\\some name, inc.\\doc file.doc"

[MP]

Works on my machine:

Code: [Select]

(setq
    doc_path "\"C:\\docs\\stupid path with spaces\\stupid filename with spaces.doc\""
    app_path "\"C:\\Program Files (x86)\\Microsoft Office\\Office14\\winword.exe\""
)

(startapp app_path doc_path)
Check the validity of the paths you're supplying.

Edit:

im thinking because i have spaces in the path with periods and commas?

punctuation, like commas, in paths / filenames is just asking for trouble IMO

[MP]

Works on my machine:

Code: [Select]

(setq
    doc_path "\"C:\\docs\\stupid path with spaces, and commas\\stupid filename with spaces, and commas.doc\""
    app_path "\"C:\\Program Files (x86)\\Microsoft Office\\Office14\\winword.exe\""
)

(startapp app_path doc_path)
Check the validity of the paths you're supplying.

[ronjonp]

See if it works with this ... if all else fails post the filepath you're using.

Code: [Select]

(defun openfile (file / sh)
  (setq sh (vlax-get-or-create-object "Shell.Application"))
  (vlax-invoke-method sh 'open (findfile file))
  (vlax-release-object sh)
)
(openfile "whateveryourfullfilepathishere")

[andrew_nao]

here is the code im using
the code returns the correct info but i just cant get it to open

Code: [Select]

(SETQ lst (VL-DIRECTORY-FILES "O:/" nil -1))
(defun wcmatch_first ( lst pattern flag / result )
    (setq pattern (if flag (strcase pattern) pattern))
    (vl-some
       '(lambda (str) (if (wcmatch str pattern) (setq result str)))
        (if flag (mapcar 'strcase lst) lst)
    )
    result
(setq dir (strcat "O:/" result))
(SETQ NLST (VL-DIRECTORY-FILES DIR "*.DOC"))
)

(defun wcmatch_second ( nlst npattern nflag / nresult )
    (setq npattern (if nflag (strcase npattern) npattern))
    (vl-some
       '(lambda (nstr) (if (wcmatch nstr npattern) (setq nresult nstr)))
        (if nflag (mapcar 'strcase nlst) nlst)
    )
    nresult
(setq ndir nresult)
)
(SETQ var (strcase (GETSTRING "Enter order number: ")))

(if (wcmatch_first lst (strcat "*" var "*") nil)
         ;(alert "yes") ;if found
(progn
   (if (wcmatch_second nlst (strcat "*" "MASTER" "*") nil)
     (progn
  (setq path (findfile (strcat dir "/" ndir)))
              (startapp "\"C:\\Program Files (x86)\\Microsoft Office\\Office\\winword.exe\"" path)
              ;(alert "yes") ;if found
)
              (alert "no") ; not found    
            )
)
         (alert "no") ; not found
)


[andrew_nao]

See if it works with this ... if all else fails post the filepath you're using.

Code: [Select]

(defun openfile (file / sh)
  (setq sh (vlax-get-or-create-object "Shell.Application"))
  (vlax-invoke-method sh 'open (findfile file))
  (vlax-release-object sh)
)
(openfile "whateveryourfullfilepathishere")

Ron
this worked perfectly! with the code i posted
thanks

[ronjonp]

See if it works with this ... if all else fails post the filepath you're using.

Code: [Select]

(defun openfile (file / sh)
  (setq sh (vlax-get-or-create-object "Shell.Application"))
  (vlax-invoke-method sh 'open (findfile file))
  (vlax-release-object sh)
)
(openfile "whateveryourfullfilepathishere")

Ron
this worked perfectly! with the code i posted
thanks