用VBA在Access中实现RTF嵌入OLE到HTML的转换

Sub ConvertRTFtoHTML()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objRange As Object
    Dim strRTF As String
    Dim strHTML As String
    
    ' 获取RTF文本
    strRTF = Forms![YourFormName]![YourRTFControlName].Value
    
    ' 创建Word对象
    Set objWord = CreateObject("Word.Application")
    
    ' 创建新的Word文档
    Set objDoc = objWord.Documents.Add
    
    ' 将RTF文本插入到Word文档中
    Set objRange = objDoc.Range
    objRange.Text = strRTF
    
    ' 将Word文档保存为HTML文件
    strHTML = "C:\Path\To\Save\HTML\File.html"
    objDoc.SaveAs strHTML, 10 ' 10表示保存为HTML格式
    
    ' 关闭Word文档和应用程序
    objDoc.Close
    objWord.Quit
    
    ' 释放对象
    Set objRange = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
    
    ' 在Access中显示转换后的HTML文件
    Application.FollowHyperlink strHTML
End Sub