Sub GetWords()
 
strWord = "ттттооолмиииассючрнппфь"
 
For ix1 = 1 To Len(strWord)
    s1 = Mid(strWord, ix1, 1)
    For ix2 = 1 To Len(strWord)
        s2 = Mid(strWord, ix2, 1)
        For ix3 = 1 To Len(strWord)
            s3 = Mid(strWord, ix3, 1)
            ChSp (s1 & s2 & s3) 'слова из 3х букв
'            For ix4 = 1 To Len(strWord)
'                s4 = Mid(strWord, ix4, 1)
'                ChSp (s1 & s2 & s3 & s4)'слова из 4х букв
'    '            сюда следующий цикл
'            Next
        Next
    Next
Next
 
End Sub
 
Sub ChSp(str As String)
    'проверка орфографии
    If Application.CheckSpelling(str) = True Then
        'проверка на повторение
        With ActiveDocument.Range.Find
            .Text = str
            .Wrap = wdFindStop
            If .Execute = False Then
                Selection.TypeText Text:=str
                Selection.TypeParagraph
            End If
        End With
    End If
End Sub