#1
|
|||
|
|||
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 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 |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
Great thanks!
Nic |
Thread Tools | |
Display Modes | |
|
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 |