Excel VBA-将RTF数据从嵌入式Word文档保存到数据库，反之亦然

问题描述

我正在使用包含嵌入式Word文档的Excel工作簿。用户正在访问Word文档并通过格式化等方式更改其内容。

我想将嵌入的单词对象的内容作为rtf格式的文本保存到数据库中。

我当前的代码如下（代码段是一个子例程，该例程打开一堆工作簿，尝试复制WordDoc的内容并将其保存到数据库；假定正在使用ADODB打开数据库）

Dim Oo As OLEObject
Dim wDoc As Object

Workbooks(Dir(var(i))).Sheets("XYZ").Activate
For Each Oo In Workbooks(Dir(var(i))).Sheets("XYZ").OLEObjects
   If InStr(1,Oo.progID,"Word.Document",vbTextCompare) > 0 Then
      Oo.Verb xlVerbPrimary
      Set wDoc = Oo.Object
      wDoc.Content.copy
      Exit For
   End If
Next Oo

With DBRecordset
   .AddNew
   .Fields("Test1").Value = "Test1"
   .Fields("Test2").Value = "Test2"
   .Fields("Test3").Value = wDoc.Content
   .Update
End With

在将嵌入式Word文件的内容发送到数据库的情况下有效，但是没有任何格式。我该如何保存？

也：试图将格式化的数据从数据库传递回Excel会遇到适当的数据类型的问题，该数据类型用于存储rtf数据以在VBA代码中进一步使用。我应将哪种数据类型用于RTF格式的文本/字符串？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

database excel excel rtf