老师好！
请教文本整理的问题：
具体如下：
读取word后，查找段落的最后一个字符（不包括段落标记）不是 。：……？） 的，
则选中该字符及紧接该字符后面的所有回车符（段落标记）。
并将其后面的所在段落标记删除。
如图，清除空行和断行后，应该只有两段：
此主题相关图片如下：image 1.png
请老师帮助完善清除断行、空行的代码：
Dim app As New MSWord.Application
try
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Word文件|*.doc" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim doc = app.Documents.Open(dlg.FileName)
Dim count = Doc.Characters.Count
Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
'msgbox(rng.Text)
Dim str As String = rng.text
'Dim ary() = str.replace(chr(10), "").split(new Char() {chr(13),chr(11)}) '清除段落空行--此代码无效
'msgbox(str)
e.Form.Controls("TextBox1").text = str.replace(chr(13),vbcrlf) '读取word后,换行符chr(10)丢失
......
app.Quit
End If
catch ex As exception
msgbox(ex.message)
app.Quit
End try
加好友 
发短信
Post By：2018/12/17 22:18:00 [显示全部帖子]
