暂无图片
暂无图片
暂无图片
暂无图片
暂无图片
首页 / WORD_VBA计算选择中的单词数

WORD_VBA计算选择中的单词数

VBA语言専攻 2022-10-08
85
【分享成果，随喜正能量】苦难不是心之所向，是历心之过程。如果脚下的路充满磕绊，即使付出努力也难顺利，这是生活在提醒我们做排除法，排除掉我们不擅长的事，集约时间去做擅长的事。。
我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目录和VBA工具目录)，现在已经全部完成。
如果您VBA是入门阶段，可以打包选择7.1.3.9教程，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。如果您有了一定的VBA基础可以根据自己的需要，进行教程的选择。教程提供的程序源码文件就如一座大型的代码库支持着大家的工作。同时还有实用的资料送给学员。
VBA是面向对象编程的语言，博大精深。很多朋友咨询英语和VBA的关系，这套《VBA即用型代码手册（汉英）》集合了众多的案例，案例我用汉语和英语同时发布，学员从中可以更好的领会和掌握VBA中用到的一些英语。今日的内容：WORD_VBA中计算选择中的单词数

第六章 Word对象及示例

Word Objects and Macro Examples

6  计算选择中的单词数Count Words in Selection

这个 Word VBA 宏将计算选择中的单词数。 如果没有选择，它将计算整个文档中的单词数。
This Word VBA Macro will count the number of words in the selection. If no selection is made, it will count the number of words in the entire document.

Sub mynzWordCount()
    '计算整个文档，然后计算选择的字数（如果选择了某些内容）
    Dim nWordsCount As Long
    Dim nCharCount As Long
    nWordsCount = ActiveDocument.Range.ComputeStatistics(wdStatisticWords)
    nCharCount = ActiveDocument.Range.ComputeStatistics(wdStatisticCharacters)
    MsgBox "整个文档包含: " & vbCrLf & nWordsCount & " 单词和" & vbCrLf & _
        nCharCount & " 没有空格的字符", , "Word Count"
    '现在显示所选文本的字数
    If Selection.Words.Count >= 1 And Selection.Type <> wdSelectionIP Then
        nWordsCount = Selection.Range.ComputeStatistics(wdStatisticWords)
        nCharCount = Selection.Range.ComputeStatistics(wdStatisticCharacters)
        MsgBox "所选文本包含: " & vbCrLf & nWordsCount & " 单词和" & vbCrLf & _
            nCharCount & " 没有空格的字符", , "Word Count (selection)"
    End If
End Sub




【分享成果，随喜正能量】我20多年的VBA实践经验，全部浓缩在下面的各个教程中：


【分享成果，随喜正能量】一个选择便是一种人生，一杯清茶便是一种解读，一个态度便是一种潇洒，一份胸襟便是一种豪迈，一份选择便是一份热爱，一份选择便成长长一生。早安。。


vbavba字典单词
文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论