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 & "字数统计：" & sWordsCnt

End Sub

2、我们可以运行这段代码看运行效果：

1.当前内容为空时：

要注意的是，尽管这里我们的文档是空文档，但这里提示的文本长度为1，原因是我们的文档末尾都有一个回车符（空文档亦是如此），这个长度1就是这个回车符的长度。

2.非空文档：

是不是觉得很有意思呢？赶紧来试试吧？！