邮件合并中怎样增加数据源的列数

gwfzh

各位老师：

    本文档有88面值，所用数据源有395列数据，邮件合并时均这399列数据基本上均要用到，无论我使用97-2003文档，还是另存为“Word”文档，可在合并中数据源IV列（“J总病S率增减%”）后的数据（黄色部分）均用不到，邮件合并中怎样能使用数据IV2:QI2中的数据，请各位老师帮忙了！谢谢！！！    邮件合并中怎样增加数据源的列数.rar (19.76 KB, 下载次数: 32)

2014-6-17 18:21 上传

点击文件名下载附件

gwfzh

现将模板传上，请老师们帮忙了！谢谢！！！

gwfzh

怎么没老师来过问、指导！？

gwfzh

再顶！！！！！！！再顶

gwfzh

在excel2010表格A2：OF2区域上已建立了396条数据，在Word2010中建立了数据源后，仍然只显示IV止的256列，期待着老师能帮忙指点

gwfzh

请各位老师帮帮忙，能否用下面VBA增加邮件合并中合并域的数目？谢谢了！！！

Sub Document_Open()
Dim strExcel As String
Dim strSheet As String
Dim strDataSource As String
Dim strConnection As String
Dim strQuery As String
Dim tempPath As String
   
   'p1 = Documents(ActiveDocument.Name).Path        '取得主文档绝对路径
tempPath = Me.Path                                                   '取得主文档绝对路径
'strExcel = "疫情年分析表"                                            '定义Excel数据源工作簿文件名
strSheet = "H"                                                      '定义Excel数据源工作簿中工作表的名称
' set this to be the file name of your data source
strDataSource = tempPath & "\" & strExcel & ".xlsm"                  '计算出Excel数据源工作簿绝对路径，

'strDataSource = ThisWorkbook.Path & "\" & 疫情年分析表 & ".xls"
' set this to be the connection string for your data source
strConnection = ""
strQuery = "select * from " & strDataSource 'MMerge.TXT"
'以下是将Excel数据源载入主文档，通过录制取得
With ActiveDocument
With MailMerge
.OpenDataSource Name:= _
        strDataSource, _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & strDataSource & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:RegistryPath="""";Jet OLEDB:Database Password", SQLStatement:="SELECT * FROM `" & strSheet & "$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
End With
End With
End Sub

413191246se

将数据源拆开，分步进行吧！（拆为两个文件，合并两次）

gwfzh

413191246se 发表于 2014-6-20 10:55
将数据源拆开，分步进行吧！（拆为两个文件，合并两次）

模板文档中的数据也就是域在段落中前后交错，怎么分开呢？

gwfzh

试了下用“永中”文字，可他与word不兼容，将我在word中做的域都“错误”了，没得法，另想办法！不知有哪位老师有没好方法，请教授一下！

办公之星

考虑到与单位电脑同步的原因，我一直在用2003和XP，其实这是一个版本，2010没用过。另外，由于年龄和事务因素，我已不怎么钻研纯技术问题了，对您的问题整体上没有发言权。
建议将数据表拆分成两个表，分别合并（WORD似乎不支持两个数据源，嚏）；退而求其次，简化一下数据源，可以用备份表格操作。做那么大的WORD表格，不累吗？