Need a macro to copy tables from word to excel

[Ak_Kmr]

Hi All,

I need a macro which copies the table content from word(2013) to Excel (2013). For example say, my word tables are as follows:

Item	Electrical
Name	Power chord
Number	3249
Order No	1-2998734
Sending detail	1. Dispatched from local facility 2. Dispatched from remote facility
Expected Delivery	1. Initially 3 days 2. Currently 1 day

<tbody>
</tbody>

Item	Non-Electrical
Name	Wood block
Number	3250
Order No	1-2998735
Sending detail	1. Dispatched from facility1 2. Dispatched from facility2 3. Dispatched from facility2
Expected Delivery	1. Initially 5 days 2. Currently 2 day

<tbody>
</tbody>

The output excel should be as follows:


[TABLE="width: 631"]
<tbody>[TR]
[TD]Item[/TD]
[TD]Name[/TD]
[TD]Number[/TD]
[TD]Order No[/TD]
[TD]Sending Detail[/TD]
[TD]Expected delivery[/TD]
[/TR]
[TR]
[TD]Electrical[/TD]
[TD]Power chord[/TD]
[TD="align: right"]3249[/TD]
[TD]1-2998734[/TD]
[TD]Dispatched from local facility[/TD]
[TD]Initially 3 days[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Dispatched from remote facility[/TD]
[TD]Currently 1 day[/TD]
[/TR]
[TR]
[TD]Non-Electrical[/TD]
[TD]Wood block[/TD]
[TD="align: right"]3250[/TD]
[TD]1-2998735[/TD]
[TD]Dispatched from facility1[/TD]
[TD]Initially 5 days[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Dispatched from facility2[/TD]
[TD]Currently 2 day[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Dispatched from facility3[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

This macro should loop through all the tables in my word document and copy the tables to excel in the above mentioned manner. Appreciate your help here. Thanks.

 

[Ak_Kmr]

Please help me people as I'm new to excel macro. Thanks again.