Sub BatchProcessRTF()
'Graham Mayor - http://www.gmayor.com - Last updated - 28 Jul 2017
Dim oDoc As Document
Dim oRng As Range
Dim strPath As String
Dim strFile As String
Dim iCount As Integer
Dim fDialog As FileDialog
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With fDialog
        .Title = "Select folder to process and click OK"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        If .Show <> -1 Then
            MsgBox "Cancelled By User", , "List Folder Contents"
            GoTo lbl_Exit
        End If
        strPath = fDialog.SelectedItems.Item(1)
        If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
    End With
    If Documents.Count > 0 Then
        Documents.Close SaveChanges:=wdPromptToSaveChanges
    End If
    strFile = Dir$(strPath & "*.rtf")
    While strFile <> ""
        Set oDoc = Documents.Open(FileName:=strPath & strFile, AddToRecentFiles:=False)
        With oDoc
            Set oRng = .Range
            iCount = oRng.Paragraphs.Count
            If iCount > 5 Then
                With .PageSetup
                    .TopMargin = 34
                    .BottomMargin = 34
                    .LeftMargin = 34
                    .RightMargin = 34
                End With
                oRng.Collapse 0
                oRng.Start = oDoc.Range.Paragraphs(iCount - 5).Range.Start
                oRng.Text = ""
            End If
            .Close SaveChanges:=wdSaveChanges
        End With
        DoEvents
        strFile = Dir$()
    Wend
    MsgBox "Processing complete"
lbl_Exit:
    Set oDoc = Nothing
    Set oRng = Nothing
    Set fDialog = Nothing
    Exit Sub
End Sub