以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段VBA代码如何理解？如何用FOXTABLE写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143593)
--  作者：wcs
--  发布时间：2019/11/28 23:20:00
--  这段VBA代码如何理解？如何用FOXTABLE写？
在WORD-VBA中有这样一段：
            With Selection 
            If .MoveStartUntil(vbCr, wdBackward) Then ‘这句不懂
                .MoveStartUntil vbCr, wdBackward
                .MoveEndUntil vbCr
            Else
                .Expand 4: .End = .End - 1 ’这句不懂是什么意思
            End If
            End With

上述代码的意思好像是选定整段，但是又有些不能理解。

我把它写成这样的：
    With _app.Selection  \'选择整段
        If .MoveStartUntil(vbCr,msword.WdConstants.wdBackward) Then
            .MoveStartUntil(vbCr,msword.WdConstants.wdBackward)
            .MoveEndUntil(vbCr)
        Else
            .Expand(Unit:=msword.WdUnits.wdParagraph)
        End If
    End With

结果是好像是不能正确选定整段。
原来的代码在VBA中运行是能达到效果的，现在求一样的效果。
--  作者：wcs
--  发布时间：2019/11/29 9:33:00
--  
大家都不懂？
--  作者：有点蓝
--  发布时间：2019/11/29 9:53:00
--  
我也不懂vba，百度了一下，没找到Expand的说明