Sub word_excel_multitable() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.WorkSheet Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) rn = 0 cn = 0 For Each t In ActiveDocument.Tables For Each r In t.Rows For Each c In r.Cells xlSheet.Range("A1").Offset(rn, cn).Value = Left(c, Len(c) - 1) cn = cn + 1 Next c cn = 0 rn = rn + 1 Next r rn = rn + 2 Next t End Sub The code has to be pasted in module of word document Set reference for Excel object library in word so that word can write in Excel Click Tool > References

program done. It was nice.

seen entire video.

fantastic. looking forward to learn more.

Done filling names in highlighted cell. It was interesting.

The output cell is I10

laptop.make = "Dell" laptop.touchscreen = TRUE

i have done my assignment

Done my assignment.

Excited to learn more and implement in my work. You are teaching it very well.

labtop.color="silver" labtop.processor="ryzen"

Learn how to count, sum and display running totals

VBA Tutorial 14 : For loop examples to read data write data & transform data

Download VBA code

Download code file

The output cell is I10

Done my assignment

Download