主题：[求助]清除文本空行、断行

'''
Dim app As New MSWord.Application
try
    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "Word文件|*.doc" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        'MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
       
        Dim doc = app.Documents.Open(dlg.FileName)
        Dim count = Doc.Characters.Count
        Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
       
        Dim str As String = rng.text

        str  = str.replace("。" & chr(13), "。" & chr(11))
        str  = str.replace(chr(13), "")
        str = str.Replace(chr(11), vbcrlf)
        e.Form.Controls("TextBox1").text = str      '读取word后,换行符chr(10)丢失
       
        app.Quit
    End If
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try