For a Mac, you might be able to use something like the following to select the files to process:
Sub MergeChronologies()
Application.ScreenUpdating = False
Dim strSrc As String, strTgt As String, i As Long
Dim wdDocTgt As Document, wdDocSrc As Document, Tbl As Table
Set wdDocTgt = ActiveDocument: strTgt = ActiveDocument.FullName
With Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Add "Documents", "*.doc; *.docx; *.docm", 1
.InitialFileName = ""
If .Show = -1 Then
For i = 1 To .SelectedItems.Count
strSrc = .SelectedItems(i)
If strSrc <> strTgt Then
Set wdDocSrc = Documents.Open(FileName:=strSrc, AddToRecentFiles:=False, Visible:=False)
With wdDocSrc
For Each Tbl In .Tables
wdDocTgt.Range.Characters.Last.FormattedText = Tbl.Range.FormattedText
Next
.Close SaveChanges:=False
End With
End If
Next
Else
GoTo ErrExit
End If
End With
With wdDocTgt.Tables(1)
.SortAscending
Do While InStr(1, .Cell(2, 1).Range.Text, "date", vbTextCompare) > 0
.Rows(2).Delete
Loop
End With
ErrExit:
Set wdDocSrc = Nothing: Set wdDocTgt = Nothing
Application.ScreenUpdating = True
End Sub