word vba 如何选择文档任意位置字符？

cydca8108

gbgbxgb 发表于 2019-7-23 15:48
想要一句的？有：
ActiveDocument.Range(ActiveDocument.Range(ActiveDocument.Content.GoTo(1, 1, 2).S ...

请大师看看我下面那几行代码，能不能完成这特定任务，有破绽吗

gbgbxgb

cydca8108 发表于 2019-7-23 16:16
请大师看看我下面那几行代码，能不能完成这特定任务，有破绽吗

你说过代码运行的前提是保证存在指定的页和指定的段落数以及指定的字符串数量，那就当然可以了，本人不觉得有什么破绽。

补：代码能不用Selection对象完成目标任务的，尽量不用该对象。譬如，若把Word代码移植到Excel中，你将发现由于Selection的存在，Excel环境下运行该代码将要作大的修改。比如类似这一句（后续代码句亦是通过MoveDown、MoveRight来到达目标处的，代码修改量可能较大）指定到第2页的代码将使你头疼：Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Name:=2。

最后：能自己写并完成目标任务的代码都是好代码！
还有，代码的效率不以代码的长短或精简来判断，而应看代码的算法。

cydca8108

gbgbxgb 发表于 2019-7-23 16:41
你说过代码运行的前提是保证存在指定的页和指定的段落数以及指定的字符串数量，那就当然可以了，本人不觉 ...

感谢对新人的无私赐教

gbgbxgb

cydca8108 发表于 2019-7-23 22:56
感谢对新人的无私赐教

那就再跟个帖。
依你的思路，下列代码供参考：

1. Sub test()
   
2.     Dim rng As Range
   
3.     '
   
4.     Set rng = ActiveDocument.GoTo(what:=wdGoToPage, which:=wdGoToAbsolute, Count:=2)
   
5.     With rng
   
6.         .Move unit:=wdParagraph, Count:=2
   
7.         .Move unit:=wdCharacter, Count:=9
   
8.         .MoveEnd unit:=wdCharacter, Count:=4
   
9.         .Select
   
10.     End With
    
11.     Set rng = Nothing
    
12. End Sub

复制代码