合並目標文件夾中的powerpoint

Question

我以前從未在這里發過貼，所以我想我會試一試。 我有一個已經使用了一年多的宏，但在本周初它開始給我帶來一些問題。 它要么只是拉入每個幻燈片的第一張幻燈片，要么會給我一個運行時錯誤“幻燈片（未知成員）：無效請求。剪貼板為空或包含可能無法粘貼到此處的數據。”

如果我只是使用 F8 單步執行該宏，則該宏可以正常工作，唯一出現問題的情況是我嘗試運行它。 這可能是非常明顯的事情，因為我對 VBA 還很陌生。 謝謝您的幫助！

Public Sub DoFiles()
Dim strFileName As String
Dim strFolderName As String
Dim objPresentation As Presentation
'set default directory here if needed
strFolderName = "Target Folder"
strFileName = Dir(strFolderName & "\*.ppt*")
Do While Len(strFileName) > 0
   Set objPresentation = Presentations.Open(strFolderName & "\" & 
strFileName)
On Error Resume Next

Dim i As Integer

For i = 1 To objPresentation.Slides.Count
objPresentation.Slides.Item(i).Copy
Presentations.Item(1).Slides.Paste
Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Design 
= _
    objPresentation.Slides.Item(i).Design
Next i
objPresentation.Close


    strFileName = Dir
Loop
End Sub

Answer 1

史蒂夫的建議有效嗎？

Public Sub DoFiles()
    Dim strFileName As String
    Dim strFolderName As String
    strFolderName = "Target Folder"
    strFileName = Dir(strFolderName & "\*.ppt*")
    Do While Len(strFileName) > 0
        ActivePresentation.Slides.InsertFromFile strFolderName & "\" & strFileName, ActivePresentation.Slides.Count
        strFileName = Dir
    Loop
End Sub