求助：想选中光标至段落结尾最后一个字符

maoecr1

如题，我想选中光标至段落结尾最后一个字符的文字，如下图（不包括段落结尾处的标点及段落符号），CTRL+SHIFT+向下箭头这种快捷方式会把标点及段落符号都选中....有没有什么代码可以实现呢？请教各位了。。。

413191246se

略。。。。。

daibao88

Sub SelectExpand()
    Dim i As Long
    i = Selection.Range.Start
    Selection.Expand Unit:=wdParagraph
    ActiveDocument.Range(i, Selection.Range.End - 2).Select
End Sub
简化代码，只是跳过了段落最后两个字符（标点符号和回车符），没有进行判断跳过两个字符后是否是汉字，根据需要自己修改吧！

413191246se

* 楼主，我提供 3 个小宏，也像楼上朋友一样，未检测段落标记前的字符是否是标点符号，请测试：

1. Sub testChina()
   
2.     ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Paragraphs(1).Range.End - 2).Select
   
3. End Sub
   
4. Sub testChina2()
   
5.     Selection.Extend vbCr
   
6.     Selection.MoveEnd 1, -2
   
7. End Sub
   
8. Sub testChina3()
   
9.     Selection.MoveEnd 4, 1
   
10.     Selection.MoveEnd 1, -2
    
11. End Sub

复制代码

maoecr1

多谢两位，已经有很大帮助了

maoecr1

daibao88 发表于 2019-7-3 16:38
Sub SelectExpand()
    Dim i As Long
    i = Selection.Range.Start

请问，这个word中的range对象跟excel中的一样么，range(i,j)，其中i表示行号,j表示列号？

maoecr1

daibao88 发表于 2019-7-3 16:38
Sub SelectExpand()
    Dim i As Long
    i = Selection.Range.Start

代码中“ Selection.Expand Unit:=wdParagraph”的这一句是啥意思啊

413191246se

Selection.Expand Unit:=wdParagraph 这句代码是 .Expand 方法 的应用，意思是，扩展到整个段落（可以理解为选定整个段落，Unit单位，wdParagraph段落）。
选定光标所在段落，可以简写为：Selection.Expand 4
因为 4 是 段落的值。

相见是缘8

几位老师！
如单选中文档内所有段落的字符，但不选中段落符怎么写？

weiyingde

段落符位于一段结尾，可用以下代码实现:
with selection
       .expand 4， 1 ,扩充到选段结尾
      .moveend  1， 2   ,从结尾向左移动一个字符，撇开回车符。
end with