WORD中搜索特定词组并返回所在段落号

homezhu

如题，第一次发帖，感谢各位高手解疑释惑！{:soso_e183:}

hellohaoyu1985

我个人是没找到Range所在文章的段的这个属性，所以我自己编了个函数。谁能直接引用这个属性也请教（不用任何算法）。

1. Sub 添加特定字符段落号()
   
2. Dim bFindTxt As String '要替换的字符串
   
3. Dim FindTxt As String '替换的字符串
   
4. Dim n%
   
5. bFindTxt = InputBox("要查找的字符写在下面") '也可直接改变。不用Input
   
6. On Error Resume Next
   
7. Application.ScreenUpdating = False
   
8. With Selection.Find
   
9.     .ClearFormatting
   
10.     .Text = bFindTxt
    
11.     Do While .Execute = True
    
12.         With Selection.Range
    
13.             .Font.ColorIndex = wdRed '一定要先改属性再改字
    
14.             .Font.Underline = wdUnderlineDottedHeavy
    
15.             FindTxt = .Text & "【所在第" & iParaCount(Selection.Range) & "段】"
    
16.             .Text = FindTxt
    
17.         End With
    
18.         Selection.MoveStart wdCharacter, Len(FindTxt) '这句话一定再注意一下
    
19.         'n = n + 1: If n > 9 Then Exit Do
    
20.     Loop
    
21. End With
    
22. Application.ScreenUpdating = True
    
23. End Sub
    
24. 
    
25. Function iParaCount(oRange As Range) As Integer
    
26. oRange.SetRange 0, oRange.End
    
27. iParaCount = oRange.Paragraphs.Count
    
28. End Function
    

复制代码

本代码在office2010sp1下通过。

loquat

ActiveDocument.Range(0, oRange.End).Paragraphs.Count

hellohaoyu1985

loquat 发表于 2014-2-11 20:19
ActiveDocument.Range(0, oRange.End).Paragraphs.Count

也对，比我的SetRange，看上去简洁了一些。但是思路是一致的。Thanks。

loquat

hellohaoyu1985 发表于 2014-2-11 20:41
也对，比我的SetRange，看上去简洁了一些。但是思路是一致的。Thanks。

个人感觉SetRange就是一个累赘，根本不需要Set就可以直接引用。不知道微软设置这个方法是做什么用的。。。

loquat

1. Sub 返回特定字符段落号()
   
2. Dim FindTxt$, i&, j&
   
3. FindTxt = InputBox("要查找的字符写在下面")
   
4. With ActiveDocument
   
5. For i = 1 To .Paragraphs.Count
   
6.     j = InStr(1, .Paragraphs(i).Range, FindTxt, vbBinaryCompare)
   
7.     If j Then Debug.Print i
   
8. Next
   
9. End With
   
10. End Sub

复制代码

hellohaoyu1985

其实吧，这个题不需要VBA也能达到2楼的效果，也不需要正则。只需要查找替换，就是步骤蛋疼了点。我个认为充分展示了word替换的美学。
方法如下：
1. 在第一行的开头建立一个AutoNum的域，并把其设为“强调”格式（其它的格式也行，替换用），选中此域，Ctrl+C
2. Ctrl+H打开替换面板；查找内容：^p；替换内容：^p^c。全部替换。
3. 在第一行的末尾，再建立了一个AutoNum的域，并把其设为“明显强调”（其它格式也行，只要不和上面相同），Ctrl+C
4. Ctrl+H；查找内容：金钱（为你要查找的字符串的），替换内容为：金钱（Para：^c）（其中金钱为你要查找的字符串）；并把替换格式改为字体——双下划线（红色）。全部替换。
5. Ctrl+A; Ctrl+Shift+F9
6. Ctrh+H;查找内容：空；格式为强调。替换内容为：空。
7. 删除第一行末尾的最后一个字符。
以下就是完成后效果图：

硅谷少年

hellohaoyu1985 发表于 2014-2-11 20:41
也对，比我的SetRange，看上去简洁了一些。但是思路是一致的。Thanks。

非常感谢，苦苦寻觅，居然这样解决了：
ActiveDocument.Range(0, selection.End).Paragraphs.Count
返回当前光标所在的段落数。