urgent help code ArcGIS addin of spell check using vb.net

[Annie Doglas]

Hi

I am trying to use vb.net to create apell check add in to ArcMap 10. I have finished code, but do not know why it does not works. need urgent help

here is my code:

Public Sub SpellCheck()
Dim pDoc As IMxDocument
pDoc = My.ArcMap.Document
Dim pGC As IGraphicsContainerSelect
If pDoc.ActiveView Is pDoc.PageLayout Then
pGC = pDoc.PageLayout
Else
pGC = pDoc.FocusMap
End If
Dim pTE As ITextElement

pTE = pGC.SelectedElement(0)

Dim sz As String
sz = pTE.Text
Dim wdApp As Microsoft.Office.Interop.Word.Application
Dim wdDoc As Microsoft.Office.Interop.Word.Document

wdApp = New Microsoft.Office.Interop.Word.Application
wdDoc = wdApp.Documents.Add
wdApp.Selection.Text = sz
wdApp.Dialogs(wdDialogToolsSpellingAndGrammar).Sho w()
' if the Cancel button is clicked, there will be one character
If Len(wdApp.Selection.Text) > 1 Then
pTE.Text = wdApp.Selection.Text
Else
wdApp.Quit()
wdApp = Nothing
Exit Sub
End If
wdDoc.Close(wdDoNotSaveChanges)
wdApp.Quit()
wdApp = Nothing
pDoc.ActiveView.Refresh()
End Sub




Thanks a lot!!!!!

[kadghar]

I'm not prety sure how ArcMap works but i can't find in your code where you actually open the doc. Perhaps something like:

wdDoc = wdApp.Documents.Add(pDoc)

should work.