I do have the latest ahk_l version with the com_l file
Using notepad++ "exec plugging" the script runs fine. IE passing everything in command line.
C:\Program Files\AutoHotkey\AutoHotkey.exe "$(FULL_CURRENT_PATH)" "C:\Documents and Settings\user\Desktop\Summary_Word_Documents\Ready for client\1404301r.doc"
But if I drag and drop files on my script It gives me the following error.
---------------------------
COM Error Notification
---------------------------
Function Name: "Visible"
ERROR: The COM Object may not be a valid one!
()
Will Continue?
---------------------------
Yes No
---------------------------
At the top of my script I have.
Code:
Loop %0% ; For each parameter aka file dropped onto a script
{
...;;;;EDIT ADDED code to show where LongPath is set.
... GivenPath := %A_Index% ; Fetch the contents of the variable whose name is contained in A_Index.
Loop %GivenPath%, 1
{
LongPath = %A_LoopFileLongPath%
}
...
...
com_CoInitialize() ; Initialize COM
;;line above is successfull
Word_OpenDoc( LongPath) ; Opens a New Document
...
...
}
Word_OpenDoc(FileName){
Word := Word_Attach("N") ; Attach to New Window
;;;;;;;;;;Crashes here. (tested with exitapp) and get the error message before script closes.
Documents := com_Invoke(Word, "Documents")
com_invoke(Documents,"Open",FileName) ; open file
com_release(Documents) ; cleanup
com_release(Word) ; cleanup
}
;;EDIT unchanged code just forgot a function which may help solve.
Word_Attach(sInstance="A"){
SetWinDelay, 0
;Get The Last Used Instance
if (sInstance = "A") { ; Active
ObjWord := COM_GetActiveObject("Word.Application")
COM_Invoke(ObjWord,"Visible=",True)
COM_Invoke(ObjWord,"Activate")
}
Else if (sInstance = "N") { ; New
ObjWord := com_CreateObject("Word.Application")
COM_Invoke(ObjWord,"Visible=",True)
COM_Invoke(ObjWord,"Activate")
}
return ObjWord
}
Can anyone point me to the right direction to solve my problem..
Thank you.
Login
Register
FAQ
Search
