用VBA实现将Excel表格粘贴到Word

dongfgdwdjg

太晕了，审核有什么规则吗？

lhdcxz

mayejuejiang 发表于 2016-8-26 17:05
还需补充一点：开始的时候只打开Excel，在宏程序中打开Word，谢谢！

参考我的帖子“对新人谈谈EXCEL用到的数据结构”

鄂龙蒙

131409166 发表于 2016-8-26 17:47
Sub 生成()

Dim appWD, doc As Object

请教：如何将EXCEL中表格复制到.docx中，谢谢！

mayejuejiang

dongfgdwdjg 发表于 2016-8-26 19:30
楼主用到行这个概念，但word中的行很复杂，引用守柔版主的原话：“Word 2003及其以后版本中，是有“页”和 ...

老师你好：
我用了您的方法是可以实现的，原本我自己写的是少了With wdapp.Application这句，如果方便还请讲一下excel和word之间的操作是可以用with连起来吗（这是我的理解）
btw，怎么赏花？

mayejuejiang

jiminyanyan 发表于 2016-8-26 20:43
我倒是觉得，先在WORD中做好表格，EXCEL中的数据写入，这样无论是表格的格式还是定位都好控制些。。。。

老师您好，因为这个表格的行是不固定的，这个问题只是其中一步，之后还要循环。我只会一点在excel中的宏程序，所以是在excel中先整理好表格，再粘到Word里。不过还是谢谢您！

dongfgdwdjg

送花就是点楼层右下角的评分，评1分就是送一枝花，评几分就是送几枝花，不消耗你任何资源的：就是你对别人的评价或口头鼓励。
前辈朋友也告诉过我，用excel操作word很不方便，麻烦，运行速度也慢的多，所以不建议用excel操作word，最好直接用word的VBA操作，但对word的VBA我也不懂，可以到本网word版块去学习一下。
excel和word之间的操作不是通过 with连接的，与with无关，不管excelVBA还是wordVBA，都可以用with代表引用的文件或操作。
我在9楼也说过，With ……End With部分的四行代码实质上与wddocument.Paragraphs(3).Range.Paste一行代码作用相同，你可以试一下：就是把With ……End With部分的四行代码删除或者在前边 加半角状态的单引号，而把wddocument.Paragraphs(3).Range.Paste前边的加半角状态的单引号去掉（让这句成为可执行的代码），试一下效果是否相同。你会发现，即使没有with，用excel也可以操作word。
用excel操作另外excel文件时，直接打开文件就可以进行操作，但用excel操作word时，仅打开word文件实际上无法对word文件进行修改（但可以从中读取数据），还需要创建应用，如3楼的“Set appWD = GetObject(, "Word.Application")”，4楼的“Set wdapp = New Word.Application”，就这一点让初学者绕不过去，产生错误。

mayejuejiang

dongfgdwdjg 发表于 2016-9-1 08:35
送花就是点楼层右下角的评分，评1分就是送一枝花，评几分就是送几枝花，不消耗你任何资源的：就是你对别人 ...

我的右下角只有举报和管理呀 管理里面只有置顶呀

dongfgdwdjg

怎么会呢？左下角是回复，右下角是评分和举报。你的不一样吗？每个楼层都只有置顶和举报吗？

dongfgdwdjg

mayejuejiang 发表于 2016-9-5 17:58
我的右下角只有举报和管理呀 管理里面只有置顶呀

你说的这种情况，我也不知道，恐怕得问版主了。呵呵

jiminyanyan

dongfgdwdjg 发表于 2016-9-5 18:10
你说的这种情况，我也不知道，恐怕得问版主了。呵呵

新人可能送不了花。