需要对象错误 - 使用 VBA 从 Word 填充 PPT

Question

Sub SendToPPT()

Dim ppt As Object
Set ppt = CreateObject("Powerpoint.Application")

ppt.Presentations.Open ActivePresentation.Path & "\" & "Allegation.pptx"

For i = 6 To 24
ppt.Slides(i).Shapes(1).TextFrame.TextRange = ActiveDocument.Paragraphs(i).Range.Text
Next i

ppt.Save
ppt.Close
Set ppt = Nothing

End Sub

我收到了

Run time Error 424: Object Required.

我不知道哪里出了问题。文件路径是正确的，我已经核对过了

Answer 1

ppt 是 "Powerpoint.Application" 但 ppt.Slides(i) 需要演示文稿而不是 powerpoint 应用程序。

Dim Pres As Object
Set Pres = ppt.Presentations.Open(ActivePresentation.Path & "\" & "Allegation.pptx")

Dim i As Long
For i = 6 To 24
    Pres.Slides(i).Shapes(1).TextFrame.TextRange = ActiveDocument.Paragraphs(i).Range.Text
Next i

Pres.Save
Pres.Close
Set Pres = Nothing
Set ppt = Nothing

需要对象错误 - 使用 VBA 从 Word 填充 PPT

Object Required Error - Populate PPT from Word using VBA

vba

ms-word

powerpoint