这段VBA代码如何理解？如何用FOXTABLE写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这段VBA代码如何理解？如何用FOXTABLE写？

共有2166人关注过本帖树形打印复制链接主题：这段VBA代码如何理解？如何用FOXTABLE写？

wcs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1034 积分：7402 威望：0 精华：0 注册：2008/8/31 22:52:00

这段VBA代码如何理解？如何用FOXTABLE写？ 发帖心情

Post By：2019/11/28 23:20:00 [只看该作者]

在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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1034 积分：7402 威望：0 精华：0 注册：2008/8/31 22:52:00

Post By：2019/11/29 9:33:00 [只看该作者]

大家都不懂？

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/29 9:53:00 [只看该作者]

我也不懂vba，百度了一下，没找到Expand的说明

主题：这段VBA代码如何理解？如何用FOXTABLE写？