WORD VBA中节、段、句、字符和单词的含义及判断方法

admin管理员组

文章数量:1531699

2024年5月11日发(作者：)

WORD VBA中节、段、句、字符和单词的含义及判断方法

word 中Sentences、Paragraph等的含义和用法

word 中有Words,Characters,Sentences、Paragraph,Sections 具体含义

如下：

表达式 含义 返回的对象

Words(index) 单词 Range

Characters(index) 字符 Range

Sentences(index) 句子 Range

Paragraphs(index) 段落 Paragraph

Sections(index) 节 Section

一般情况，一个文档是由几个节（Sections）组成，一节有几段（Paragraphs），

每段由几个句（Sentences）组成，每句又由众多个单词Words组成，每个单词

由几个字符组成。

如下文档，有两节，三段，内容如下：

Excelhome是一个不错的网站，你不只是Execl的家，也是word，ppt的家，

我们都喜欢你。希望你越办越好。

黄山村夫是一个不错的人，他做了不少关于wordVBA，ppt的软件。如word

转图片pdf，word编号工具，word转图片word；ppt转换图片pdf，ppt转换图

片ppt，我希望他的软件做的更好。

- -分节符- -

Microsoft 的Office做的很好，相信他会做的更好。

为了让你对WORD VBA的节、段、句、字符和单词的含义有一个直观认识，

我编了一个小程序，可以对当前文档进行节、段、句、字符和单词进行判断并通

过消息框显示出来。

VBA代码如下：

Private Sub TjExample()

'这是一个找出当前文档中有多少个节数、段落数、句子数和单词数并显示其具

体内容的程序。

MsgBox "当前文档共有 " & & " 节" ' 节

1

以分节符为标志，Sections是节的意思，节的总数。

Dim i, j As Integer

i = 1

Dim oSection As Section

For Each oSection In ns '对文档每一节进行循环

并显示节的内容，但由于Msgbox的限制，可能内容不一定全部显示。

MsgBox "当前文档第" & i & "节，其内容是: " &

i = i + 1

Next

MsgBox "当前文档共有" & & "段" '段

落以回车符Chr（13）为标志，注意换行符Chr(10)不算。

i = 1 'Paragraphs是段落的意思，是段落总数。

Dim oParagraph As Paragraph

Dim oSentence As Range

For Each oParagraph In aphs '对全文档的段落逐

一循环。

MsgBox "当前文档第" & i & "段，其内容是: " &

j = 1

For Each oSentence In ces '对全段的句子逐

一循环，句子是以“。”或回车符为标志。

MsgBox "当前文档第" & i & "段，第" & j & "句的内容：" &

'Exit For

j = j + 1

Next

i = i + 1

'Exit For

Next

i = 1

2

Dim oword As Range

For Each oword In '对当前文档所有单词逐一循环，

显示第个单词的内容。英文单词找的比较准，中文单词不怎么准。

MsgBox "当前文档第" & i & "个单词，其内容: " & '

If i = 1 Then '若是文档的第一个单词，则显示这个单词的每一个字的

内容。

For j = 1 To '每

个单词的字数。

MsgBox "当前文档第" & i & "单词的第:" & j & "字符为: " &

(j).Text '显示单词的每个字的内容。

'Exit Sub

Next

End If

i = i + 1

Next

End Sub

代码和运行的结果如下图所示：

图1程序代码

3

图2当前文档节数

图3第一节的详细内容

4

图4文档的总段落数

图5文档的第一个段落的内容

注：第一个段落往往就是文档的标题

图6文档第一句的内容

注：由于第一段是标题，只有一句，所以第一段的内容与第一段第一句的内容相同。

5

图7文档的第一个单词及其内容

图8 文档第一个单词的第一个字

6

本文标签： 单词文档含义内容标志