怎样增加word邮件合并中的域字段数？

gwfzh

各位老师：

本文档有88页纸，所用数据源有395列数据，邮件合并时均这399列数据基本上均要用到，无论我使用97-2003文档，还是另存为“Word”文档，可在合并中数据源IV列（“J总病S率增减%”）后的数据（黄色部分）均不见了。

如本文档中第七页中的合并域基本上要引用数据源中IW2:MH2区域中的值，可邮件合并时数据只显示到IV列止，IW列后的数据看不到，邮件合并时怎样引用IW列后的数据，即增加word邮件合并中的域字段数？请各位老师帮忙了！谢谢！！！    增加word邮件合并中的域字段数.rar (98.03 KB, 下载次数: 32)

2014-6-18 11:34 上传

点击文件名下载附件

gwfzh

怎么没人来过问、指导？？？！！

gwfzh

再顶！！！！！！！再顶

chxw68

gwfzh 发表于 2014-6-19 08:55
再顶！！！！！！！再顶

没用过那么多字段数，如果是Word 邮件合并功能有限制，建议改为用Excel VBA来做。

gwfzh

chxw68 发表于 2014-6-19 09:01
没用过那么多字段数，如果是Word 邮件合并功能有限制，建议改为用Excel VBA来做。

Excel VBA怎么做，请老师帮忙一下！谢谢了

chxw68

gwfzh 发表于 2014-6-19 09:56
Excel VBA怎么做，请老师帮忙一下！谢谢了

说个思路：按打印格式在EXCEL工作薄中设置一个打印模板工作表，写一段代码从数据源中读取数据写入打印模板逐个打印。

gwfzh

chxw68 发表于 2014-6-19 10:58
说个思路：按打印格式在EXCEL工作薄中设置一个打印模板工作表，写一段代码从数据源中读取数据写入打印模板 ...

不了解“打印模板工作表”，能否用VBA自己创建一个邮件合并数据源（超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

jiminyanyan

私信老师吧。。。。

gwfzh

怎么联系？