consulta consecutivo

William Garcia escribió:

tux muchas gracias por tu colaboracion, sera posible que no me cree un nuevo
documento por ejemplo te envio lo que me creo, el archivo original se llama
manuel hernandez, si miras tengo cuatro cuentas de cobro de el, tengo varios
archivos por cada proveedor.

entonces el problema es que si en x archivo voy en la cuenta de cobro 4 y en
el anterior iba en 3 me vuelve a colocar 4,


tengo varios archivos con su cuenta de cobro

que pena tux con mi problemita

Hola William :-)

Ufhhh! pues tendrias que crear una carpeta para cada proveedor y crear
un archivo.Txt con diferentes nombres para cada uno puesto que sino se
te cruzaran los numeros correlativos, no es que se cruzen sino que te
cogera siempre el ultimo número. (esto en el caso de que cada proveedor
tuviera que tener los mismos numeros correlativos )

Creo que es esto lo que he entendido si no es asi me rectificas :-S

¿Cuando lo pruebas en uno solo te ocurre?¿ejecutando la segunda macro se
te crean las copias en un nuevo documento que te da opcion a guardar con
el nombre que desees? Bueno me comentas estas dudillas ok?

Puedes leer el articulo de nuevo (que esta recien subido a la web, de
hace unos instantes) por si acaso se me ha escapado algo :-)

http://www.fermu.com/content/view/506/2/lang,es/


Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

bueno lo de varios archivos pues le coloco el nombre de cada archivo y no
tengo con el numerador, pero me falta es que me copie la pagina actual y me
la pegue en la siguiente pagina.


"Tux" escribió en el mensaje
news:

William Garcia escribió:

tux muchas gracias por tu colaboracion, sera posible que no me cree un
nuevo documento por ejemplo te envio lo que me creo, el archivo original
se llama manuel hernandez, si miras tengo cuatro cuentas de cobro de el,
tengo varios archivos por cada proveedor.

entonces el problema es que si en x archivo voy en la cuenta de cobro 4 y
en el anterior iba en 3 me vuelve a colocar 4,


tengo varios archivos con su cuenta de cobro

que pena tux con mi problemita

Hola William :-)

Ufhhh! pues tendrias que crear una carpeta para cada proveedor y crear un
archivo.Txt con diferentes nombres para cada uno puesto que sino se te
cruzaran los numeros correlativos, no es que se cruzen sino que te cogera
siempre el ultimo número. (esto en el caso de que cada proveedor tuviera
que tener los mismos numeros correlativos )

Creo que es esto lo que he entendido si no es asi me rectificas :-S

¿Cuando lo pruebas en uno solo te ocurre?¿ejecutando la segunda macro se
te crean las copias en un nuevo documento que te da opcion a guardar con
el nombre que desees? Bueno me comentas estas dudillas ok?

Puedes leer el articulo de nuevo (que esta recien subido a la web, de hace
unos instantes) por si acaso se me ha escapado algo :-)

http://www.fermu.com/content/view/506/2/lang,es/


Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Hola William de nuevo :-)

Estoy a ver como podemos copiarlo en un mismo documento, al tener marcadores
sera un poco difificil puesto que cuando se copian el actual documento a la
siguiente pagina tambien se copian los marcadores y claro al ejecutar la
macro no sabe muy bien pa donde ir y te vuelve a poner el consecutivo mal,
ahora que estoy pensando en que se puede crear un codigo que quite el
marcador antes de copiar y pegar en la siguiente pagina y luevo que los
vuelva a poner en su sitio ahora estoy divagando pero voy a hacer pruebas y
te comento ok? :-)

Saludos
Monica

¡Un SAludo! :-)

www.fermu.com
www.zorval.es


"William Garcia" escribió en el mensaje
news:

bueno lo de varios archivos pues le coloco el nombre de cada archivo y no
tengo con el numerador, pero me falta es que me copie la pagina actual y
me la pegue en la siguiente pagina.

William Garcia escribió:

bueno lo de varios archivos pues le coloco el nombre de cada archivo y no
tengo con el numerador, pero me falta es que me copie la pagina actual y me
la pegue en la siguiente pagina.

Hola William :-)

Pues creo que ya lo tengo espero :-)

Esta macro te realiza una copia de la pagina actual y te lo pega en la
pagina siguiente:

Bien solo servira si en el documento tiene 50 lineas totales y 48 lineas
escritas y ademas la linea donde esta lo siguiente:

No. 0010

eso este en la linea 6 ok?

tendras que utilizar la macro Autonumerar y esta que la he llamado
copiar (puedes ponerte dos botones) uno para la numeracion y otro para
que cuando le hayas dado a la numeracion hagas una copia debajo del
actual osease en el mismo documento.

Tu pruebala si tienes alguna duda me comentas ok?

Esta macro que pongo a continuacion elimina marcadores y los vuelve a
situar en su sitio para que cuando le des a ejecutar la macro
Autonumerar pueda realizar dicha funcion.


'-

Sub copiar()

'macro realizada por Monica para un documento de 50 líneas
'Escritas 48 lineas exactas en documento
'-
'Borra los marcadores
ActiveDocument.Bookmarks("ORDER").Delete
ActiveDocument.Bookmarks("UNO").Delete


With Selection
'aqui la seleccion del lineas escritas del documento son 48
.MoveDown Unit:=wdParagraph, Count:H, Extend:=wdExtend
.Copy
.MoveRight Unit:=wdCharacter, Count:=1
.TypeParagraph
.TypeParagraph
.PasteAndFormat (wdPasteDefault)
.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
End With

'Aqui vuelve a colocar los marcadores en la línea uno
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="UNO"
'Aqui pone el otro marcador en la linea seis posicion del cursor cuatro
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=6, Name:=""
Selection.MoveRight Unit:=wdCharacter, Count:=4
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="ORDER"
'Aqui vuelve el cursor a la linea original uno
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""

End Sub


Pruebala y nos comentas, Copiala y pegala debajo de la macro Autonumerar
que te di en la otra ocasión :-)


Saludos
Monica



¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Otra cosa que se me olvidaba en el caso que no quieras guardar los
documentos autonumerados por separado basta con quitar estas lineas de
la primera macro osease de la macro Autonumerar :

ChangeFileOpenDirectory _
"C:\Documents and Settings\usuario\Mis documentos\pruebas\"

ActiveDocument.SaveAs FileName:="Numero_" & Format(Order, "0#00")

Buenos nos comentas ok? :-)

Saludos
Monica

¡Un SAludo! :-)

www.fermu.com
www.zorval.es