【发布时间】:2021-05-21 03:37:39
【问题描述】:
我有一个 Word 文件,这个文件有很多句子和方程式。我想将此文件转换为 PowerPoint。 我将标题 1 和标题 2 应用于句子,并且我已成功转换为 PowerPoint,但方程式无法转换。 https://www.wikihow.com/Convert-Word-to-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
【问题讨论】:
标签: vba ms-word powerpoint