Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 06-08-2016, 05:04 AM
Nick70 Nick70 is offline Open file which contains specific words in title Windows 10 Open file which contains specific words in title Office 2010 64bit
Novice
Open file which contains specific words in title
 
Join Date: Jun 2016
Location: London
Posts: 13
Nick70 is on a distinguished road
Default Open file which contains specific words in title

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


Reply With Quote
  #2  
Old 06-08-2016, 06:45 AM
JohnWilson JohnWilson is offline Open file which contains specific words in title Windows 7 64bit Open file which contains specific words in title Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

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
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
  #3  
Old 06-08-2016, 06:55 AM
Nick70 Nick70 is offline Open file which contains specific words in title Windows 10 Open file which contains specific words in title Office 2010 64bit
Novice
Open file which contains specific words in title
 
Join Date: Jun 2016
Location: London
Posts: 13
Nick70 is on a distinguished road
Smile

Great thanks!
Nic

Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Open file which contains specific words in title 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
Open file which contains specific words in title 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
Open file which contains specific words in title Formula to open external file with specific program (like open with) pemartins Excel 16 02-24-2014 11:39 PM
Open file which contains specific words in title Creating Text to count words WITHOUT title page ingmar.s Word 3 10-08-2009 10:23 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 12:00 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft