Разбить весь текст на предложения VBA http://wordexpert.ru/forum/viewtopic.php?id=77

http://wordexpert.ru/forum/viewtopic.php?id=77

здравствуйте!
как можно разбить весь текст на предложения, чтобы каждое из предложений начиналось с новой строки.
спасибо

  Sub OneParagraphOneSentence()    Dim i As Long    With ActiveDocument    For i = .Sentences.Count To 1 Step -1      If .Sentences(i).Characters.Last.Text <> vbCr Then .Sentences(i).InsertParagraphAfter    Next    End With  End Sub

  Sub OneParagraphOneSentence()    Dim i As Long    For i = Sentences.Count To 1 Step -1      If Sentences(i).Characters.Last.Text <> vbCr Then Sentences(i).InsertParagraphAfter    Next  End Sub