When you link to slides, any changes you make to the original Power Point file will be reflected on the slides in your Word document.Whether you decide to embed or link to Power Point slides in Word, the method of achieving the goal is virtually the same.Only exception, you don't have to change the path because this one uses the folder where the files you want to combine reside. PPTX" or whatever if necessary: Enumerate Files Active Presentation. PPT", v Array With Active Presentation For x = 1 To UBound(v Array) If Len(v Array(x)) 0 Then . run the macro and nothing gets combined in the mother ship file :( Could I just record a video and share the youtube link with you to assess?There are two Sub Insert All Slides() ' Insert all slides from all presentations in the same folder as this one ' INTO this one; do not attempt to insert THIS file into itself, though. Are you opening and saving a new macro enabled presentation in the folder where all the files are?
This article will explain the importance of outlining and how to use the Power Point .
Power Point presentations are much like college essays.
They present cited, relevant information that is meant to educate and inform. Do you remember what your teachers used to advise you to do when they assigned an essay writing assignment?
TXT" ' backslash terminated path to filder containing list file: s List File Path = "c:\support\batchinsert\" ' Do we have a file open already? PPT") While Not s Buf = "" Print #i List File Num, s Buf s Buf = Dir$ Wend Close #i List File Num End If i List File Num = Free File() Open s List File Path & s List File Name For Input As i List File Num ' Process the list While Not EOF(i List File Num) ' Get a line from the list file Line Input #i List File Num, s Buf ' Verify that the file named on the line exists If Dir$(s Buf) "" Then Call Active Presentation.
I have seen a post like this before but could not add more comments and could not implement the solution.
Sub Combine_from Folder() Dim str FPath As String Dim str Spec As String Dim str File Name As String Dim o Target As Presentation Set o Target = Application. Add(With Window:=True) str FPath = "C:\Users\John\Desktop\Test\" ' Edit this str Spec = "*. PP*" str File Name = Dir$(str FPath & str Spec) While str File Name One possible hitch: if the file containing the code or the file you're inserting slides INTO is in the same folder as the files you want to insert slides FROM, you'll run into trouble.