tengo un archivo TXT en determinada posicion quiero insertar la siguiente leyenda
todo esto mediante VBA de Access
Dim uno As Integer, rutaarchivo As String
Dim Linea As String
Dim UltimaPalabra As String
'establezco la ruta del archivo
rutaarchivo = CurrentProject.path & "\miejemploI.txt"
uno = FreeFile
Open rutaarchivo For Append As #uno
UltimaPalabra = Mid(uno, 21, 4) & replace(1,"Edad","Aqui estoy")
Print #uno, UltimaPalabra
Close #uno
End Sub
en que estoy mal podrian ayudarme a corregir mi codigo gracias
saludos
