<-- Previous || Up || Next -->

Summarize Text Sample Sub
String Words Class

Private Sub SummarizeTextSample()
    ' Print a sample of the SummarizeText function.

    Debug.Print SummarizeText(Gettysburg, SpecialSeparators, vbTextCompare, False, " ", "a an and are be can for here in is it of on that the they this")
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.