VBA选择光标所在的段落文字

leedun

选定鼠标所在段落的内容，但不要选中段落标记，只选文字，求大神赐代码，谢谢！
以下代码能选中当前段落，但是把段落标记也选中了！求修改！！
Sub SelectCurrentParagraph()  ' 选择光标所在段落的内容  
Selection.MoveUp unit:=wdParagraph  
Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
End

小花鹿

Selection.end=Selection.end-1

leedun

小花鹿 发表于 2017-7-11 10:42
Selection.end=Selection.end-1

已成功，还有别的方法吗？

小花鹿

leedun 发表于 2017-7-11 10:44
已成功，还有别的方法吗？

Sub test()
With Selection
    .Expand 4
    .MoveEnd , -1
End With
End Sub

leedun

小花鹿 发表于 2017-7-11 10:56
Sub test()
With Selection
    .Expand 4

还是第一个好理解

dafanshu1

小花鹿 发表于 2017-7-11 10:56
Sub test()
With Selection
    .Expand 4

花鹿兄，发现有一种情况不能达到效果，就是当表格单元格有两个或以上段落时，光标放在该单元格的最后一段，运行宏，结果为选中整个单元格的内容，不知为什么。

duquancai

dafanshu1 发表于 2017-7-11 22:51
花鹿兄，发现有一种情况不能达到效果，就是当表格单元格有两个或以上段落时，光标放在该单元格的最后一段 ...

Sub test()
    With Selection
        .MoveStartUntil vbCr, wdBackward
        .MoveEndUntil vbCr
    End With
End Sub

dafanshu1

duquancai 发表于 2017-7-11 22:57
Sub test()
    With Selection
        .MoveStartUntil vbCr, wdBackward

哈哈，杜兄很善于用MoveStartUntil、MoveEndUntil类方法，的确好用。
但发现当光标所在段落前没有 vbCr 时就没能延展至段落开头了，如文档的第一段，或文本框的第一段，估计需要再加多个条件判断了。

duquancai

dafanshu1 发表于 2017-7-12 10:12
哈哈，杜兄很善于用MoveStartUntil、MoveEndUntil类方法，的确好用。
但发现当光标所在段落前没有 vbCr  ...

Sub test()
    With Selection
        If .Information(wdWithInTable) Then
            .MoveStartUntil vbCr, wdBackward
            .MoveEndUntil vbCr
        Else
            .Expand 4: .End = .End - 1
        End If
    End With
End Sub

dafanshu1

duquancai 发表于 2017-7-12 11:43
Sub test()
    With Selection
        If .Information(wdWithInTable) Then

还差一点点就完美了，就是文档一开始就是表格，要选中表格第1个单元格的第1段。