在excel宏里复制word表里的内容粘贴的excel里(用vba代码)
本人想把word表格里的内容按格式放到excel里，word里面的内容不一定全要，根据excel里的格式一行一行的填入，在excel宏里写的vba代码怎么实现?





[解决办法]

VB code

'依次处理每一个单元格,主要代码如下：Set excelapp = CreateObject("excel.application")Set oexcel = excelapp.Workbooks.Open(App.Path & "\myexcel.xls")Set wordapp = CreateObject("word.application")Set worddoc = wordapp.Documents.Open(app.path & "\myword.doc")for i=1 to totalrow    for j=1 to totalcol       oexcel.Worksheets("sheet1").Cells(i, j).Value=Trim(wordapp.ActiveDocument.Tables(1).Cell(i, j).Range.Text)    next jnext i
[解决办法]
探讨

我也是刚接触vba，也不是太懂，能否详细一些，特别是totalrow，totalcol变量不是太清楚，我的excel里，横的是A到K，竖的是4到多少行就有word里面来确定，这样要怎么来写？