ACCESS2007 使用 OLE 字段的内容更新备注字段，并将文本嵌入为 word.document VBA

Question

大家早上好。我正在解决这个问题，但没有解决方案。我正在寻找 VBA 代码，用于将作为 word.document 嵌入的 OLE 对象 (pre_testo) [表 DB_PREV] 的内容复制到备注字段 (pre_report) [同一表]。目前我尝试了几个代码但没有成功。预先感谢您的任何建议。

Answer 1

最后这段代码运行良好，但内容格式松散。我正在解决这个问题，我将分享结果。任何建议将不胜感激。

Dim oleObj As Object 
Dim memoContent As String 
Set oleObj = Me.pre_testo 'embedded as Word.Document
oleObj.Activate
memoContent = oleObj.Object.Application.ActiveDocument.Content.Text
Me.pre_report.Value = memoContent 'pre_report field as memo RTF
Forms![PREWIN].Requery
DoCmd.OpenReport "PREVENTIVI", acViewPreview, , "ID =" & Me!ID