Access - Cambiar nombre word en Access

Hola a todos:

Tengo problemas a la hora de cambiar el nombre de un word desde el Access. Sé crear el documento y todo lo que introduzco me sale correctamente, pero no se como puedo cambiar el nombre del documento y que no me lo guarde con el nombre "documento1".

Gracias por todo,

Esther

si me proporcionas un poquito del codigo la parte donde guardas mirare que puedo hacer.
Y creo que con Rename podrias renombrar el archivo

Hola!!!
Gracias por intentar ayudarme. Te envio el encabezado de la función donde creo el word, tambíen el final de la función donde se me salva el documento, pero no quiero que lo salve, ya que depende del dia lo tengo que guardar en un sitio o en otro. Espero que te ayude.

private sub crearDocumento()
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set oDoc = oApp.Documents.Add
.....
oApp.ActiveDocument.SaveAs Filename:="nombre.doc"
end sub

Encontré la función 'ActiveDocument.SaveAs Filename', pero me lo guarda en mis documentos, como dije antes necesito guardarlo manualmente y no automaticamente.

Gracias por todo,

Esther

ya lo tenemos

private sub crearDocumento()
dim titulo
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set oDoc = oApp.Documents.Add
.....
titulo = InputBox("Porfavor introduce el titulo del archivo word", "Nombre de tu programa")
oApp.ActiveDocument.SaveAs Filename: = titulo
end sub

ya me diras si va bien asi

Felix

ya lo tenemos

private sub crearDocumento()
dim titulo
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set oDoc = oApp.Documents.Add
.....
titulo = InputBox("Porfavor introduce el titulo del archivo word", "Nombre de tu programa")
if titulo ="" then
msgbox "Proceso de guardado cancelado por el usuario", , "Nombre de tu programa"
end
else
oApp.ActiveDocument.SaveAs Filename: = titulo
msgbox "Proceso de guardado efectuado", , "Nombre de tu programa"
end if
end sub

ya me diras si es mejor asi

Felix

Hola Felix:

En principio lo he provado y la verdad es que es mejor asi, a ver si le gusta a mi supervisor y si esta encantado con esta manera ya no molestaré más sobre este tema, sino ya me tendras otra vez aqui.

Gracias por todo,

Esther :p