Range("A1:A12").Select Selection.Copy'''''''''''''''''''''''''这个貌似不执行啊 Range("C1:C12").Select ActiveSheet.Paste''''''''''''''''''这个也就不执行了 Windows("1.doc").Activate''''''''''''''这个word含有表格，处于打开状态 Selection.HomeKey wdStory Selection.MoveDown Unit:=wdLine, Count:=11, Extend:=wdExtend Selection.paste''''''''''''''''''''这个不知道有没有写错 上头这一段改成 Range("A1:A12").copy Windows("1.doc").Activate tables(1).cells(1,1).paste 这样应该可以了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024