Question

在Word的VBA中怎么判断当前行是否是空行？

Answer 1

Selection.HomeKey unit:=wdLine, Extend:=wdMove
If Selection.EndOf(unit:=wdLine, Extend:=wdMove) = 0 Then MsgBox ("本行为空行.")

追问

▲如果空行的定义可以包含全角或半角空格的组合也算空行" ""　"。,那该如何修改。

▲我还有一个word vba问题请您帮忙
http://zhidao.baidu.com/question/539649933.html

在Word的VBA中根绝有无选择区做出不同反应 Ctrl+C或输入ang

追答

Selection.HomeKey unit:=wdLine, Extend:=wdMove
Selection.EndOf unit:=wdLine, Extend:=wdExtend
If Asc(Trim(Selection))>=11 And Asc(Trim(Selection))<=14 Then MsgBox ("本行为空行.")

其中ASC码11~14分别对应：软回车、分页符、硬回车、分栏符，共四种隐藏的格式符号。如果还有其他不可见格式符号，请自行添加。