在EXCEL中用VBA操作WORD表格：怎样选择一个表格中除第一行以外的任意连续行(比如第2到4行)？

在EXCEL中用VBA操作WORD表格：怎样选择一个表格中除第一行以外的任意连续行(比如第2到4行)？

选择选择第2行至第4行：
Rows(2).Resize(5, 1).EntireRow.Select
选择A1到A4：
Range("A1:A4").Select
选择A1到B4：
Range("A1:B4").Select

Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim TC%, R%, C%
set wDoc = wApp.Documents.Open("要打开的文件")
TC = wDoc.Tables.Count
R = '从哪里开始你自己定吧
C =
If TC = 0 Then wDoc.Close : Exit Sub
For i = 1 To TC
With wDoc.Tables(i)
wDoc.Range(.Cell(2, 1).Range.Start, .Cell(.Rows.Count, .Columns.Count).Range.End).Select

Selection.Copy

xlSheet.Cells(R, C).Select
xlSheet.PasteSpecial Format:="文本" '选择为文体方式粘贴
R = R + .Rows.Count '控制行的位置为下一次粘贴
End With
Next
你在Excel里改成CreateObject方法也可引用也可
大概代码是这样了,细节部分你自己加上去吧
如果想速度最好把Word运行时Show出来,运行完关了就可以追问谢谢cyclong2011的回答
测试
wDoc.Range(.Cell(2, 1).Range.Start, .Cell(.Rows.Count, .Columns.Count).Range.End).Select
未通过，提示——运行时错误，'451'，property let 过程未定义，property get过程未返回对象！追答请问你的wDoc对象引用有定义好了没?
我这里测试是没问题的
能否看下你的代码追问谢谢指点，收益良多！
经过一点小修改后测试通过……追答呵呵,不客气

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息