自己搞定了! Sub DeleteVWhite() Dim Sel As TextSelection = ActiveDocument.Selection Dim EP As EditPoint = Sel.TopPoint.CreateEditPoint Do While EP.Line < Sel.BottomPoint.Line EP.DeleteWhitespace(vsWhitespaceOptions.vsWhitespaceOptionsVertical) EP.LineDown() Loop End Sub
Dim Sel As TextSelection = ActiveDocument.Selection
Dim EP As EditPoint = Sel.TopPoint.CreateEditPoint
Do While EP.Line < Sel.BottomPoint.Line
EP.DeleteWhitespace(vsWhitespaceOptions.vsWhitespaceOptionsVertical)
EP.LineDown()
Loop
End Sub