SpellCheck using Microsoft Word

[Pakku]

Hi all,

I wondered if I could use the Microsoft Word API to check if there are spell errors in my string, and if possible in a language of my choice.

After a week reseach (nobody ever did it the right way) i came up with the follow

Func _SpellCheck($String,$Language)
    
    ;For LanguageID use:
    ;http://www.microsoft.com/globaldev/reference/lcid-all.mspx
    
    $WordApp = ObjCreate("Word.Application")
    $rngRange = ObjCreate("Word.Range")
    $WordApp.Documents.Add()
    $rngRange = $WordApp.Activedocument.Range
    $rngRange.LanguageID = $Language
    $rngRange.InsertAfter($String)
    $SpellCollection = $rngRange.SpellingErrors
    If $SpellCollection.Count > 0 Then
        Return 0
    Else
        Return 1
    EndIf
    $WordApp.Quit(False)
EndFunc
oÝ÷ ØZ+¶jx.j붢YhÂ)àÁæì×®®oÝ÷ Ù*"q©º"¶ ­©¦z·!yÉ­«­¢+Ø)Õ¹}
¡­ÉµµÈ ÀÌØíMÑÉ¥¹°ÀÌØí1¹Õ¤($($í½È1¹Õ%ÕÍè($í¡ÑÑÀè¼½ÝÝܹµ¥É½Í½Ð¹½´½±½±Ø½Éɹ½±¥µ±°¹µÍÁà($($ÀÌØí]½ÉÁÀô=©
ÉÑ ÅÕ½Ðí]½É¹ÁÁ±¥Ñ¥½¸ÅÕ½Ðì¤($ÀÌØíɹI¹ô=©
ÉÑ ÅÕ½Ðí]½É¹I¹ÅÕ½Ðì¤($ÀÌØí]½ÉÁÀ¹½Õµ¹Ñ̹ ¤($ÀÌØíɹI¹ôÀÌØí]½ÉÁÀ¹Ñ¥Ù½Õµ¹Ð¹I¹($ÀÌØíɹI¹¹1¹Õ%ôÀÌØí1¹Õ($ÀÌØíɹI¹¹%¹ÍÉÑÑÈ ÀÌØíMÑÉ¥¹¤($ÀÌØíɵµÉ
½±±Ñ¥½¸ôÀÌØíɹI¹¹ÉµµÑ¥±ÉɽÉÌ(%ÀÌØíɵµÉ
½±±Ñ¥½¸¹
½Õ¹ÐÐìÀQ¡¸(IÑÕɸÀ(±Í(IÑÕɸÄ(¹%($ÀÌØí]½ÉÁÀ¹EեС±Í¤)¹Õ¹oÝ÷ Ù'iº/yú+¶¥jx.j¬zÛbéZ²Ú'xZ¾}ý¶×¬µçrzÖî¶+l¥w
+b²,²&åzÚ%zÚh¦êZv&¥¢"µÈç$²Ø^¶¦ªè®Ø^²¥)ànëm«b²}ý·Z´×ÊjwhÖòi×bh®
Úf«jëh×6
$GrammarCollection.CheckGrammar

Have a nice day and feedback is more than welcome!

[jvanegmond]

You are definitely on to something. This returns whether it is right or wrong, but what would be great if you could get it to return possible corrections!

[Jos]

Looks familiar from way back when before any com was available

http://www.autoitscript.com/forum/index.ph...ost&p=10067

[GEOSoft]

Looks familiar from way back when before any com was available

http://www.autoitscript.com/forum/index.ph...ost&p=10067

I still have one that I think you wrote and it comes in handy every now and then. It (IIRC) checks the selected text and then either puts it on the clipboard or shoots it into the doc. I might have added the shoot feature myself. I don't remember now. I started writing one that would check an entire document and check against a Scrabble word list but it was horrendously slow so I mothballed it.

[MrCreatoR]

Hi all,

I have tried to make this function work without create temp vbs file (like here), but i have one problem:

_SpellCheckProc("1033")

Func _SpellCheckProc($Language)
    $Word = ObjCreate("word.Application")
    $Word.WindowState = 2
    $Word.Visible = True
    $Doc = $Word.Documents.Add("", "", 1, True)
    $Word.Selection.Paste
    If Not @error Then
        $Word.Selection.LanguageID = $Language
        $Doc.CheckGrammar
        $Word.Selection.WholeStory
        $Word.Selection.Copy
    EndIf
    $Doc.Close = False
    $Word.Application.Quit True
EndFuncoÝ÷ ضØb±ê뢺®¢×êު笵çZrب­Øb²ãyËajÇÚWÓ~¡

But the problem the same...

This work fine if i use the same code in vbs file (or create it from my script), but it wont work from the script, why? hot to make this work?

EDIT:

This work now (the second example), i forgot about the cariage returns and line feads (@CRLF)

Thanks to all.

Edited June 9, 2007 by MsCreatoR

[MHz]

I get this error:

Skipped parameters in VBS are replaced with the Default keyword in AutoIt.

And also i tried like this (call vbs code):

I see no CRLFs used so it is one big line.

[MrCreatoR]

MHz

Skipped parameters in VBS are replaced with the Default keyword in AutoIt.

But how to use this method in autoIt? maby i need to set those parameters as something else?

I see no CRLFs used so it is one big line.

Yes, thanks, i realized this before i see your post, realy :"> - and edit it just 7 minutes after you posted , the page probably was not updated (i am using Opera browser).

[big_daddy]

I made a spell check GUI that uses Word's COM functionality.

Custom Spell Checker

[Pakku]

I made a spell check GUI that uses Word's COM functionality.

Custom Spell Checker

Nice one!

[MHz]

But how to use this method in autoIt? maby i need to set those parameters as something else?

VBS skips parameters like below

Set Doc = Word.Documents.Add( , , 1, True)

AutoIt does not allow skipped/empty parameters as such so you use the Default keyword

$Doc = $Word.Documents.Add(Default, Default, 1, True)

You were using "" instead which is different to using Default.

[MrCreatoR]

AutoIt does not allow skipped/empty parameters as such so you use the Default keyword

Thanks a lot...

But now i get the error when it's trying (not) to close the window:

$Doc.Close = False

The requested action with this object has failed.:

$Doc.Close = False

$Doc.Close = False ^ ERROR

When i write this line like this:

$Doc.Close (False)

It's ok, there is no error, but the window of word is not closing untill i finish the spelling corrections - how am i do that the window will not been shown at all?

[big_daddy]

@MsCreatoR - Did you ever think to use the built-in MS Word Functions?

[MrCreatoR]

big_daddy

Did you ever think to use the built-in MS Word Functions?

Hmm... I don't sure if i understand what you mean? where i find those functions?

[i542]

Hi all,

I wondered if I could use the Microsoft Word API to check if there are spell errors in my string, and if possible in a language of my choice.

(...)

It is nice. As far as I can see because I don't have Word. I use OpenOffice.org instead.

Looks familiar from way back when before any com was available

http://www.autoitscript.com/forum/index.ph...ost&p=10067

ouch, JdeB gived you a fire punch, arjan!

[Pakku]

It is nice. As far as I can see because I don't have Word. I use OpenOffice.org instead.

ouch, JdeB gived you a fire punch, arjan!

hahaha, i know he means well (well i hope )

Edited November 16, 2010 by Pakku

[Jos]

hahaha, i know he means well (well i hope )

Arjan

Don't understand where I987 is coming from but just get used to him not making any sense what so ever .....

[big_daddy]

big_daddy

Hmm... I don't sure if i understand what you mean? where i find those functions?

The help file...

_WordCreate()

_WordDocGetCollection()

etc...