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.

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