How to delete a set of old word files by date or any other way

This will be unforgiving, so make sure you have only Word files in the batch forlder to process:See: http://gregmaxey.mvps.org/word_tip_pages/installing_employing_macros.html for instructions to employ the VBA code:

Sub BatchProcessFiles()
'Note: You must add a reference Microsoft Scripting Runtime for this procedure to work.
'Use Tools>References to add the reference.
Dim strBatchDir As String
Dim oFSO As Scripting.FileSystemObject
Dim oBatchFolder As Scripting.Folder
Dim oBatchFile As Scripting.File

'Call function to pick a batch directory and set up for processing
strBatchDir = PickFolder
If strBatchDir = "Canx" Then Exit Sub
Set oFSO = New Scripting.FileSystemObject
Set oBatchFolder = oFSO.GetFolder(strBatchDir)
Application.ScreenUpdating = False

'Process files in the designated batch folder
For Each oBatchFile In oBatchFolder.Files
  If Format(oBatchFile.DateCreated, "MM/DD/YYYY") < "1/1/2012" Then
    Kill oBatchFile
  End If
Next oBatchFile
Set oBatchFile = Nothing
Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub
Function PickFolder() As String
'Open "Copy" so user can point and click to a path to use
Dim strFolderPath As String
  With Dialogs(wdDialogCopyFile)
    If .Display <> 0 Then
      strFolderPath = .Directory
    Else
      MsgBox "Cancelled by User"
      PickFolder = "Canx"
      Exit Function
    End If
  End With
  If Left(strFolderPath, 1) = Chr(34) Then
    strFolderPath = Mid(strFolderPath, 2, Len(strFolderPath) - 2)
  End If
  If Right(strFolderPath, 1) = "\" Then
    strFolderPath = Mid(strFolderPath, 1, Len(strFolderPath) - 1)
  End If
  PickFolder = strFolderPath
lbl_Exit:
  Exit Function
End Function