Excel Word邮件合并时如何自动调整字体以适应排版？

Wendy-L · 发表于 2017-1-19 21:07

Word是一个奖状模板，如图，捕获.PNG

，因为有些论文题目太长了，邮件合并时XX大学会跳到下一页，影响了排版，请问大家如何合并时不影响原排版？

413191246se · 发表于 2017-1-20 01:08

楼主，你只须下载我的《Word2003通用模板宏-2017春节版-SP1》，执行《辅助》菜单上一个叫《证书调整行数》宏即可，如果有提示，则须手动调整为2行；如果没提示，就可以打印了！——不会宏，请百度。

ghoob · 发表于 2017-3-13 22:14

楼主，你只须下载我的《Word2003通用模板宏-2017春节版-SP1》，执行《辅助》菜单上一个叫《证书调整行数》宏即可，如果有提示，则须手动调整为2行；如果没提示，就可以打印了！——不会宏，请百度。

应用比人的

cangbei · 发表于 2017-3-14 22:41

多谢多谢，学习中

cangbei · 发表于 2017-3-14 23:48

Sub 标红word重复段落()'函数名称
Dim acon As New Collection'创建新参数：文档范围
Dim apar As Paragraph'创建新参数：短句
Dim starttime, endtime'创建新参数：开始时间，结束时间
On Error Resume Next'忽略错误
starttime = Timer'向开始时间参数赋值
Application.ScreenUpdating = False
For Each apar In ActiveDocument.Paragraphs
acon.Add apar.Range, VBA.CStr(apar.Range.Text)
If Err.Number = 457 Then
'apar.Range.Delete '直接删除重复段落（若要使用，删除次行最前面引号运行即可）
apar.Range.Font.Color = wdColorRed  '标记重复段落为红色
Err.Clear
End If
Next
Application.ScreenUpdating = True
endtime = Timer
MsgBox "用时：  " & endtime - startime'输出处理时间提示
End Sub

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

[求助] Excel Word邮件合并时如何自动调整字体以适应排版？