以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  表格复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172654)

--  作者：qaz17909 --  发布时间：2021/10/24 20:21:00 --  表格复制 excel生成表格后复制粘贴到word中，发现粘贴之后会多出一行空行，如何不要多出来这个空行？实例已上传  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:表格复制.rar

--  作者：有点蓝 --  发布时间：2021/10/24 21:46:00 --   只能是加一个删除代码         app.ActiveWindow.Selection.paste         app.ActiveWindow.Selection.Delete(Unit:=MSWord.WdUnits.wdCharacter, Count:=1)         app.Visible = False         Wb.Close

--  作者：qaz17909 --  发布时间：2021/10/25 10:01:00 --   如果是这种情况呢，先生成excel然后复制到第一个word表格，然后再复制粘贴到第二个word表，最后那个空行好像没有删除。见实例，先点击第一个按钮在点击第二个按钮。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:表格复制.rar

--  作者：qaz17909 --  发布时间：2021/11/13 10:55:00 --   还有一个问题。就是用这种方法复制excel表格到word中，有发现个别电脑上最后那个word上的表格宽度会不一样，这个可以通过什么方法完善呢？电脑上装的office版本是一样，是不是粘贴的方式（可否粘贴的时候保持源格式）。 [此贴子已经被作者于2021/11/13 11:15:07编辑过]

--  作者：有点蓝 --  发布时间：2021/11/13 11:17:00 --   这个没有办法。有时候直接在execl里使用ctrl+c复制到word里都不一定一样

--  作者：qaz17909 --  发布时间：2021/11/13 16:12:00 --   可否用vba对拷贝到word的表格进行列宽设置？

--  作者：有点蓝 --  发布时间：2021/11/13 16:18:00 --   学会百度：https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&ch=1&tn=maxco3_dg&wd=vb.net%20word%20%E8%A1%A8%E6%A0%BC%20%E5%AE%BD%E5%BA%A6 https://www.baidu.com/baidu?ie=UTF-8&word=c%23%20word%20%E8%A1%A8%E6%A0%BC%20%E5%AE%BD%E5%BA%A6 https://docs.microsoft.com/zh-cn/office/vba/api/word.column.setwidth