应用错误收集

我有使用TextFrame的PowerPoint幻灯片。 TextFrame包含HTML代码。例如：

<html>
    <body>
        <table width=950 >
            <tr><td>
                <font size = 2>[TEXT]<br>
                <b>[TEXT]</b>      
                 [TEXT]<br>
                </font>
            </td></tr>
         </table>
    </body>
</html>

我需要将TextFrame中的文本转换为[TEXT]，并使用现有的html字体样式（字体大小= 2，粗体等）

我尝试了下面的代码，但它没有格式化HTML格式

Function HtmlToText(sHTML) As String
   Dim oDoc As HTMLDocument
   Set oDoc = New HTMLDocument
   oDoc.body.innerHTML = sHTML
   HtmlToText = oDoc.body.innerText
End Function

VBA使用字体格式化PPT将HTML代码解析为字符串

0 个答案: