Microsoft Office Forums - View Single Post - [Solved] VBA, Place Sentence in its own Line

gmaxey · 04-27-2017, 07:11 PM

It won't work. You can get close with the following, but Word doesn't really know what a sentence is.

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim i As Long
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseStart
  Do
    oRng.MoveEnd wdParagraph, 1
    For i = 2 To oRng.Sentences.Count
      oRng.Sentences(i).InsertBefore Chr(11)
    Next
    oRng.Collapse wdCollapseEnd
  Loop Until oRng.End + 1 = ActiveDocument.Range.End
lbl_Exit:
  Exit Sub
End Sub

Now change to:
The Securities Exchange Act of 1934 was the second major piece of legislation. Introduced by Mr. McGoo, it resulted from the market crash of 1929. The Securities Exchange Act of 1934 regulates the secondary market ...

and run the code again.