在PowerPoint VBA中，对声明为Document的xDoc的引用会生成“未定义的用户定义类型”

Question

I want in PowerPoint:单击命令按钮后，将带有附件(相同的PowerPoint演示文稿)的电子邮件发送到特定的电子邮件地址。

我是基于互联网使用的，但我觉得xDoc可能是个问题？

当我点击按钮时，它显示“用户定义的类型未定义”，然后Private Sub CommandButton1_Click()显示为黄色。

Private Sub CommandButton1_Click()
    Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Lorem ipsum"
        .Body = "Lorem ipsum"
        .To = "xyz@xyz.xyz"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True
End Sub

Answer 1

Dim xDoc As Document

这是一个Word VBA声明。尝试：

Dim xPres As Presentation

然后更改代码中的所有xDoc引用。即：

Set xPres = ActivePresentation