need macro to run on all files in folder

Sub BreakLines()
Application.ScreenUpdating = False
With ActiveDocument.Content.Paragraphs
.FirstLineIndent = 0
.LeftIndent = 0
End With
Selection.HomeKey Unit:=wdStory
Do
Selection.EndKey Unit:=wdLine
If Selection.End >= ActiveDocument.Content.End - 1 Then
Exit Do
End If
If Asc(Selection) <> 13 Then
Selection.InsertParagraphAfter
End If
Selection.MoveDown Unit:=wdLine
Loop
Application.ScreenUpdating = True
End Sub