Saving to Sub Folder

gmayor · #2 10-13-2017, 08:34 PM

Presumably PDF is a pre-existing sub folder of the original folder in which case

Code:

    While Len(strFilename) <> 0
        Set oDoc = Documents.Open(strPath & strFilename)
        strDocName = ActiveDocument.Name 'Use Name not fullname
        intPos = InStrRev(strDocName, ".")
        strDocName = Left(strDocName, intPos - 1)
        'This instruction converts to PDF
        strDocName = strDocName & ".pdf"
        oDoc.SaveAs FileName:=strPath & "PDF\" & strDocName, _
                    FileFormat:=wdFormatPDF 'add the path
        oDoc.Close SaveChanges:=wdDoNotSaveChanges
        strFilename = Dir$()
    Wend

If you want to create the folder then see the Createfolders function at https://www.gmayor.com/useful_vba_functions.htm where you will also find code to ensure the filenames are unique to avoid overwriting duplicated names.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook 2010: Saving attachments opens up wrong windows folder to save in	jeroen	Outlook	0	09-29-2015 01:51 AM
Saving sent mails to specific folder	kammil121	Outlook	0	10-22-2014 02:26 AM
Saving Emails to New Folder along with Attachments	thundercats9595	Outlook	2	02-01-2014 12:32 PM
Merging and saving to folder - assistance	EvilEdna	Mail Merge	1	03-26-2012 08:45 PM
Select Folder for saving in to	andywal6	Word	0	06-18-2010 01:30 AM