Hi Aaron,
Thanks for the information so far, but I seem to be missing something as when I
run my now altered script I recieve the following error: line 6 column 1 Object
required. Now follows the altered code.
Dim MyExDict, MyEntry, MyWord, MyHotKey
Set MyHotKey = Keyboard.RegisterHotkey("d", "HandleHotKey")
Function HandleHotKey()
Set MyExDict = ActiveExceptionDictionaries.Item(1)
Set MyEntry = MyExDict.Item(1)
MyWord = MyEntry.Word
Speak MyWord
End Function
Warm regards.
Martin Webster.
--- On Mon, 1/26/09, Aaron Smith <[email protected]> wrote:
> From: Aaron Smith <[email protected]>
> Subject: Re: exception dictionaries help please
> To: [email protected]
> Date: Monday, January 26, 2009, 3:47 PM
> Martin,
>
> The first problem I see is that there is no object called:
>
> ActiveExceptionDictionariesExceptionDictionaries
>
> You'd just want ActiveExceptionDictionaries.Item(1)
>
> The second problem I see is that you're trying to set
> the value of MyWord to something called ExceptionEntry. But
> there is no object explicitly called ExceptionEntry.
> Instead, that's the type of object you get back from the
> Item method of a single ExceptionDictionary object (which is
> what you get back from the Item method the
> ActiceExceptionDictionaries object).
>
> If you know for sure that the exception dictionary
> you're interested in is in fact the first item of the
> ActiveExceptionDictionaries collection, you might do:
>
> Set myExpDict = ActiveExceptionDictionaries.Item(1)
>
> This would give you back a single ExceptionDictionary
> object. To get a word from that dictionary, use the
> ExceptionDictionary object's Item method:
>
> Set firstEntry = myExpDict.Item(1)
>
> That will give you back an ExceptionEntry object, which
> contains the word and translation information you're
> looking for:
>
> myWord = firstEntry.Word
> myTrans = firstEntry.Translation
>
> Make sense?
>
> Aaron
>
>
> martin webster wrote:
> > Hi all,
> > How do I get at the word and translate properies of
> the active exception dictionary. I want to be able to point
> window-eyes at an exception entry and speak either the word
> or translation strings. I tried to do this with the
> following code, but it doesn't work.
> >
> > Dim MyEntry, MyWord, MyHotKey
> > Set MyHotKey = Keyboard.RegisterHotkey("d",
> "HandleHotKey")
> > Function HandleHotKey()
> > Set MyEntry =
> ActiveExceptionDictionariesExceptionDictionaries.Item(1)
> > MyWord = ExceptionEntry.Word
> > Speak MyWord
> > End Function
> >
> >
> >
> >
> > warm regards.
> > Martin Webster.
> >
> >
> >
> >
> >
>
> -- To insure that you receive proper support, please
> include all past
> correspondence (where applicable), and any relevant
> information
> pertinent to your situation when submitting a problem
> report to the GW
> Micro Technical Support Team.
>
> Aaron Smith
> GW Micro
> Phone: 260/489-3671
> Fax: 260/489-2608
> WWW: http://www.gwmicro.com
> FTP: ftp://ftp.gwmicro.com
> Technical Support & Web Development
