CODEWITHSUNDEEP
vbams-word
user1810449
user1810449

Reputation: 173

vba saving word file to created folder

I have written the code below, currently it creates a folder. However I would like to save the same word doc to that folder. Any pointers on where I am going wrong??

Thanks 

Sub newfold()
    Dim strNewFolderName As String
    strNewFolderName = "New Folder " & (Month(Now())) & " " & Year(Now)
    If Len(Dir("c:\Users\Jabaar\Documents\" & strNewFolderName, vbDirectory)) = 0 Then
        MkDir ("c:\Users\Jabaar\Documents\" & strNewFolderName)
    End If 
    Dim PathName As String
    PathName = ("New Folder " & MonthName(Month(Now())) & " " & Year(Now))
    ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & "(strNewFolderName)" + ".doc"
End Sub

Upvotes: 3

Views: 26041

Answers (2)

user1810449
user1810449

Reputation: 173

This is what have done and it seems work. 

ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & "test" + ".doc

The solution @simoco provided is what I was looking for, so thanks for confirming the formatting of it @simoco

Upvotes: 0

Dmitry Pavliv
Dmitry Pavliv

Reputation: 35863

Just replace

ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & "(strNewFolderName)" + ".doc"

with

ActiveDocument.SaveAs FileName:="c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & Split(ActiveDocument.Name, ".")(0) & ".doc", _
    FileFormat:=wdFormatDocument

where Split(ActiveDocument.Name, ".")(0) takes current name of file without extension. You could replace it with desired name:

ActiveDocument.SaveAs FileName:="c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & "newFile.doc", _
    FileFormat:=wdFormatDocument

Upvotes: 3

Related Questions