Excel word mail merge 邮件合并 难题求解

cncalyl

上一次回复时，我说是初步成果，现在发个完善的版本。主要变动：将员工表格的序号双语由“Sequence”换了个短一点的“Order"(不知道可否？与你们中国人一样，我们朝鲜人的英语也不咋样)；表格边框用0.75磅粗线，表行每三行一粗线。另外，员工表我是按照最多15人设置的，不知道够用否？
你需要从Readme.doc文档中粘贴如下内容，到word宏中：
Sub TableJoiner()
Dim oTab As Table, i As Integer, j As Integer
Application.ScreenUpdating = False    '关闭屏幕更新
For Each oTab In ActiveDocument.Tables '删除紧跟表格后的回车，使各表行连成一个表
    With oTab.Range.Characters.Last.Next
         If .Characters.First = vbCr Then .Delete
    End With
Next
For i = 2 To ActiveDocument.Tables.Count Step 2  '对当前文档中偶数表格进行格式设置
    Set oTab = ActiveDocument.Tables(i)
    With oTab.Borders '设置表格外边框格式
         .OutsideLineStyle = wdLineStyleSingle
         .OutsideLineWidth = wdLineWidth075pt
    End With
    For j = 1 To oTab.Rows.Count Step 3 '表格每三行底线为粗线
        With oTab.Rows(j).Borders(wdBorderBottom)
             .LineStyle = wdLineStyleSingle
             .LineWidth = wdLineWidth075pt
        End With
    Next j
Next i
Application.ScreenUpdating = True    '打开屏幕更新
End Sub

zzz1123

公子，有關於合併列印的問題，想向你求助!! 望求公子幫忙，謝謝謝謝。
帖子↓
http://club.excelhome.net/thread-1320840-1-1.html