如何取得某行第一个字符在文档中的位置

batmanbbs

因为一个窗格只能一个选区，所以原有选区不能破坏，采用什么方式可以获得段落某行第一个字符在文档中的位置，即.Characters(?)

413191246se

MsgBox ActiveDocument.Range(Start:=0, End:=Selection.End).Characters.Count

batmanbbs

413191246se 发表于 2023-2-27 12:38
MsgBox ActiveDocument.Range(Start:=0, End:=Selection.End).Characters.Count

不能使用 Selection.End 这个呀 ，因为某行第一字符不是选区结束位置。
比如我选择了文档中的5个段落，现在想知道第二个段落第三行的第一个字符

413191246se

楼主，Selection 只能用一次，但 Range 可以使用多次。请网络搜索“VBA帮助材料”来进一步学习吧！
请试用下面的代码：

1. Sub a0227_CharPos()
   
2.     Dim r As Range, i&
   
3.     Set r = Selection.Range
   
4.     Selection.MoveStart 4
   
5.     Selection.MoveStart 5, 2
   
6.     Selection.Characters.First.Select
   
7.     i = ActiveDocument.Range(Start:=0, End:=Selection.End).Characters.Count
   
8.    
   
9.     Selection.HomeKey 6
   
10.     r.Select
    
11.    
    
12.     With ActiveDocument.Characters(i).Font
    
13.         .Size = 22
    
14.         .Bold = True
    
15.         .ColorIndex = wdRed
    
16.         .Underline = wdUnderlineDouble
    
17.     End With
    
18.    
    
19.     MsgBox "ActiveDocument.Characters(" & i & ")", 0 + 48
    
20. End Sub

复制代码

batmanbbs

413191246se 发表于 2023-2-27 23:48
楼主，Selection 只能用一次，但 Range 可以使用多次。请网络搜索“VBA帮助材料”来进一步学习吧！
请试用 ...

谢谢，看到你关于英文双引号转中文的代码，了解到可以用

set r = selection.range
...
r.select

的方式恢复选区的办法，谢谢

413191246se

是呀！刚开始的时候，咱们新手可能觉得 Selection 方法（对象）很好用，但真正好用的是 Range 对象、方法、属性。楼主 朋友 你有没有 VBAWD10.CHM 这个免费的微软官方 VBA 帮助文档呢？我就是在录制宏的基础上反复学习这个文档来入门 VBA 的。——如果你还没有，我可以发给你，请留下邮箱。

batmanbbs

413191246se 发表于 2023-2-28 07:34
是呀！刚开始的时候，咱们新手可能觉得 Selection 方法（对象）很好用，但真正好用的是 Range 对象、方法、 ...

84299244@qq.com
感谢