[求助]请教邮件合并中是否可以用字数统计

duke008 · 发表于 2006-9-13 14:17

能否通过域实现对邮件合并的一个字段内容进行字数统计？

0thK6A8D.rar (25.09 KB, 下载次数: 8)

[此贴子已经被作者于2006-9-19 16:44:08编辑过]

c81 · 发表于 2006-9-13 14:41

可以，写一些vba代码就行了，具体参考一个邮件合并域可不可将其分开这个贴子，内有守版主关于域LEN计算代码。

duke008 · 发表于 2006-9-13 15:39

字数统计好像不是能用len代替的，而word本身的字数统计功能，还不能录制成宏。

守柔 · 发表于 2006-9-13 18:48

这种情况可以分为两种方案：

首先，WORD中直接这种功能。因此，只能有两种方式处理：

1，从数据源着手，在数据源中进行处理。

2，Word VBA，使用VBA方式对合并后的合并域进行数据处理。

诚如C81所言，请C81中的链接进行参考。

duke008 · 发表于 2006-9-14 09:25

请问版主，对于您说的第2种方法，怎么实现啊？如果用word本身的字数统计功能，我根本不知道怎样用vba来实现，因为我试图录制一个字数统计的宏却根本录不上，如果用len的话，处理中英文混杂的文档好像要做到准确也比较麻烦。

守柔 · 发表于 2006-9-19 05:56

QUOTE:

以下是引用duke008在2006-9-14 9:25:27的发言：
请问版主，对于您说的第2种方法，怎么实现啊？如果用word本身的字数统计功能，我根本不知道怎样用vba来实现，因为我试图录制一个字数统计的宏却根本录不上，如果用len的话，处理中英文混杂的文档好像要做到准确也比较麻烦。

发一个附件上来，要有主文档和数据源，并且说明你想要的正确的字节数，中英混合的更好。

duke008 · 发表于 2006-9-19 17:01

附件已上传.希望统计结果和用word本身的字数统计功能统计出的"字数"一样.

天天快乐 · 发表于 2006-9-19 21:31

不知道excel有没有word的邮件合并功能，我想数据源是excel，要合并的也是表格，不知道好不好使？

守柔 · 发表于 2006-9-20 06:26

QUOTE:

以下是引用duke008在2006-9-19 17:01:02的发言：
附件已上传.希望统计结果和用word本身的字数统计功能统计出的"字数"一样.

我做了一个，请楼主详测。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2006-9-20 6:25:07
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0072^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Public WithEvents wdApp As Word.Application
Dim myString As String
Private Sub Document_Open()
    Set wdApp = Word.Application
End Sub
'----------------------

Private Sub wdApp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document)
    Dim i As Section, L As Long, myVar As Variant, N As Long
    On Error Resume Next
    myVar = VBA.Split(myString, "\")
    For Each i In DocResult.Sections
        N = N + 1
        i.Range.Paragraphs(3).Range.Text = "字数:" & myVar(N)
    Next
End Sub
'----------------------

Private Sub wdApp_MailMergeAfterRecordMerge(ByVal Doc As Document)
    Dim myBar As CommandBar, CharsCount As String
    Application.ScreenUpdating = False
    Doc.Fields(Doc.Fields.Count).Select
    Set myBar = Word.CommandBars("Word Count")
    Application.Run "ToolsWordCountRecount"
    CharsCount = myBar.Controls(1).List(1)
    myString = myString & "\" & CharsCount
    Application.ScreenUpdating = True
End Sub
'----------------------

6n8HMaX9.rar (10.74 KB, 下载次数: 10)

守柔 · 发表于 2006-9-20 06:27

QUOTE:

以下是引用天天快乐在2006-9-19 21:31:01的发言：

不知道excel有没有word的邮件合并功能，我想数据源是excel，要合并的也是表格，不知道好不好使？

邮件合并是Word的功能，如果你实现类似功能，请上传附件。

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