Error : Variable must be of type object

[AvidLearner]

When I run my script, it gives an error saying

variable must be of type object in the _wordattach code line

CODE

#Include<file.au3>

#include<string.au3>

#include<word.au3>

#include <WindowsConstants.au3>

AutoItSetOption( "trayiconhide",1 )

AutoItSetOption( "wintitlematchmode",2 )

AutoItSetOption( "sendkeydelay",1 )

AutoItSetOption( "WinTextMatchMode",1 )

WinwaitActive( "- Microsoft Word" )

$title1 = WinGetTitle( "Microsoft Word" )

$docname = StringTrimRight( $title1 , 17 )

$result = StringInStr( $docname , "compatibility" )

If $result = 0 Then

Else

$docname = StringTrimRight( $docname , 21 )

EndIf

If $result = 0 Then

$docname = _StringInsert( ".docx",$docname,-5 )

Else

$docname = _StringInsert( ".doc",$docname,-4 )

EndIf

$oWordApp = _WordAttach($docname, "FileName")

$oDoc = _WordDocGetCollection ($oWordApp, -1)

For $oDoc in $oDoc

If Stringinstr($oDoc.FullName, $docname) Then $oPath = $oDoc.FullName

Next

MsgBox(0,$oPath,"")

[AvidLearner]

Pls do help me ....

Thanks in advance...

[ResNullius]

Running the script from SciTE, the output conole gives this:

--> Word.au3 Warning from function _WordAttach, $_WordStatus_NoMatch

--> Word.au3 Error from function _WordDocGetCollection, $_WordStatus_InvalidDataType

C:\Temp\temp-35.au3 (28) : ==> Variable must be of type "Object".:

For $oDoc in $oDoc

For $oDoc in $oDoc^ ERROR

Note the warnings/errors from word.au3.

There's something wrong with your code in those lines...

[Spiff59]

Play with this...

#Include<file.au3>
#include<string.au3>
#include<word.au3>
#include <WindowsConstants.au3>

AutoItSetOption( "trayiconhide",1 )
AutoItSetOption( "wintitlematchmode",2 )
AutoItSetOption( "sendkeydelay",1 )
AutoItSetOption( "WinTextMatchMode",1 )

WinwaitActive( "- Microsoft Word" )

$title1 = WinGetTitle( "Microsoft Word" )
$docname = StringTrimRight( $title1 , 17 )
$result = StringInStr( $docname , "compatibility" )
If $result = 0 Then
Else
$docname = StringTrimRight( $docname , 21 )
EndIf
;If $result = 0 Then
;$docname = _StringInsert( ".docx",$docname,-5 )
;Else
;$docname = _StringInsert( ".doc",$docname,-4 )
;EndIf
MsgBox(0,"",$docname)

$oWordApp = _WordAttach($docname, "FileName")
$oDoc = _WordDocGetCollection ($oWordApp, -1)
For $oDoc in $oDoc
If Stringinstr($oDoc.FullName, $docname) Then $oPath = $oDoc.FullName
Next
MsgBox(0,$oPath,"")

[AvidLearner]

Play with this...

#Include<file.au3>
#include<string.au3>
#include<word.au3>
#include <WindowsConstants.au3>

AutoItSetOption( "trayiconhide",1 )
AutoItSetOption( "wintitlematchmode",2 )
AutoItSetOption( "sendkeydelay",1 )
AutoItSetOption( "WinTextMatchMode",1 )

WinwaitActive( "- Microsoft Word" )

$title1 = WinGetTitle( "Microsoft Word" )
$docname = StringTrimRight( $title1 , 17 )
$result = StringInStr( $docname , "compatibility" )
If $result = 0 Then
Else
$docname = StringTrimRight( $docname , 21 )
EndIf
;If $result = 0 Then
;$docname = _StringInsert( ".docx",$docname,-5 )
;Else
;$docname = _StringInsert( ".doc",$docname,-4 )
;EndIf
MsgBox(0,"",$docname)

$oWordApp = _WordAttach($docname, "FileName")
$oDoc = _WordDocGetCollection ($oWordApp, -1)
For $oDoc in $oDoc
If Stringinstr($oDoc.FullName, $docname) Then $oPath = $oDoc.FullName
Next
MsgBox(0,$oPath,"")

Got the error again....

[AvidLearner]

When exactly does this error appear..?? --> Variable must be of type "Object".

Edited March 19, 2009 by AvidLearner

[Spiff59]

Once I commented out your code that appended a suffix (file entension) to the document title, it found "Document1" and ran through the end of the script without error for me.

[AvidLearner]

Once I commented out your code that appended a suffix (file entension) to the document title, it found "Document1" and ran through the end of the script without error for me.

Yeah I tried it,,,, but getting the error & terminating the program....

I dunno what to do...

[AvidLearner]

Try to run the code given below,,, it definitely will show an error saying " variable must be of type "object" "...

CODE

#Include<file.au3>

#include<string.au3>

#include<word.au3>

#include <WindowsConstants.au3>

AutoItSetOption( "trayiconhide",1 )

AutoItSetOption( "wintitlematchmode",2 )

AutoItSetOption( "sendkeydelay",1 )

AutoItSetOption( "WinTextMatchMode",1 )

WinwaitActive( "- Microsoft Word" )

$title1 = WinGetTitle( "Microsoft Word" )

$docname = StringTrimRight( $title1 , 17 )

$result = StringInStr( $docname , "compatibility" )

If $result = 0 Then

Else

$docname = StringTrimRight( $docname , 21 )

EndIf

$oWordApp = _WordAttach($docname, "FileName")

$oDoc = _WordDocGetCollection ($oWordApp, -1)

For $oDoc in $oDoc

If Stringinstr($oDoc.FullName, $docname) Then $oPath = $oDoc.FullName

Next

MsgBox(0,$oPath,"")

[Spiff59]

If I open up an instance of Word, that example runs fine for me.

You do have Office installed, rather than just wordpad?

[AvidLearner]

If I open up an instance of Word, that example runs fine for me.

You do have Office installed, rather than just wordpad?

Yeah I use office 2007

[DaleHohm]

Please study the messages you are getting in the SciTe console carefully. If you want help here, show the full messages you are getting (as ResNullius did).

Dale