Access - grabar documento word desde access

Estimados:
Tengo un problema en una aplicación access, desde un formulario genero documentos word a partir de unas plantillas, las grabo con otro nombre y todo me funciona bien pero desearia poder guardarlas con un rorrelativo que se genera cada vez que se realiza un documento, ese correlativo lo almaceno en un text en el formulario y me gustaria que el documento wor que genere a partir de la plantilla se almacenara luego con el nombre que se encontrace en el text, si pueden ayudarme se los agradecería un montón.

Javier Orellana Cortés.

aqui esta el codigo para word y excel, ojala a alguien le sirva fue de ayuda algunos codigos que recoji de esta paguina gracias
* tienen que declarar la aplicación de Word y Excel en visual basic en el menu herramientas referencias.

Public Sub TRASPASO37()
'inicia el word
Set objword = CreateObject("word.Application")
With objword
'hace visible la ventana de word
.Visible = True
'abre el documento de word que interactuará con access
.Documents.Open ("C:\SISTEMA ASIGNACION DE ID\plantillas\MI.doc")
'selecciona los marcadores del documento y los reemplaza con los valores de los campos del formulario
.ActiveDocument.Bookmarks("proyecto").Select
.Selection.Text = (CStr(Forms!CREAR!PROYECTO))
.ActiveDocument.Bookmarks("area").Select
.Selection.Text = (CStr(Forms!CREAR!AREA))
.ActiveDocument.Bookmarks("documento").Select
.Selection.Text = (CStr(Forms!CREAR!DOCUMENTO))
.ActiveDocument.Bookmarks("disciplina").Select
.Selection.Text = (CStr(Forms!CREAR!DISCIPLINA))
.ActiveDocument.Bookmarks("correlativo").Select
.Selection.Text = (CStr(Forms!CREAR!CORRELATIVO))
'guarda un nuevo documento con los datos generados
strDocumento = ("c:\SISTEMA ASIGNACION DE ID\DOCUMENTOS\" & Format(NOMBRE) & ".doc")
.ActiveDocument.SaveAs strDocumento
End With
Exit Sub
End Sub

Public Sub TRASPASA1()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim Workbooks As Object
Dim strDocumento As String

Set oExcel = CreateObject("Excel.Application")
With oExcel
.Visible = True
.Workbooks.Open ("C:\SISTEMA ASIGNACION DE ID\plantillas\PRUEBA.XLS")
Set oSheet = oExcel.Worksheets(1)
oSheet.Range("A2:B2").Font.Bold = True
oSheet.Range("b2").Value = excel
strDocumento = ("c:\SISTEMA ASIGNACION DE ID\DOCUMENTOS\" & Format(NOMBRE) & ".xls")
.ActiveWorkbook.SaveAs strDocumento
End With
End Sub