тут еще важно не забыть потом вернуть проверку орфографии назад на тот режим, что стоял, а то пользователи будут ругаться :)

поэтому так:

Sub WordExport

On Error goto ErrorHandler

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim CheckSpellingAsYouType as Boolean

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Add

CheckSpellingAsYouType = wdApp.Options.CheckSpellingAsYouType
wdApp.Options.CheckSpellingAsYouType = False

wdApp.Visible = True

Free:
if Not(wdApp is Nothing) then wdApp.Options.CheckSpellingAsYouType = CheckSpellingAsYouType
Set wdApp = Nothing
Set wdDoc = Nothing

Exit Sub

ErrorHandler:

' обработчик ошибок блаблабла...
goto Free

End Sub