如何用VBA判断当前段落为空段洛。

dzdoc

如何用VBA判断当前段落为空段洛。

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-7 16:26:38 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() '如果选定状态不是光标,则退出程序 If Selection.Type <> wdSelectionIP Then Exit Sub '光标所在段落的长度为1(CHR(13)),则为空白段落 If Len(Selection.Paragraphs(1).Range) = 1 Then MsgBox "这是一个空白段落!" End Sub '----------------------

dzdoc

谢谢。。。向守柔致敬

konggs

复制下来，研究！

这样下来，到年末，我看守版主的VBA贴子在我的电脑上不知有多少了！！！

哈哈！！高兴

[em05]

jurdy001

守柔 发表于 2005-6-7 16:25
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelH ...

请问老师  某段有自动编号 本代码也会认为其为空段  怎么排除  使得保留没有字符只有自动编号的空段