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

JohnWilson · #2 06-08-2016, 06:45 AM

You are starting to get into more complex programming!

This will open the first file whose name starts with "Presentation" in a folder.

I wouldn't make the folder "C:\" and I would consider a different prefix than "Presentation"

Here's the basic of finding a matching file name using the File Scripting Object (fso).

Code:

Sub WildCard()

Dim fso As Object
Dim oFile As Object
Dim oFolder As Object
Dim FolderPath As String
Dim opres As Presentation
FolderPath = "C:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(FolderPath)
For Each oFile In oFolder.Files
If oFile.Name Like "Presentation*" Then
Presentations.Open oFile.Path
Exit For
End If
Next oFile
End Sub

Nick70 · #3 06-08-2016, 06:55 AM

Great 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