Explanation of following vba code

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?

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)