一个邮件合并域可不可将其分开

c81

1.比如合并邮件域中有个日期，插到Word中合并显示为2006-05-03,而实际上要将这个日期放在三个地方，2006一个，05是一个，03是一个

2.如果是一段文字呢？

如果总数为奇，则分成二份，前半为偶数，后半为奇数

如果总数为偶，则平均分成二份.

VBA中可以通过len长度来判断及取哪些字比较好办些，但域中怎么办呀？

[此贴子已经被作者于2006-9-9 21:17:18编辑过]

守柔

QUOTE:

以下是引用c81在2006-9-9 21:15:59的发言：

1.比如合并邮件域中有个日期，插到Word中合并显示为2006-05-03,而实际上要将这个日期放在三个地方，2006一个，05是一个，03是一个

2.如果是一段文字呢？

如果总数为奇，则分成二份，前半为偶数，后半为奇数

如果总数为偶，则平均分成二份.

VBA中可以通过len长度来判断及取哪些字比较好办些，但域中怎么办呀？

第一个问题，比较好解决，直接在WORD的域中使用日期图片开关“\@”即可。

第二个问题，必须结合数据源（如EXCEL），借用辅助列，进行判断，再根据Word合并域进行判断。

我做了一个示例，所有EXCEL公式、域代码等供参考：

TRvMYt4r.rar (5.75 KB, 下载次数: 87)

2006-9-10 06:01 上传

点击文件名下载附件
一个邮件合并域可不可将其分开

c81

多谢版主。

现在问题1解决了，问题2解决方案是可行的。

但实际上要求sql数据库直接和Word相连，而不用Excel在中间作中介，这样要简洁和方便些。

即然问题2不能在域上想办法，好象用VBA好些，我初步设想

当邮件合并事件完成时，将合并成的新文档中的表格内目标单元格内容分割一下（域代码事先是放在表格内的）。

守柔

QUOTE:

以下是引用c81在2006-9-10 12:46:53的发言：

多谢版主。

现在问题1解决了，问题2解决方案是可行的。

但实际上要求sql数据库直接和Word相连，而不用Excel在中间作中介，这样要简洁和方便些。

即然问题2不能在域上想办法，好象用VBA好些，我初步设想

当邮件合并事件完成时，将合并成的新文档中的表格内目标单元格内容分割一下（域代码事先是放在表格内的）。

我用VBA做了一个，请C81兄测试一下。

以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2006-9-11 6:12:47
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0071^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Public WithEvents wdApp As Word.Application
Private Sub Document_Open()
    Set wdApp = Word.Application
End Sub
'----------------------
Private Sub wdApp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
   Dim lngLenth As Long, myCell1 As Cell, myCell2 As Cell, myString As String
    Set myCell1 = Doc.Tables(1).Cell(6, 2)
    Set myCell2 = Doc.Tables(1).Cell(6, 3)
    With Doc.MailMerge.DataSource
        myString = .DataFields(2).Value
        lngLenth = VBA.Len(myString)
        If lngLenth Mod 2 = 0 Then
            myCell1.Range.Text = VBA.Left(myString, lngLenth / 2)
            myCell2.Range.Text = VBA.Right(myString, lngLenth / 2)
        Else
            myCell1.Range.Text = VBA.Left(myString, (lngLenth + 1) / 2)
            myCell2.Range.Text = VBA.Right(myString, (lngLenth - 1) / 2)
        End If
    End With
End Sub
'----------------------

JqOqQrov.rar (8.67 KB, 下载次数: 38)

2006-9-11 06:14 上传

点击文件名下载附件
一个邮件合并域可不可将其分开

c81

狂谢老守先生。

我也写了几行MailMergeBeforeRecordMerge事件代码，就是不能执行，原来前面还有一Option Explicit，这是什么东东呀？

另外，如果只点“查看合并数据”命令来临时看一下合并结果，也要执行上面的动作，怎么办？

守柔

TO C81：

为你的进步感到高兴。

Option Explicit 是模块级别中处于通用声明段（所有过程之前）的语句，意为显式声明变量。

显式声明变量编程学习者的一个良好习惯，可以避免在键入已有变量时出错，在变量的范围不是很清楚的代码中使用该语句可以避免混乱，如果使用了未声明的变量名在编译时间会出现错误。

举个例子：

'Option Explicit

Sub Example()

    aTest = "123456"

    MsgBox aTset + 1

End Sub

示例中，实际上出现了两个变量，一个是aTest,一个是aTset(录入错误造成)，如果未使用显示变量声明，则程序运行结果并非为预期结果，程序自动声明了一个Variant类型的aTset变量。

至于“查看合并结果“操作，请注明你的Word版本，应该不会触发MailMergeBeforeRecordMerge事件。

关于你不能正确触发此事件，在于你没有成功声明Application对象事件，有关Application对象事件的声明，可查看帮助文件，分为三步，论坛中也有很多，可自行理解，有问题，再讨论。（Word非常接触中也有介绍）

c81

多谢指教。

我现给人家设置一个Word使用sql数据库为数据源进行邮件合并能精确套打的实例。

数据库链接，

域选项查询，

精确定位，

合并处文本自动适应等等，基本上能成功，就是这个要命的域分开来显示让人头痛一下，多亏版主相救。

[此贴子已经被作者于2006-9-11 11:09:29编辑过]