Can someone please help me what this code is doing?
Thanks in advance!

Sub Copy_Tables()
Dim item As MailItem, x%
Dim r As Object 'As Word.Range
Dim doc As Object 'As Word.Document
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")

'xlApp.Workbooks.Open FileName:="D:\T.xlsm", AddTOMRU:=False, UpdateLinks:=False

Set wkb = xlApp.Workbooks.Add
xlApp.Visible = True

Dim wks As Object
Set wks = xlApp.Sheets(1)

For Each item In Application.ActiveExplorer.Selection
Set doc = item.GetInspector.WordEditor
For x = 1 To doc.tables.Count
Set r = doc.tables(x)
r.Range.Copy
wks.Paste
wks.Cells(wks.rows.Count, 1).End(3).Offset(1).Select
Next
Next
End Sub


If I want to save the new excel file with some name, then what should I do for that?