Sub GetJournalData()
'///////////////////////////////////////////////////////////////////////////////////
'/////This function stitches together the data from the first table in all .docm////
'///////////////////////files in the listed directory.//////////////////////////////
'///////////////////////////////////////////////////////////////////////////////////
    Dim Target As Word.Document
    Dim Source As Word.Document
    Dim RowTarget As Row
    Dim RowCount As Integer
    Dim iCounter As Integer
    Dim Folder As String
    Dim File As String
    'Set current document as Source file
    Set Source = ActiveDocument
    'Clear table of previous data, if it exists
    Do While Source.Tables(1).Rows.Count > 2
        Source.Tables(1).Rows.Last.Delete
    Loop
    'Set target folder
    Folder = "\\SharePoint@Port\teamsites\subsite\subsite\site\library\"
    'Find any and all .docm files in target folder
    File = Dir(Folder & "\*.docm")
    'Loop while there are still files to process
    Do While File <> ""
        'Open target and set Target variable
        Documents.Open FileName:=Folder & File
        Set Target = ActiveDocument
        RowCount = Target.Tables(1).Rows.Count
        For iCounter = 3 To RowCount
            'Add row and set elements
            Set RowTarget = Source.Tables(1).Rows.Add
            RowTarget.Cells(1).Range.Text = Target.Tables(1).Rows(iCounter).Cells(1).Range.Text
            RowTarget.Cells(2).Range.Text = Target.Tables(1).Rows(iCounter).Cells(2).Range.Text
            RowTarget.Cells(3).Range.Text = Target.Name
            RowTarget.Cells(4).Range.Text = Target.BuiltInDocumentProperties("Last Save Time")
        Next iCounter
        'Close target file
        Target.Close savechanges:=False
        File = Dir
    Loop
'//////////////////END//////////////////////////////////////////////////////////
End Sub