doc.Tables.Count
> objdoc.Tables(i).Range.Copy
> Set wkb = Workbooks.Add
> wkb.Sheets(1).Select
> ActiveSheet.Paste
> Next
>
>
> objdoc.Close
> Set objdoc = Nothing
> Set objWord = Nothing
> End Sub
>
>
>
> On Thu, Mar 27, 2014 at 11:19
Ashish,
The code works great!!! How could it be modified to create a new Excel
document for each Word table discovered? Kindly advise. Thank you,
Michael
On Wednesday, October 2, 2013 1:09:44 AM UTC-4, ashish wrote:
>
> try this
>
> Sub import_word_table_to_excel()
> Application.DisplayAlert