使用VBA将excel中的表格迁移到word中遇到的问题

鱼生 · 发表于 2024-8-27 00:41

之前都是用excel表提交，但系统现在改了，必须用word提交，所有只能将excel表格转为word
在其过程中遇到如下问题：
1、我是用office编写的，在单位电脑上转成word格式基本正常，但换成回家用电脑时同样的excle表，转换后却用wps打开，格式就变了，无奈之下在最后加了一句“wdTable.AutoFitBehavior Behavior:=wdAutoFitContent '根据内容自动调整表格”，但最后四行并不居中，如图：

在单位转换后是office，这个就正常，单位那台电脑也有wps，可为什么在家里默认打开就用wps呢？（我已经将doc，docx默认打开方式改为word，但程序运行还是用wps打开）
2、由excel转换为word，内容可以过来，但表格没有边框，需要加边框，写了一段加边框的代码，其中
With .cell(i, 1).Borders
.LeftLineStyle= wdLineStyleSingle
这里总是报错
我实在想不出来该如何修改了
烦请各位老师解决以上问题。谢谢

（2024-08-27）test.zip (55.19 KB, 下载次数: 8)

jaxxcyh · 发表于 2024-8-27 08:20

卸载WPS，加入黑名单，永不安装！

3190496160 · 发表于 2024-8-27 11:28

手工做一个跟excel表格一样的word模板，用代码把excel表格的数据写入word模板对应位置，格式的问题不就解决了吗

taller · 发表于 2024-8-27 11:49

鱼生 · 发表于 2024-8-27 15:37

本帖最后由鱼生于 2024-8-27 15:52 编辑

3190496160 发表于 2024-8-27 11:28
手工做一个跟excel表格一样的word模板，用代码把excel表格的数据写入word模板对应位置，格式的问题不就解决 ...

我之前也做过这样的一个版本，但是需要预设置一个word模板，需要改动时还给找模板，没有用excel方便，所以想直接通过excel生成

鱼生 · 发表于 2024-8-27 15:51

taller 发表于 2024-8-27 11:49

根据您的提示，我对代码做了些调整，基本可以实现我的需求
但在操作工程中总是会出现如下问题：
1、设置边框时，.LineStyle = Options.DefaultBorderLineStyle 总会报错

如果加了“On Error Resume Next”那就会跳过，而不生成边框。
但选择结束，重来，它却有可能生成想要的word文档，似乎必须先报一次错，再运行才能正常。

2、我设置了一个SetColumnWidthAndTableWidth子代码，用了规划word表格列宽。现在的问题是，如果在主程序中直接执行调用这个列宽子代码就没有效果，但如果用F8逐行执行子代码，它还是可以实现预期效果。

以上2中问题烦请老师予以解答，谢谢！
修改后代码如下

（2024-08-27）test.zip (58.37 KB, 下载次数: 2)

鱼生 · 发表于 2024-8-27 18:28

jaxxcyh 发表于 2024-8-27 08:20
卸载WPS，加入黑名单，永不安装！

现在单位只要求用wps，尤其是word，用word编辑的文档与wps格式有差异，无法上传系统。

		自动登录	找回密码
密码			免费注册

[求助] 使用VBA将excel中的表格迁移到word中遇到的问题