Vba 如何将Word（have等式）转换为PowerPoint？

我有一个Word文件，这个文件有很多句子和等式。我想将此文件转换为PowerPoint。 我将标题1和标题2用于句子，我成功地将其转换为PowerPoint，但等式无法转换。 任何人都可以帮我解决这个问题。 我期待着收到你的来信。对不起，如果我的英语不好

Sub heading1()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
    .Text = "Project"
    While .Execute
oRng.Style = Word.WdBuiltinStyle.wdStyleHeading1
Wend
End With
oRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
End Sub

Sub heading2()
Dim para As Paragraph
    Dim nextPara As Paragraph

    For Each para In ActiveDocument.Paragraphs
        If para.Style <> "Heading 1" Then
        para.Style = Word.WdBuiltinStyle.wdStyleHeading2            
        End If
    Next
End Sub

子标题1（）
暗淡的颜色如单词范围
Set oRng=ActiveDocument.Range
和奥恩一起找
.Text=“项目”
执行
oRng.Style=Word.WdBuiltinStyle.wdStyleHeading1
温德
以
oRng.collapseDirection.wdCollapseEnd折叠单词
端接头
分目2（）
将段落改为段落
将下一页作为段落
对于ActiveDocument中的每个段落。段落
如果段落样式为“标题1”，则
para.Style=Word.WdBuiltinStyle.wdStyleHeading2
如果结束
下一个
端接头

Word文档中的对象（如图片、形状、公式）无法通过本文所述的方法转换为PowerPoint。该过程是纯文本传输

你引用的那篇文章甚至在概述过程的最后指出了这一点

您必须手动复制这些其他对象，例如方程