Microsoft Office Forums - View Single Post

gmayor · 01-25-2018, 05:10 AM

See http://www.gmayor.com/document_batch_processes.htm which will handle the folders'

Then change your macro to the following and run it as a custom process.

Code:

Function BreakLines(oDoc As Document) As Boolean
    On Error GoTo err_Handler
    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
    BreakLines = True
lbl_Exit:
    Exit Function
err_Handler:
    BreakLines = False
    Resume lbl_Exit
End Function