[求助]在vb中从word中导入数据的问题？

xqm2373521

我用下面一段代码从word中导入全部数据, 然后添加到textbox中，却无段落之分（整个为一段），我想导入后仍然有段落！

   Dim oWord As Object
    Set oWord = CreateObject("Word.Application")
    oWord.documents.Open (sName)
    With oWord.activedocument
        .Unprotect Password:="12345"
        text1 = .Range
        .Close False
  End With

[此贴子已经被守柔于2007-1-18 21:08:11编辑过]

守柔

QUOTE:

以下是引用xqm2373521在2007-1-18 19:17:29的发言：
没有回答，我自己顶一下！

在VB中设置TEXTBOX 的MultiLine 属性为True即可.

xqm2373521

谢谢守柔兄，不过此属性已是true！

守柔

QUOTE:

以下是引用xqm2373521在2007-1-18 20:03:31的发言：

谢谢守柔兄，不过此属性已是true！

我在VB6中通过.

xqm2373521

我再传我即将导入的word文件！请守柔兄帮忙看看。我的vb6sp6版，文本属性除了更改名称，与multiline属性外，未作更改！

守柔

QUOTE:

以下是引用xqm2373521在2007-1-18 20:30:00的发言：

我再传我即将导入的word文件！请守柔兄帮忙看看。我的vb6sp6版，文本属性除了更改名称，与multiline属性外，未作更改！

你上传的是Word文件,我在其中添加了一个用户窗体,你测试一下,效果.

JDVxHhD7.rar (13.89 KB, 下载次数: 8)

2007-1-18 20:41 上传

点击文件名下载附件
[求助]在vb中从word中导入数据的问题？

xqm2373521

再传我的整个工程，请守柔兄指导，问题出现在窗体右侧的textbox的双击事件中，请守柔兄测试！新手代码不好，请指教！

[此贴子已经被作者于2007-1-18 20:48:10编辑过]

xqm2373521

哈哈哈，俺的宽带时间要到了（穷，限时上网！），如守柔版主有空，能否替我删除我所有上传的文件！多谢！

xqm2373521

呵呵，最后通过剪贴板间接完成了任务，但是造成上述的问题原因尚需守柔版主及各位大虾赐教：

    Dim oWord As Object, myrange As Object
    Set oWord = CreateObject("Word.Application")
    oWord.Documents.Open (sName)
    With oWord.ActiveDocument
        .Unprotect Password:="12345"
        Set myrange = .Range(Start:=.paragraphs(35).Range.Start, End:= _

               .paragraphs(.paragraphs.Count).Range.End)
        myrange.Copy
        neirong = Clipboard.GetText
        Clipboard.Clear
err:
        .Close False
  End With
 
  oWord.quit
  Set oWord = Nothing