ding1wei1　发表于：2018-06-19 20:13:58 　

在access中应用ADO将数据输出到Word

按照文中方法一建立一个新的数据库，输出文档为新建文档，我想修改成指定文档的指定位置（段落）插入表格，数据库中的表1为交叉查寻生成的，列数不固定，我刚开始接触access，什么都不会，麻烦各位老师指导一下或帮修改一下附件，谢谢了！

新人一个，没有积分，真不好意思了！

另外问一下，代码中：

If rs.Fields(I).Name = "单价" Then
tmpstr = Format(tmpstr, "####.00")

是什么含义？

leoyoung 发表于：2018-06-20 07:44:23

指定位置的特征呢？

某一个段落，某行,.......

Top

ding1wei1 发表于：2018-06-20 08:06:37

插入某一个段落，数据库中的表1为交叉查寻生成的，列数不固定

leoyoung 发表于：2018-06-20 11:54:56

a和w在同一文件夹的情况下，获取指定文档的路径
strPath = CurrentProject.Path & "\XX公司产品报价单.docx"

'创建基于指定路径的模板的Word文档

Set wordDoc = mywdapp.Documents.Open(strPath)

假设指定在第3段落后插入表格

wordDoc.Paragraphs(3).Range.Select

ding1wei1 发表于：2018-06-20 15:06:05

首先感谢leoyoung老师的热心帮助，

Set wordDoc = mywdapp.Documents.Open(strPath) 提示：

类型不匹配（错误 13）

我把原语句mywdapp.Documents.add改成了 mywdapp.Documents.Open ("D:\XX公司产品报价单.docx")

wordDoc.Paragraphs(3).Range.Select 提示文档未打开

修改成了mywdapp.ActiveDocument.Paragraphs(3).Range.Select 可运行，但是出现这种情况：

问题应该出现在这一句，

'选中全部内容

mywdapp.Selection.WholeStory
'将所选内容转换为表格
mywdapp.Selection.ConvertToTable Separator:=wdSeparateByTabs, DefaultTableBehavior:=wdWord9TableBehavior

请问老师们，该如何修改？

ding1wei1 发表于：2018-06-20 21:55:11

换了种方法，终于解决了

用Word的DATABASE 域代码，简单好用

总记录：5篇页次：1/1 9 1 :