RichTextBox2.Text写入到word文档 - 编程论坛

#2

smy7272013-04-29 13:48

word导入RichTextBox控件有怎么做？

#3

不说也罢2013-05-01 09:59

如果没有什么特别要求，直接RichTextBox2.SaveFile（路径）存为WORD文档即可。
楼主为啥不先摆渡？

#4

smy7272013-05-02 12:48

导入WORD文件时出现错误：“此值违反了此列的 MaxLength 限制”这是为什么？
是ACCESS数据库“备注”字段

#5

不说也罢2013-05-02 19:55

以下是引用smy727在2013-5-2 12:48:38的发言：

导入WORD文件时出现错误：“此值违反了此列的 MaxLength 限制”这是为什么？
是ACCESS数据库“备注”字段

与顶楼贴子结合，还没明白你的意思
如果你是想将WORD文档内容，存入ACCESS数据库里，应当使用二进制文件读写的方法存入数据库。

#6

smy7272013-05-02 21:21

我是这样复制过来的

程序代码：

Private Sub Button19_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Dim StringCopyFromWord As String = ""
            Dim wd As New Microsoft.Office.Interop.Word.Application
            wd.Documents.Open(OpenFileDialog1.FileName)
            wd.Selection.WholeStory()
            wd.Selection.Copy()

            RichTextBox2.Paste()
            StringCopyFromWord = RichTextBox2.Text
            wd.Quit()
        End If
        OpenFileDialog1.FileName = ""
    End Sub

字符少一些都没问题可是大了就出错
我不要WORD文件的模式，就要里面的内容存到数据库里

#7

smy7272013-05-02 21:22

谢谢你的热情，一直是你在回复

#8

不说也罢2013-05-03 12:21

不客气，互相学习。
你说的字符少些没事，多少就不行，有多大的文件？？
试着用下面的代码看看：

程序代码：

  '预先添加 Microsoft.Office.Interop.Word.Application 的引用哦
       If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Dim StringCopyFromWord As New Microsoft.Office.Interop.Word.Application
            StringCopyFromWord.Documents.Open(OpenFileDialog1.FileName)
            StringCopyFromWord.Selection.WholeStory()
            StringCopyFromWord.Selection.Copy()
            RichTextBox1.Text = Clipboard.GetText(System.Windows.Forms.TextDataFormat.Text) '去除原WORD格式，纯文本，就用这一句
            'RichTextBox1.Paste()'保存原WORD格式
            StringCopyFromWord.Quit()
        End If

#9

smy7272013-05-03 21:31

我明白为什么了，是字段的最大长度默认为255了,改完后就不出现错误了,谢谢!