Foxtable(狐表)用户栏目专家坐堂 → [求助]如何去除WORD文档中不显示的段落


  共有2248人关注过本帖树形打印复制链接

主题:[求助]如何去除WORD文档中不显示的段落

帅哥哟,离线,有人找我吗?
明天的灵
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:362 积分:4236 威望:0 精华:0 注册:2017/2/7 7:41:00
[求助]如何去除WORD文档中不显示的段落  发帖心情 Post By:2020/9/24 9:40:00 [只看该作者]

从WORD文档按段读取了内容,现想去除原文档中不显示内容的段,如整行都是空格(中文或英文空格),回车等。
Dim app As New MSWord.Application    
Dim doc = app.Documents.Open("d:\test.doc")
For i as integer = 1 to  doc.Paragraphs.count
        msgbox(doc.Paragraphs(i).Range.text)
Next


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/24 10:25:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
明天的灵
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:362 积分:4236 威望:0 精华:0 注册:2017/2/7 7:41:00
  发帖心情 Post By:2020/9/24 12:08:00 [只看该作者]

我用例子中关键语句 Len(Trim(k.Range.text)) = 1   加入到上面,还是发现有部分空显示段落没有去除
 

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/24 13:32:00 [只看该作者]

说明不是空格,而是其它字符,比如回车,或者word的控制符

 回到顶部
帅哥哟,离线,有人找我吗?
明天的灵
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:362 积分:4236 威望:0 精华:0 注册:2017/2/7 7:41:00
  发帖心情 Post By:2020/9/24 16:01:00 [只看该作者]

是的,应该是WORD控制符,用了下面语句,输出也是空的

Dim str As String = Trim(k.Range.text)
For Each s As String In str
    output.show(s & " " & Asc(s))
Next


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/24 16:23:00 [只看该作者]

Dim str As String = Trim(k.Range.text)
msgbox(str.length)

 回到顶部
帅哥哟,离线,有人找我吗?
明天的灵
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:362 积分:4236 威望:0 精华:0 注册:2017/2/7 7:41:00
  发帖心情 Post By:2020/9/24 17:28:00 [只看该作者]

发现特殊行msgbox(str.length)没有输出,应该是空值,在写入语句 加 if  Trim(k.Range.text) > ""  then .... endif 解决了。
谢谢蓝版主指导

 回到顶部