spell checking of web objects

[kriday]

I have written the following code to test the spell checking

Code:

Set M_Word = CreateObject("Word.Application")
Dim Desc
Set Desc=Description.Create                                                                                                  
Desc("micclass").Value = "Link"
                                                                                                                                                            
Set Total_Links=Browser("SomeName").Page("SomeName").ChildObjects(Desc)
a =Total_Links.Count                                              
For i=0 to a-1
M_Word.WordBasic.filenew                                                                                                        
Link_Name=Total_Links(i).GetROProperty("name")                                                            
M_Word.WordBasic.insert Link_Name                                                                                    
If M_Word.ActiveDocument.Spellingerrors.count>0 then
    Reporter.ReportEvent micPass, "Spelling " , "Spelling Error: " & Link_Name

End if
M_Word.ActiveDocument.Close(False)
next
M_Word.quit
Set M_Word=nothing

when I execute this Iam getting the following error

ActiveX component can't create object: 'Word.Application'

Line (1): "Set M_Word = CreateObject("Word.Application")".

I need help in this. Thanks in advance.[/quote]