如何让一个宏只从光标所处的位置往下、往上运行？

相见是缘8

如下面这个宏：

1、只从光标所处的位置往下运行。

2、只从光标所处的位置往上运行。

Sub DDDC()

   ActiveDocument.Content.Find.Execute "[" & ChrW(8220) &ChrW(8221) & "](*)[" & ChrW(8220) & ChrW( _

            8221) &"]", , , 1, , , , , , ChrW(8220) & "\1" &ChrW(8221), 2

End Sub

请大家赐教！谢谢！

ming0018

定义一个Range，光标以上就是当前点到文章头，光标以下就是当前点到文章尾。　我说的你应该能理解吧？
你想做的是区域查找功能吧？

相见是缘8

ming0018 发表于 2018-5-23 08:47
定义一个Range，光标以上就是当前点到文章头，光标以下就是当前点到文章尾。　我说的你应该能理解吧？
你 ...

你好！
感谢回复！
1、2、是分开的二个：
也就是当光标点在文档的任一处，执行1、该代码从光标处往下运行。如执行2、该代码从光标处往上运行。
我对VBA还是个外行，可否请你给一下代码？谢谢！

ming0018

相见是缘8 发表于 2018-5-23 11:44
你好！
感谢回复！
1、2、是分开的二个：

1. Sub findStr_SelectionToStart()
   
2.     Dim myDoc As Document
   
3.     Set myDoc = ActiveDocument
   
4.     Dim myRng As Range
   
5.     'If Len(Selection.Range) > 1 Then End
   
6.     Set myRng = myDoc.Range(0, Selection.Range.Start)
   
7.     With myRng.Find.Replacement
   
8.         .Font.ColorIndex = wdBlue '找到的字体变色
   
9.     End With
   
10.     With myRng.Find
    
11.         .MatchWildcards = True '通配查找
    
12.         .Text = "[0-9]{1,}" '要找查的内容
    
13.         .Execute Replace:=wdReplaceAll
    
14.     End With
    
15. End Sub
    
16. 
    
17. Sub findStr_SelectionToEnd()
    
18.     Dim myDoc As Document
    
19.     Set myDoc = ActiveDocument
    
20.     Dim myRng As Range
    
21.     'If Len(Selection.Range) > 1 Then End
    
22.     Set myRng = myDoc.Range(Selection.Range.End, myDoc.Content.End)
    
23.     With myRng.Find.Replacement
    
24.         .Font.ColorIndex = wdBlue '找到的字体变色
    
25.     End With
    
26.     With myRng.Find
    
27.         .MatchWildcards = True '通配查找
    
28.         .Text = "[0-9]{1,}" '要找查的内容
    
29.         .Execute Replace:=wdReplaceAll
    
30.     End With
    
31. End Sub
    

复制代码

随便写了一下，有问题ＱＱ问吧。

相见是缘8

ming0018 发表于 2018-5-23 12:00
随便写了一下，有问题ＱＱ问吧。

你好！
代码运行OK！虽还看不太懂，以满足了要求，谢谢你！还为以后拓展预留了空间，谢谢！

jack6600gt

我是来学习的

413191246se

相见，录制一个查找宏，其中，.forward=true 就是从光标处向后（文尾）查找；.forward=false 就是从光标处向前（文首）查找，其它不变。

相见是缘8

413191246se 发表于 2018-5-23 23:29
相见，录制一个查找宏，其中，.forward=true 就是从光标处向后（文尾）查找；.forward=false 就是从光标处 ...

大神好！
谢谢！这个前天也试过，可就是每次运行完后，总会有一个“是否继续”的询问框弹出，每次都要关闭它，这个较烦人。

413191246se

相见，在 查找宏 中，将属性设为        .Wrap = wdFindStop  再注意：事先将光标放到文首，就不会再问了。

相见是缘8

413191246se 发表于 2018-5-24 16:47
相见，在 查找宏 中，将属性设为        .Wrap = wdFindStop  再注意：事先将光标放到文首，就不会再问了。 ...

啊！原来是这样，好的。感谢大神解惑！谢谢！