请教：用变量引用每一段落的前两个单词的方法

ying

请教，如何定义变量，定义什么类型的变量，可以引用每一段落的前两个单词？

如，将单数段落中的前两个单词变成红色，并放在变量里。将双数段落中的前1个单词变成绿色，并放在变量里。该怎么编写下面的程序？

请大侠们指教。先谢谢了

dim i as Paragraph

set doc=activedocument

For Each i In doc.Paragraphs '在活动文档的段落集合中循环 ..... End If

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-14 5:57:20 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub SetWordFont() Dim i As Paragraph, MyWordRange As Range, ParCount As Integer On Error Resume Next Application.ScreenUpdating = False With ThisDocument For Each i In .Paragraphs ParCount = ParCount + 1 If ParCount Mod 2 = 0 Then Set MyWordRange = .Range(i.Range.Start, i.Range.Words(2).End) MyWordRange.Font.Color = wdColorBlue Else i.Range.Words(1).Font.Color = wdColorRed End If Next End With Application.ScreenUpdating = True End Sub '----------------------

我这个只是一个示例，如果结合楼主的附件，则要考去除空白段落，从LINKS段落向下计数循环，设置颜色。

主要代码已经有了，我想，其它部分，对于楼主而言，应该没有困难了。

ying

谢谢了。一定好好读读。