Buenas fabuazul!
Lo que puedes hacer es crear una especie de contador de manera que cada vez que modifiques el documento se incremente el mismo. Para ello puedes utilizar un txt para almacenar el estado del contador.
1) Creas el archivo de texto y escribes en este 0
2) En tu codigo escribes lo siguiente:
Código:
dim stread as streamreader
dim contador as integer
stread = new streamreader("Aqui_la_direccion_del_txt")
txt1.text = stread.readtoend
stread.close
if(txt1.text = 0)then
RtbPreprensaNuevo.SaveFile ("C:\docto\" & "nombre_archivo.rtf")
else
RtbPreprensaNuevo.SaveFile ("C:\docto\" & "nombre_archivo_" & txt1.Text & ".rtf")
end if
contador = cint(txt1.text) + 1
fileopen(1, "Aqui_la_direccion_del_txt", OPENMODE.OUTPUT)
printline(1, cstr(contador))
fileclose(1)
De esta manera abres el txt lees el numero lo asignas al doc, incrementas y lo guardas en el txt con el nuevo valor para la proxima vez que se modifique el doc.
No te olvides de definir IMPORTS SYSTEM.IO
No se si tendra algun error x q es tarde y lo he escrito rapio, asiq cualquier cosilla pregunta.
Un saludo!