如何返回查找到的光标位置?

duowjgwsm

新手请教二个问题:1.一篇文档,查找一个指定字符串,返回查找处的起始位置st (比如在"123456"中找"45",返回"4"左侧的光标位置)


2.如何复制2个位置st1 和 st2之间的文本

谢谢!

banjinjiu

查找内容是唯一的。

1. 
   
2. Sub 查找45()
   
3.     Selection.WholeStory
   
4.     Selection.Find.ClearFormatting
   
5.     '查找
   
6.     With Selection.Find
   
7.         .text = "45"
   
8.         .Forward = True
   
9.         .MatchWildcards = True
   
10.     End With
    
11.     Selection.Find.Execute
    
12.     '移动
    
13.     Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
14.     '返回"4"左侧的光标位置
    
15.     ' Selection.Moveright Unit:=wdCharacter, Count:=1
    
16.     '返回"5"右侧的光标位置
    
17. End Sub

复制代码

1. 
   
2. Sub 复制st1和st2之间部分()
   
3.     Selection.WholeStory
   
4.     Selection.Find.ClearFormatting
   
5.     '查找
   
6.     With Selection.Find
   
7.         .text = "st1[!st1]@st2"
   
8.         .Forward = True
   
9.         .MatchWildcards = True
   
10.     End With
    
11.         Selection.Find.Execute
    
12.         '缩小
    
13.     Selection.MoveStart Unit:=wdCharacter, Count:=3
    
14.     Selection.MoveEnd Unit:=wdCharacter, Count:=-3
    
15.     Set s = Selection.Range
    
16.     '复制
    
17.     Selection.Copy
    
18.    End Sub

复制代码