Visual Basic - Guardar un Documento .DOC

mi duda es como gurdar un documento que abri para hacerle cambios este es el codigo :

Set AppWord = CreateObject("word.application")
NombreContrato = App.Path & "\datos\contratos\" & NombreContrato & ".doc"
Set Word = CreateObject("Word.Basic")
With Word
If Tc = "DETERMINADO" Then
.Filenew App.Path & "\" & "determinado.Doc"
Else
If Tc = "INDETERMINADO" Then
.Filenew App.Path & "\" & "indeterminado.Doc"
Else
ErrorC = True
End If
End If
If ErrorC = False Then
.StartOfDocument

.EditFind "XEMPRESA"
.DeleteWord
.Insert Empresa & " "

.StartOfDocument
´--------------
´AQUI ES DONDE QUIERO QUE LO GUARDE
´CON LA VAR NombreContrato ANTES DE QUE LO MUESTRE
´--------------

.AppShow
Else
Valida_error ("103")
End If
.AppShow

End With
End Sub

OJALA Y ME PUEDAN AYUDAR DE ANTEMANO GRACIAS.