Open file which contains specific words in title

Nick70 · #1 06-08-2016, 05:04 AM

Hi,

I have some code which opens a file called "Presentation.pptx" then copies its slides onto an active ppt file.

Code:

Sub main()
Dim objPresentation As Presentation
Dim i As Integer

'open the target presentation
Set objPresentation = Presentations.Open("C:\Presentation.pptx")
For i = 1 To objPresentation.Slides.Count
    objPresentation.Slides.Item(i).Copy
    Presentations.Item(1).Slides.Paste
Next i
objPresentation.Close
End Sub

Is it possible to amend code so that the file which is opened is the one which "contains" the word "Presentation" in its title as opposed to be called Presentation.pptx?
For example file could be called PresentationB.pptx and still be opened.

Reason for this is that file name changes every week (but always contains word Presentation) so if we put in macro a fixed file name the macro may not be able to find it.

Thanks,
Nic

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Formatting all tables in doc with specific word in title	jeffreybrown	Word VBA	2	05-01-2016 06:05 PM
Export calendar events from multiple calendars with specific title	rasmus	Outlook	0	02-06-2015 01:58 AM
Title bar in word and ecxel 2010 is not picking up greek file name of 2007 file	danielle	Word	4	12-03-2014 07:47 AM
Formula to open external file with specific program (like open with)	pemartins	Excel	16	02-24-2014 11:39 PM
Creating Text to count words WITHOUT title page	ingmar.s	Word	3	10-08-2009 10:23 AM