VBA获取当前文档的文本内容及字数统计：[7]

1、这一回，我们仍然要用到Activedocument对象，要获得文档的内容和字数统计，我们必须通过activedocument对象的一个之对象content（这里代表整篇文档区域）的text属性来得到，其中代码如下：Sub GetWordInfo()Dim sContent As String '声明一个字符串型的变量，用来储存文档内容；Dim sWordsCnt As Long '声明一个长整形型的变量，用来储存文档的长度；sContent = ActiveDocument.Content.Text '文档内容sWordsCnt = ActiveDocument.Content.End '文档长度MsgBox "文本内容：" & sContent & vbCrLf & "字数统计：" & sWordsCntEnd Sub

2、我们可以运行这段代码看运行效果：1.当前内容为空时：要注意的是，尽管这里我们的文档是空文档，但这里提示的文本长度为1，原因是我们的文档末尾都有一个回车符（空文档亦是如此），这个长度1就是这个回车符的长度。2.非空文档：是不是觉得很有意思呢？赶紧来试试吧？！