VBA: Liste over ord, der ikke er i ordbog

Sub CheckSpellingNu()
Dim dic As Word.Dictionary
Dim rts As Boolean

For Each Wor In ActiveDocument.Words
    svar = Wor
   
    If dic Is Nothing Then
   
    Set dic = _
      Languages(Selection.LanguageID).ActiveSpellingDictionary
   
    End If
   
    rts = Application.CheckSpelling(svar, , IgnoreUppercase, dic)
   
    If rts = False Then
        MsgBox svar & vbCrLf & dic & vbCrLf & "Spell check is " & rts
        'Gør skriv det et eller andet sted
    End If
   
Next
End Sub

Der skal sikket bygges videre på den, men det er jo en start *S*

Det ser ud til at kunne bruges, tak.

Undskyld, jeg troede, jeg havde afsluttet denne forlængst.

mvh
Stefan