Option Explicit
Dim scrFso As Object
Dim scrFolder As Object
Dim scrFile As Object
Dim scrFiles As Object
 
Sub AllFilesInFolder()
Dim strStartPath As String
strStartPath = "C:\Documents\****** "
Application.ScreenUpdating = False
OpenAllFiles strStartPath
Application.ScreenUpdating = True
End Sub
 
Sub OpenAllFiles(strPath As String)
' AllFilesInFolder - runs through a folder oPath, opening each file in that folder, calling the macro and then closing each file in that folder
Dim strName As String
Dim wdDoc As Document
If scrFso Is Nothing Then Set scrFso = CreateObject("scripting.filesystemobject")
Set scrFolder = scrFso.getfolder(strPath)
For Each scrFile In scrFolder.Files
  strName = scrFile.Name
  Application.StatusBar = strPath & "\" & strName
  'open the file fName if it is a word document or template
  If Right(strName, 4) = ".doc" Or Right(strName, 4) = ".dot" Then
    Set wdDoc = Documents.Open(FileName:=strPath & "\" & strName, _
    ReadOnly:=False, Format:=wdOpenFormatAuto)
    'Call the macro to perform first line deletion
    DoWork wdDoc
    wdDoc.Close wdSaveChanges
  End If
Next
Application.StatusBar = False
End Sub
 
Sub DoWork(wdDoc As Document)
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub