''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script        : Word Rechtschreibkorrektur Wortvorschläge auflisten          '
' File          : 05_03_WordComObj_Spelling.vbs                                '
' Date          : 2007-03-01 - Last modified: 2007-03-01                       '
'                                                                              '
'               Michael Puff - http://www.michael-puff.de                      '
'                                                                              '
'               Öffnen eines Word-COM Objektes                                 '
'               Ansprechen der Rechtschreibkorrektur                           '
'                                                                              '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

const MYWORD = "Tak"
LB = Chr(13) & Chr(10)

' Word-Com Objekt erzeugen
Set msw = CreateObject("Word.Application")
Set DocContainer = msw.documents
Set NewDoc = DocContainer.Add
Set ActiveDoc = msw.Selection

' Wortvorschläge in Container ablegen
Set Words = msw.GetSpellingSuggestions(MYWORD)
For Each word in Words
  s = s & word & LB
Next

' Ausgabe
s = "Wortvorschläge für '" & MYWORD & "':" & LB & LB & s
MsgBox s, VB_OK, "Word Rechtschreibkorrektur"

' Word Anwendung schliessen
msw.Quit