TRYING to use SaveAs2 to save a word doc that never has been saved before. I use FileName:= "F:\FolderOfWordDocs\FolderOfDocs\DocFileName.docm" seems should save and name the file. EVEN if that is not the default directory.

Question

TRYING to use SaveAs2 to save a word doc that never has been saved before. I use FileName:= "F:\FolderOfWordDocs\FolderOfDocs\DocFileName.docm" seems should save and name the file. EVEN if that is not the default directory.

mark jackson 1

I use CreateObject to start Word 2016. Then open one of several templates. All works to this point.

Then try to save the new word document using SaveAs2 I get a RunTime error 5152 bad file name.

I based on all the documentation I can find I could just use FileName:= "Doc1.docm" if I was in the default directory but I am not.

All the documentation seems to imply I could use like this. FileName:= "F:\externalHardDrive\FolderOfWordDocs\Doc1.docm"

I have been unable to tell if that is too long or not permitted to include the hard drive letter.

or I must change the default directory or move to that directory. NOT all of the word docs are to go to the "F" drive or would be simple to change the save directory in word's backstage.

Dim strSaveCompletePath As String   ' THIS TO HOLD BOTH FILENAME AND PATH TO STORE IT.  

  
  Dim WRD As Object  

    
  Set WRD = CreateObject("Word.Application")  
  Dim doc As Document  

    
    WRD.Visible = True  

  
WRD.Documents.Open "F:\SeaGateBlue\Stories\MyStories\WrdWriteTemplate.dotm"  

  

  
myCloseDoc = InputBox("1 TO QUIT WORD " & vbCrLf & "2 TO SAVE THE ACTIVE DOC" & vbCrLf & "3 TO SAVE AND QUIT WORD", "PICK ONE")  

  
Select Case myCloseDoc  

      
    Case 1  
            MsgBox "QUIT WORD"  

              
            WRD.Quit  
    Case 2  
            MsgBox "SAVE ACTIVE DOC"  

              
            Dim varName As Variant  

              
            varName = InputBox("ENTER THE NAME TO SAVE AS", "NAME THE STORY", "AAAstory")  
            varName = varName & ".docm"  

              
            Debug.Print "CASE 2   varName is name to save as = " & varName  

              

                          
                        varName = Me.cboStoryStorePath & varName  

                          

                  
            varName = Replace(varName, Chr(34), "", 5, 1, vbTextCompare)   ' SEEMS MUST HAVE TO GET RID OF THE  DBL QUOTES AT END OFF THE PATH TO SAVE.  

   

              
            ActiveDocument.SaveAs2 FileName:=varName, AddToRecentFiles:=True  

              

               

              
    Case 3  
            MsgBox "SAVE AND QUIT WORD"  
    Case Else  
            MsgBox "SOMETHING WRONG.   SHOULD NOT GET HERE"  

      
End Select  

  

  
Set WRD = Nothing

1 answer

Your answer

Answer 1

There are multiple flaws in your code. For starters, given that you're using atemplate, you should be using Documents.Add, not Documents.Open. Furthermore, you need to specify both the file type (should be docx) and file format. The path also needs to include the final '\' separator, if not already present. Thus:
Dim Wrd As Object, Doc As Document, varName As String
Set Wrd = CreateObject("Word.Application")
With Wrd
.Visible = True
Set Doc = .Documents.Add("F:\SeaGateBlue\Stories\MyStories\WrdWriteTemplate.dotm")
'Presumably some editing happens here, referencing 'Doc', not 'ActiveDocument', then:
Select Case InputBox("1 TO QUIT WORD " & vbCrLf & "2 TO SAVE THE ACTIVE DOC" & vbCrLf & "3 TO SAVE AND QUIT WORD", "PICK ONE")
Case 1
MsgBox "QUIT WORD"
Doc.Close False
.Quit
Case 2
MsgBox "SAVE ACTIVE DOC"
varName = Me.cboStoryStorePath & InputBox("ENTER THE NAME TO SAVE AS", "NAME THE STORY", "AAAstory") & ".docx"
Doc.SaveAs2 FileName:=varName, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=True
Case 3
MsgBox "SAVE AND QUIT WORD"
If InStr(Doc.FullName, Me.cboStoryStorePath) = 0 Then
varName = Me.cboStoryStorePath & "\" & InputBox("ENTER THE NAME TO SAVE AS", "NAME THE STORY", "AAAstory") & ".docx"
Doc.SaveAs2 FileName:=varName, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=True
ElseIf .Saved = False Then
.Save
End If
.Quit
Case Else
MsgBox "SOMETHING WRONG. SHOULD NOT GET HERE"
End Select
End With
Set Doc = Nothing: Set Wrd = Nothing

mark jackson 1 Reputation point

2022-06-12T06:25:58.203+00:00

PaulEdstein-6097,
Thanks for a response so soon.

This has some strange requirements, in my limited experience.

user at run time has to select one of several word templates. while in Access.

I had problems getting Documents.Add to accept the string of from the cbo selected template. But with Documents.Open I am able to pass the sting of the path to the selected template and open a word doc using that template.

YES the editing does occur where you expected. Rows of a table are are inserted into the word doc. Thosse rows are selected based on values in 10 fields of the table. Using InsertAfter mostly.

user needs to be able at run time come up with a FileName and pick a storage location (in a cbo having list of valid drives and folders). Using SAveAs2 is the only why I have been able to save the activeDocument with a user selected file name . That is working.

Have not been able to get something like this to save the file with a new name and save in the selected location. like in folder F:\Marks\Documents.

The Me.cboStoryStorePath is supposed to be where the file named in the inputbox is supposed to go.

YOU HAVE SHOWN ME A LOT OF INFO I WAS NOT AWARE OF. I WILL BE USING THIS INFO. AND HOPING THAT THE REASON FOR THE PROBLEMS WAS DUE TO THE INFO YOU SHARED WITH ME THAT I HAD NOT BEEN ABLET TO FIND OR USE.

THANKS AGAIN

Share via

TRYING to use SaveAs2 to save a word doc that never has been saved before. I use FileName:= "F:\FolderOfWordDocs\FolderOfDocs\DocFileName.docm" seems should save and name the file. EVEN if that is not the default directory.

1 answer

Your answer