如何统计文本框内的字数.docVIP

如何统计文本框内的字数(2009-01-31 21:20:41) 标签：文本框?字数统计? 引语：翻译完成后统计字数时，经常会遇到文本框内字数统计的问题，现在有快速精确的办法了。本文转自网上，原作者不详，向其致谢！ 如果Word文档包含各种文本框，执行字数统计（选择菜单“工具”→“字数统计”）时，文本框里面的文字不会计算在内，属于Word统计功能的“死角”。要是只想统计一下某个文本框的字数，解决办法是先选中本文框，然后再执行字数统计，这时Word只计算文本框内的字数，文档其余内容的字数被忽略。 但是，这种选定文本框再统计字数的办法有时候也可能无能为力。如果有多个定义成组的文本框，即使你选中了文本框的组，Word也不能计算文本框的字数。也就是说，如果要统计组里面某个文本框的字数，你必须先拆分组，然后再选中文本框统计字数。 ?如果你经常要统计整个文档的字数，而且很在乎统计结果是否精确，Word统计功能对文本框的处理方式显然是一大麻烦。要彻底解决这个问题，最佳的办法是使用Word宏。下面的Word宏TextBoxCount实现了这个功能，它逐一访问文档包含的各个文本框，如果有多个文本框被定义成组，则自动拆分组。TextBoxCount宏计算每一个文本框的字数，最后用对话框显示出文档中所有文本框包含的字数和字符总数，以及整个文档的字数和字符总数（含文本框）。 在Word中定义宏的步骤：选择菜单“工具”→“宏”→“Visual Basic 编辑器”，输入TextBoxCount宏的内容。 复制下面的蓝色的部分，粘贴在Visual Basic编辑器内（红色部分是自动生成的）。 Sub TextBoxCount() TextBoxCount Macro 宏在 2009-1-31 由 wzwen 创建 ? Dim lngTBWords As Long 文本框的字数 Dim lngTBChars As Long 文本框的字符总数 Dim lngDocWords As Long 整个文档的字数 Dim lngDocChars As Long 整个文档的字符总数 Shape代表一个图形层对象，例如自选图形（包含文本框）、 任意多边形、OLE 对象、ActiveX 控件、图片等。Shape 对 象是 Shapes 集合的一个成员，该集合包含了一篇文档正文 部分的所有图形。 为简单计，下文仍把Shape称为文本框，因为它是这里要处理 的主角 Dim shpTemp As Shape Dim wcTemp As Dialog 对话框 Dim bDone As Boolean ? 关闭屏幕更新,以提高统计速度 Application.ScreenUpdating = False ? 扫描整个文档，如果发现定义成组的文本框 则拆分组。 这里之所以要加上一个Do...Loop循环，是因为一旦拆分了定义成 组的文本框，文档的文本框总数会发生变化。所以我们要加上一个 Do...Loop循环多次扫描文档，直至最后一次扫描找不到定义成组 的文本框为止。 Do bDone = True 对于当前文档包含的每一个文本框... For Each shpTemp In ActiveDocument.Shapes 如果已经定义了组 If shpTemp.Type = msoGroup Then 拆分组 shpTemp.Ungroup bDone = False End If Next shpTemp Loop Until bDone ? 统计文档主体的字数 Selection.HomeKey Unit:=wdStory 将wcTemp设置为字数统计对话框 Set wcTemp = Dialogs(wdDialogToolsWordCount) 执行字数统计对话框的功能 wcTemp.Update wcTemp.Execute 获得文档主体的字数和字符数 lngDocWords = wcTemp.Words lngDocChars = wcTemp.Characters ? 依次访问每一个文本框，统计字数 lngTBWords = 0 lngTBChars = 0 对于当前文档的每一个文本框 For Each shpTemp In ActiveDocument.Shapes 选中一个文本框 shpTemp.Select 执行字数统计功能 wcTemp.Execute 将该文本框的字数、字符数加入到累计数字 lngTBWords = lngTBWords + wcTemp.Words lngTBChars = lngTBChars + wcTemp.Characters Next shpTemp 计算整个文档的字数、字符数 即：把文档主体的字数、字符数加上文本