邮件合并后，插入域字段文字合并后按预留的位置大小自动填充。

goodlong

近日用邮件合并做合同批量打印的时候遇到一个问题，如gif中演示：




合同样本是定制好的模板，域字段插入的带下划线填充的空白处：
由于每个人姓名不一样，会引起该行文字变动，这个还好，不影响整体布局，但是地址字段影响就大了，原来1行的有可能变成2行，会影响合同的整体布局，而且不美观。


请问有什么方法能让插入的域字段在合并后，在预留的下划线长度中自动填充呢？


把填空处设置成表格的方法除外。




新建文件夹.rar (16.35 KB, 下载次数: 69)

2013-4-22 14:46 上传

点击文件名下载附件

goodlong

自己想到过两个方案：
方案一、将预留填充的的地方变成表格，但是劳动局的模板，每行列数不一样，列宽也不一样，变成表格形式非常麻烦，暂时不考虑这个方案


方案二、我的思路是这样的：

• 对excel户籍地址所在列用lenb公式找出最长的，然后把最长的地址复制到word模板中去，调整好字体大小，使之符合模板的格式。
• 然后再excel中把户籍地址类列中不足最长地址长度的，在后面用空格补足，调整过后，对excel户籍地址所在列用lenb公式长度都是一样的，即最长的地址的长度。
• 然后邮件合并，期望户籍地址那块不在因字段长短而变动，但是貌似邮件合并不吃这一套，加不加空格word不引用。
• 失败。。。。。
  

关于方案二，有没有办法让word邮件合并后，把空格也引用过去，或者不使用空格，而使用其他字符，结果就是word邮件合并能引用这个字符，然后word打印的时候不显示这个字符呢？

肖表哥

goodlong 发表于 2013-5-22 17:26
自己想到过两个方案：
方案一、将预留填充的的地方变成表格，但是劳动局的模板，每行列数不一样，列宽也不 ...

想法美好，结果凄惨。

jwing

遇到同样的问题，帮顶！

siliconxu

如果不考虑表格的话，可以考虑用文本框。但是，问题在于文本框里面的字体大小好像没办法根据文本框的大小而调整，所以这个方法也是会遇到跟用表格一样的问题。当然，如果可以的话，你只要把地址预留的空白多到足以容纳最宽的地址的尺寸就行了。
至少你可以达到不会改变模板的布局的目的。

lizhiweitony

可以用窗体域

hellohaoyu1985

最好的办法是用单文本框或是表，还有一种办法是两端对齐。不过你这不行，你这都超过一行了，必然得用文本框。（要是最大距离不超过一行，用两边对齐可以）
另外似乎窗体域不能引用地址域。

goodlong

hellohaoyu1985 发表于 2014-1-21 14:01
最好的办法是用单文本框或是表，还有一种办法是两端对齐。不过你这不行，你这都超过一行了，必然得用文本框 ...

最后还是用word中添加表格的方式解决的，弊端是发生变动，维护起来就麻烦了

上心圆梦

插入文本框

413191246se

楼主，明显你用的是2007或2010或2013版本，我用的是2003版本，下面是两个《证书调整行数》宏，2003版本的，不知管用不管用，试试吧！（目标：邮件合并后未删除分节符时第2段落强制1行）：
*******************
Sub 证书调整行数_New()
    On Error Resume Next
    Dim i As Section, k As Integer, l As String
    For Each i In ActiveDocument.Sections
        i.Range.Paragraphs(2).Range.Select
        Do
            Selection.Paragraphs(1).Range.Select
            Selection.HomeKey Unit:=wdLine
            Selection.EndKey Unit:=wdLine
            If Asc(Selection) <> 13 Then Selection.Paragraphs(1).Range.Select: Selection.Font.Scaling = Selection.Font.Scaling - 2 Else Exit Do
        Loop
    Next
End Sub
Sub 证书调整行数_Old()
    On Error Resume Next
    Dim i As Section, k As Integer, l As String
    For Each i In ActiveDocument.Sections
        i.Range.Paragraphs(2).Range.Select
        CommandBars("Word Count").Controls(2).Execute
        l = CommandBars("Word Count").Controls(1).List(6)
        k = Int(Mid(l, 1, Len(l) - 1))
        If k > 1 Then
            Do
                Selection.Font.Scaling = Selection.Font.Scaling - 2
                CommandBars("Word Count").Controls(2).Execute
                l = CommandBars("Word Count").Controls(1).List(6)
                k = Int(Mid(l, 1, Len(l) - 1))
            Loop Until k = 1
        End If
    Next
End Sub