求教编程中的几个问题

ying

请高手指教: 用VBA

1 怎么用循环检测word文档中的每一个词?

2 怎么判断一个段落的开始?

3 怎么在一个指定段落中统计一个单词的个数?

守柔

第一和第三个问题见以下代码：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-12 07:16:46 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Sample1() Dim oWord As Range, MyRange As Range '如果未选定文本则将MyRange 定义为全文档区域 If Selection.Type = wdSelectionIP Then Set MyRange = ThisDocument.Content Else '如果已选定文本,则将MyRange 定义为选定文本区域 Set MyRange = Selection.Range End If '在指定的区域的词中循环 For Each oWord In MyRange.Words MsgBox oWord Next End Sub '---------------------- Sub Sample3() Dim MyRange As Range, WordCount As Integer, MyWord As String, EndPos As Long MyWord = "敏捷" '此处输入你想要查找的单词 '定义一个查找区域 Set MyRange = Me.Paragraphs(1).Range '取得查找区域的结束位置 EndPos = MyRange.End '对于指定区域的查找 With MyRange.Find '清除查找格式设置 .ClearFormatting '查找文本 .Text = MyWord '如果WORD能够找到 Do While .Execute '如果查找到的文本位置大于结束位置则退出循环 If MyRange.Start > EndPos Then Exit Do '计数 WordCount = WordCount + 1 Loop End With MsgBox WordCount End Sub '----------------------

第二个问题，通常你需要举个例子，一般情况下，不需作判断，有很多方法，没有必要去检测是否为段落开始，也有很多方法，可以知道是否是段落开始。

ying

非常感谢,斑竹.

janeyb

以下是引用ying在2005-8-11 21:17:01的发言：

请高手指教: 用VBA

1 怎么用循环检测word文档中的每一个词?

2 怎么判断一个段落的开始?

3 怎么在一个指定段落中统计一个单词的个数?

不知你这三个功能要用于什么场合呢?感觉就像是做作业题似的.