在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中运行是能达到效果的,现在求一样的效果。