
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