Access - exportar informe con nombre diferente cada vez.

Buenas Gente,
Tengo un problemilla.
Intento exportar un informe a un fichero con formato word y me pasa dos cosas.
Tengo este codigo:

Function Exportar()
Dim i As Variant
i = 1
i = i + 1

DoCmd.OutputTo acReport, "Imp_Reserva", "RichTextFormat(*.rtf)", "C:\aeat\" & i, False, ""

End Function

Y primero no consigo que me guarde el fichero con el siguiente numero porque cuando entran a la base la variable se borra y vuelve a empezar con el nombre "2" y no el "3" como yo querría.
Y segundo no consigo darle el .doc para que se guarde en formato word.

Me podeis ayudar?

Creo que hay que darle de alguna forma un valor global o algo para que me coga el siguiente nombre..y lo guarde en memoria para la siguiente vez que intente exportarlo pero no se como hacerlo y por otra no se como enlazar mi variable i + el ".doc" para que me coja todo el nombre..como concateno?

Gracias.

Proba definiendo en un modulo a i asi

private sub definoi ()

global i as variant

i=1

end sub

y luego en el mudulo que contiene el procedimiento para exportar

Function Exportar()
i = i + 1
DoCmd.OutputTo acReport, "Imp_Reserva", "RichTextFormat(*.rtf)", "C:\aeat\" & i, False, ""
End Function

Creo que con esto solucionas el problema

Saludos

Rodolfo