Lucent Blog

Sub mergeExcel()
    Dim bookList As Workbook
    Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
        Application.ScreenUpdating = False
        Set mergeObj = CreateObject("Scripting.FileSystemObject")
 
        'change folder path of excel files here
        Set dirObj = mergeObj.Getfolder("D:\change\to\excel\files\path\here")
        Set filesObj = dirObj.Files
        For Each everyObj In filesObj
            Set bookList = Workbooks.Open(everyObj)
     
            Range("A2:F27" & Range("A65536").End(xlUp).Row).Copy
            ThisWorkbook.Worksheets(1).Activate


            Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
            Application.CutCopyMode = False
            bookList.Close
        Next
End Sub

sudo apt-get install php5-curl

Replacement Part of :substitute

Replacement part of the S&R has its own special characters which we are going to use to fix grammar:

Now the full S&R to correct non-capital words at the beginning of the sentences looks like

s:\([.!?]\)\s\+\([a-z]\):\1  \u\2:g

We have corrected our grammar and as an extra job we replaced variable number of spaces between punctuation and the first letter of the next sentence with exactly two spaces.

http://vimregex.com/#backreferences