INCLUIR UN CONSECUTIVO EN UN DOCUMENTO

[jrsyus]

Hola:

Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.

Espero que me puedan ayudar


Gracias

[Pilar Mueckay [MVP - Office]]

Jrsyus,

Tendrás que usar macros.
Revisa este enlace
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm

Espero que esto sea de ayuda. Si tienes más preguntas o requieres
asistencia extra, con toda confianza vuelve a postear aquí.

--

menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador

Post by jrsyus
Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.
Espero que me puedan ayudar
Gracias

[jrsyus]

Hola Pilar:
Hasta que al fin pude encontrar algo, muchas gracias, te voy a molestar
solicitandote un favor soy una usuaria básica de word, me podrias por favor
indicar paso a paso como hago para crear e insertar la macro y me confirmas
por favor si si funciona en un documento impreso es decir que aparezca en la
impresiòn.

Gracias

Jrsyu

Post by Pilar Mueckay [MVP - Office]
Jrsyus,
Tendrás que usar macros.
Revisa este enlace
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm
Espero que esto sea de ayuda. Si tienes más preguntas o requieres
asistencia extra, con toda confianza vuelve a postear aquí.
--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador

Post by jrsyus
Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.
Espero que me puedan ayudar
Gracias

[Pilar Mueckay [MVP - Office]]

jrsyus,

Encantada. Gracias por especificar el nivel que deseas en mis
explicaciones. Veamos:

1) Cuando un programa, por ejemplo Word, no ofrece opciones que buscas,
se puede lograr desarrollar estas opciones con un poco de código. En
este caso, usas Visual Basic Application (VBA). Todas las aplicaciones
de Office te permiten hacerlo. Parece complicado, pero no lo es si vamos
paso a paso. Este código se debe escribir en una ventana aparte, que
abres siempre con las teclas ALT-F11; esto abre el editor de VBA
(teniendo abierto Word, se tipea ALT+F11)

2) Según entiendo, quieres insertar una secuencia automática en un mismo
documento pero del que imprimirás varias copias.

3) Abre tu documento. Ten en mente que hay tres pasos aquí: a) Crear un
marcador en el documento; b) Crear un archivo texto donde se guardará la
secuencia; y, b) Escribir tu código (copiar/pegar) en el editor VBA.

4) MARCADOR. En el documento de Word ubícate en el sitio que quieres que
vaya el consecutivo. Selecciona del menú Insertar > Marcador. Aquí debes
poner nombre a tu marcador, debido a que el código posterior va a
incluir el nombre de este marcador, deberás ponerle el nombre
SerialNumber; finalmente haces clic en Agregar. No verás nada especial,
pues es un marcador oculto.

5) ARCHIVO. Debido a que el nombre y su ubicación ya se determinan en el
próximo código, debes crear un vacío archivo consecutivo.txt en la raíz
de tu disco duro: c:\consecutivo.txt.

6) CODIGO. Con ALT+F11 abres el editor de VBA. Veamos esta ventana a
grandes rasgos: A la izquierda verás el panel de Proyectos, es muy
parecido a la lista de carpetas cuando abres Explorador de WIndows.
Observa que el cursor está en "This Document", que cuelga de la carpeta
"Microsoft Word Objetos", lo cual es correcto. Entonces, vas a crear una
carpeta especial para poner el código.

7) Del menú de esta ventana del editor de VBA, selecciona Insertar >
Módulo.

8) Observa que automáticamente te ha creado una carpeta "Módulos", y te
ha creado un objeto en esta carpeta: "Módulo1". Observa que a la derecha
se ha abierto una ventana, es lo que va a contener este nuevo objeto
"Módulo1". Es aquí donde debes pegar el código.

9) He seleccionado el código de Doug Robbins, que verás en la URL a la
que te hice referencia anteriormente. Lo he traducido. Por favor copia y
pega:

Sub Impr_Consecutivo()
Dim Message As String, Title As String, Default As String, NumCopies As
Long
Dim Rng1 As Range

' Establece el aviso.
Message = "Ingrese el número de copias que quiere imprimir"
' Establece el título.
Title = "Imprimir"
' Establece el valor predeterminado.
Default = "1"

' Despliega el mensaje, título y valor predeterminado.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("C:\Consecutivo.Txt", _
"MacroSettings", "SerialNumber")

If SerialNumber = "" Then
SerialNumber = 1
End If

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0

While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend

'Guarda el próximo número en el archivo Consecutivo.txt listo para su
próximo uso.
System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"SerialNumber") = SerialNumber

'Recrea el marcador listo para su próximo uso.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With

ActiveDocument.Save
End Sub

10) Ve al menú Archivo > Cerrar y Volver a Word. Esto cerrará el editor
de VBA para regresar a tu documento.
11) Guarda el documento, para que se guarde la macro.
12) Para ejecutar la macro, puedes ir a menú Herramienta > Macro >
Macros y Ejecutar la macro a la que he denominado Impr_Consecutivo.
13) También puedes asignar un botón o una combinación de teclas a esa
macro para ejecutar más rápido. Sobre esto puedes encontrar más
información en la propia ayuda de Word.

--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador
** Gracias por votar si las aportaciones contestaron su pregunta o le
han ayudado **

Post by jrsyus
Hasta que al fin pude encontrar algo, muchas gracias, te voy a molestar
solicitandote un favor soy una usuaria básica de word, me podrias por favor
indicar paso a paso como hago para crear e insertar la macro y me confirmas
por favor si si funciona en un documento impreso es decir que aparezca en la
impresiòn.
Gracias
Jrsyu

Post by Pilar Mueckay [MVP - Office]
Jrsyus,
Tendrás que usar macros.
Revisa este enlace
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm
Espero que esto sea de ayuda. Si tienes más preguntas o requieres
asistencia extra, con toda confianza vuelve a postear aquí.
--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador

Post by jrsyus
Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.
Espero que me puedan ayudar
Gracias

[jrsyus]

Hola Pilar:

Me has salvado la vida, la única parte que realmente no comprendi fue la del numeral 13 que incluyes y mencionas vincular la macro a un botón o a una combinación de teclas, de todas maneras te agradezco nuevamente.

Y otra duda a que te refieres cuando dices gracias por votar???????


Un saludo
Jrsyus
"Pilar Mueckay [MVP - Office]" <***@mvps.org> escribió en el mensaje news:***@TK2MSFTNGP10.phx.gbl...
jrsyus,

Encantada. Gracias por especificar el nivel que deseas en mis explicaciones. Veamos:

1) Cuando un programa, por ejemplo Word, no ofrece opciones que buscas, se puede lograr desarrollar estas opciones con un poco de código. En este caso, usas Visual Basic Application (VBA). Todas las aplicaciones de Office te permiten hacerlo. Parece complicado, pero no lo es si vamos paso a paso. Este código se debe escribir en una ventana aparte, que abres siempre con las teclas ALT-F11; esto abre el editor de VBA (teniendo abierto Word, se tipea ALT+F11)

2) Según entiendo, quieres insertar una secuencia automática en un mismo documento pero del que imprimirás varias copias.

3) Abre tu documento. Ten en mente que hay tres pasos aquí: a) Crear un marcador en el documento; b) Crear un archivo texto donde se guardará la secuencia; y, b) Escribir tu código (copiar/pegar) en el editor VBA.

4) MARCADOR. En el documento de Word ubícate en el sitio que quieres que vaya el consecutivo. Selecciona del menú Insertar > Marcador. Aquí debes poner nombre a tu marcador, debido a que el código posterior va a incluir el nombre de este marcador, deberás ponerle el nombre SerialNumber; finalmente haces clic en Agregar. No verás nada especial, pues es un marcador oculto.

5) ARCHIVO. Debido a que el nombre y su ubicación ya se determinan en el próximo código, debes crear un vacío archivo consecutivo.txt en la raíz de tu disco duro: c:\consecutivo.txt.

6) CODIGO. Con ALT+F11 abres el editor de VBA. Veamos esta ventana a grandes rasgos: A la izquierda verás el panel de Proyectos, es muy parecido a la lista de carpetas cuando abres Explorador de WIndows. Observa que el cursor está en "This Document", que cuelga de la carpeta "Microsoft Word Objetos", lo cual es correcto. Entonces, vas a crear una carpeta especial para poner el código.

7) Del menú de esta ventana del editor de VBA, selecciona Insertar > Módulo.

8) Observa que automáticamente te ha creado una carpeta "Módulos", y te ha creado un objeto en esta carpeta: "Módulo1". Observa que a la derecha se ha abierto una ventana, es lo que va a contener este nuevo objeto "Módulo1". Es aquí donde debes pegar el código.

9) He seleccionado el código de Doug Robbins, que verás en la URL a la que te hice referencia anteriormente. Lo he traducido. Por favor copia y pega:

Sub Impr_Consecutivo()
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range

' Establece el aviso.
Message = "Ingrese el número de copias que quiere imprimir"
' Establece el título.
Title = "Imprimir"
' Establece el valor predeterminado.
Default = "1"

' Despliega el mensaje, título y valor predeterminado.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("C:\Consecutivo.Txt", _
"MacroSettings", "SerialNumber")

If SerialNumber = "" Then
SerialNumber = 1
End If

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0

While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend

'Guarda el próximo número en el archivo Consecutivo.txt listo para su próximo uso.
System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"SerialNumber") = SerialNumber

'Recrea el marcador listo para su próximo uso.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With

ActiveDocument.Save
End Sub

10) Ve al menú Archivo > Cerrar y Volver a Word. Esto cerrará el editor de VBA para regresar a tu documento.
11) Guarda el documento, para que se guarde la macro.
12) Para ejecutar la macro, puedes ir a menú Herramienta > Macro > Macros y Ejecutar la macro a la que he denominado Impr_Consecutivo.
13) También puedes asignar un botón o una combinación de teclas a esa macro para ejecutar más rápido. Sobre esto puedes encontrar más información en la propia ayuda de Word.

--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador
** Gracias por votar si las aportaciones contestaron su pregunta o le han ayudado **

Post by jrsyus
Hasta que al fin pude encontrar algo, muchas gracias, te voy a molestar
solicitandote un favor soy una usuaria básica de word, me podrias por favor
indicar paso a paso como hago para crear e insertar la macro y me confirmas
por favor si si funciona en un documento impreso es decir que aparezca en la
impresiòn.
Gracias
Jrsyu

Post by Pilar Mueckay [MVP - Office]
Jrsyus,
Tendrás que usar macros.
Revisa este enlace
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm
Espero que esto sea de ayuda. Si tienes más preguntas o requieres
asistencia extra, con toda confianza vuelve a postear aquí.
--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador

Post by jrsyus
Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.
Espero que me puedan ayudar
Gracias

[jrsyus]

Hola Pilar:
Como estas???? Que debo hacer sideseo que los numeros ejecutados por la macro sean de determinado tamaño y tipo de letra????


Gracias por tu respuesta

jrsyu

"Pilar Mueckay [MVP - Office]" <***@mvps.org> escribió en el mensaje news:***@TK2MSFTNGP10.phx.gbl...
jrsyus,

Encantada. Gracias por especificar el nivel que deseas en mis explicaciones. Veamos:

1) Cuando un programa, por ejemplo Word, no ofrece opciones que buscas, se puede lograr desarrollar estas opciones con un poco de código. En este caso, usas Visual Basic Application (VBA). Todas las aplicaciones de Office te permiten hacerlo. Parece complicado, pero no lo es si vamos paso a paso. Este código se debe escribir en una ventana aparte, que abres siempre con las teclas ALT-F11; esto abre el editor de VBA (teniendo abierto Word, se tipea ALT+F11)

2) Según entiendo, quieres insertar una secuencia automática en un mismo documento pero del que imprimirás varias copias.

3) Abre tu documento. Ten en mente que hay tres pasos aquí: a) Crear un marcador en el documento; b) Crear un archivo texto donde se guardará la secuencia; y, b) Escribir tu código (copiar/pegar) en el editor VBA.

4) MARCADOR. En el documento de Word ubícate en el sitio que quieres que vaya el consecutivo. Selecciona del menú Insertar > Marcador. Aquí debes poner nombre a tu marcador, debido a que el código posterior va a incluir el nombre de este marcador, deberás ponerle el nombre SerialNumber; finalmente haces clic en Agregar. No verás nada especial, pues es un marcador oculto.

5) ARCHIVO. Debido a que el nombre y su ubicación ya se determinan en el próximo código, debes crear un vacío archivo consecutivo.txt en la raíz de tu disco duro: c:\consecutivo.txt.

6) CODIGO. Con ALT+F11 abres el editor de VBA. Veamos esta ventana a grandes rasgos: A la izquierda verás el panel de Proyectos, es muy parecido a la lista de carpetas cuando abres Explorador de WIndows. Observa que el cursor está en "This Document", que cuelga de la carpeta "Microsoft Word Objetos", lo cual es correcto. Entonces, vas a crear una carpeta especial para poner el código.

7) Del menú de esta ventana del editor de VBA, selecciona Insertar > Módulo.

8) Observa que automáticamente te ha creado una carpeta "Módulos", y te ha creado un objeto en esta carpeta: "Módulo1". Observa que a la derecha se ha abierto una ventana, es lo que va a contener este nuevo objeto "Módulo1". Es aquí donde debes pegar el código.

9) He seleccionado el código de Doug Robbins, que verás en la URL a la que te hice referencia anteriormente. Lo he traducido. Por favor copia y pega:

Sub Impr_Consecutivo()
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range

' Establece el aviso.
Message = "Ingrese el número de copias que quiere imprimir"
' Establece el título.
Title = "Imprimir"
' Establece el valor predeterminado.
Default = "1"

' Despliega el mensaje, título y valor predeterminado.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("C:\Consecutivo.Txt", _
"MacroSettings", "SerialNumber")

If SerialNumber = "" Then
SerialNumber = 1
End If

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0

While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend

'Guarda el próximo número en el archivo Consecutivo.txt listo para su próximo uso.
System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"SerialNumber") = SerialNumber

'Recrea el marcador listo para su próximo uso.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With

ActiveDocument.Save
End Sub

10) Ve al menú Archivo > Cerrar y Volver a Word. Esto cerrará el editor de VBA para regresar a tu documento.
11) Guarda el documento, para que se guarde la macro.
12) Para ejecutar la macro, puedes ir a menú Herramienta > Macro > Macros y Ejecutar la macro a la que he denominado Impr_Consecutivo.
13) También puedes asignar un botón o una combinación de teclas a esa macro para ejecutar más rápido. Sobre esto puedes encontrar más información en la propia ayuda de Word.

--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador
** Gracias por votar si las aportaciones contestaron su pregunta o le han ayudado **

Post by jrsyus
Hasta que al fin pude encontrar algo, muchas gracias, te voy a molestar
solicitandote un favor soy una usuaria básica de word, me podrias por favor
indicar paso a paso como hago para crear e insertar la macro y me confirmas
por favor si si funciona en un documento impreso es decir que aparezca en la
impresiòn.
Gracias
Jrsyu

Post by Pilar Mueckay [MVP - Office]
Jrsyus,
Tendrás que usar macros.
Revisa este enlace
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm
Espero que esto sea de ayuda. Si tienes más preguntas o requieres
asistencia extra, con toda confianza vuelve a postear aquí.
--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador

Post by jrsyus
Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.
Espero que me puedan ayudar
Gracias

[Marta PM [MVP Office]]

Añade las siguientes líneas en tu código en el lugar que te indico.
---- esto indica que es lo que tienes que añadir
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
-------------------------------------------------------------------
Set myFont = New Font
myFont.Bold = True
'Inserta aquí el tipo de fuente que deseas
myFont.Name = "Arial"
'Inserta aquí el tamaño de fuente que deseas
myFont.Size = "26"
Rng1.font = myfont
-----------------------------------------------------------------------------------
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend

Espero que te funcione.
--
Marta PM
Saúdos/Saludos
MVP Office
***@spam.mvps.org
(Si quieres escribirme ya sabes lo que no quiero)
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"jrsyus" <***@yahoo.com> escribi� en el mensaje news:%***@TK2MSFTNGP14.phx.gbl...
Hola Pilar:
Como estas???? Que debo hacer sideseo que los numeros ejecutados por la macro sean de
determinado tamaño y tipo de letra????


Gracias por tu respuesta

jrsyu

"Pilar Mueckay [MVP - Office]" <***@mvps.org> escribi� en el mensaje news:***@TK2MSFTNGP10.phx.gbl...
jrsyus,

Encantada. Gracias por especificar el nivel que deseas en mis explicaciones. Veamos:

1) Cuando un programa, por ejemplo Word, no ofrece opciones que buscas, se puede
lograr desarrollar estas opciones con un poco de código. En este caso, usas Visual
Basic Application (VBA). Todas las aplicaciones de Office te permiten hacerlo. Parece
complicado, pero no lo es si vamos paso a paso. Este código se debe escribir en una
ventana aparte, que abres siempre con las teclas ALT-F11; esto abre el editor de VBA
(teniendo abierto Word, se tipea ALT+F11)

2) Según entiendo, quieres insertar una secuencia automática en un mismo documento
pero del que imprimirás varias copias.

3) Abre tu documento. Ten en mente que hay tres pasos aquí: a) Crear un marcador en
el documento; b) Crear un archivo texto donde se guardará la secuencia; y, b)
Escribir tu código (copiar/pegar) en el editor VBA.

4) MARCADOR. En el documento de Word ubícate en el sitio que quieres que vaya el
consecutivo. Selecciona del menú Insertar > Marcador. Aquí debes poner nombre a tu
marcador, debido a que el código posterior va a incluir el nombre de este marcador,
deberás ponerle el nombre SerialNumber; finalmente haces clic en Agregar. No verás
nada especial, pues es un marcador oculto.

5) ARCHIVO. Debido a que el nombre y su ubicación ya se determinan en el próximo
código, debes crear un vacío archivo consecutivo.txt en la raíz de tu disco duro:
c:\consecutivo.txt.

6) CODIGO. Con ALT+F11 abres el editor de VBA. Veamos esta ventana a grandes rasgos:
A la izquierda verás el panel de Proyectos, es muy parecido a la lista de carpetas
cuando abres Explorador de WIndows. Observa que el cursor está en "This Document",
que cuelga de la carpeta "Microsoft Word Objetos", lo cual es correcto. Entonces, vas
a crear una carpeta especial para poner el código.

7) Del menú de esta ventana del editor de VBA, selecciona Insertar > Módulo.

8) Observa que automáticamente te ha creado una carpeta "Módulos", y te ha creado un
objeto en esta carpeta: "Módulo1". Observa que a la derecha se ha abierto una
ventana, es lo que va a contener este nuevo objeto "Módulo1". Es aquí donde debes
pegar el código.

9) He seleccionado el código de Doug Robbins, que verás en la URL a la que te hice
referencia anteriormente. Lo he traducido. Por favor copia y pega:

Sub Impr_Consecutivo()
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range

' Establece el aviso.
Message = "Ingrese el número de copias que quiere imprimir"
' Establece el título.
Title = "Imprimir"
' Establece el valor predeterminado.
Default = "1"

' Despliega el mensaje, título y valor predeterminado.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("C:\Consecutivo.Txt", _
"MacroSettings", "SerialNumber")

If SerialNumber = "" Then
SerialNumber = 1
End If

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0

While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend

'Guarda el próximo número en el archivo Consecutivo.txt listo para su próximo uso.
System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"SerialNumber") = SerialNumber

'Recrea el marcador listo para su próximo uso.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With

ActiveDocument.Save
End Sub

10) Ve al menú Archivo > Cerrar y Volver a Word. Esto cerrará el editor de VBA para
regresar a tu documento.
11) Guarda el documento, para que se guarde la macro.
12) Para ejecutar la macro, puedes ir a menú Herramienta > Macro > Macros y Ejecutar
la macro a la que he denominado Impr_Consecutivo.
13) También puedes asignar un botón o una combinación de teclas a esa macro para
ejecutar más rápido. Sobre esto puedes encontrar más información en la propia ayuda
de Word.

--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador
** Gracias por votar si las aportaciones contestaron su pregunta o le han ayudado **

Post by jrsyus
Hasta que al fin pude encontrar algo, muchas gracias, te voy a molestar
solicitandote un favor soy una usuaria básica de word, me podrias por favor
indicar paso a paso como hago para crear e insertar la macro y me confirmas
por favor si si funciona en un documento impreso es decir que aparezca en la
impresiòn.
Gracias
Jrsyu

Post by Pilar Mueckay [MVP - Office]
Jrsyus,
Tendrás que usar macros.
Revisa este enlace
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm
Espero que esto sea de ayuda. Si tienes más preguntas o requieres
asistencia extra, con toda confianza vuelve a postear aquí.
--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador

Post by jrsyus
Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.
Espero que me puedan ayudar
Gracias

[Marta PM [MVP Office]]

Pili, por lo que ha publicado en el foro de Word creo que no es exactamente lo que
busca. Esta macro añade un número cada vez que lo guardas y hay otra en la página de
los MVP que creo que hace mejor lo que pide:
http://word.mvps.org/faqs/macrosvba/NumberCopiesOf1Doc.htm
Por lo que yo he entendido tiene una hoja y cada vez que se imprima quiere un
contador. Tal vez no entendí bien, pero creo que es lo que pedía.
--
Marta PM
Saúdos/Saludos
MVP Office
***@spam.mvps.org
(Si quieres escribirme ya sabes lo que no quiero)
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

Post by Pilar Mueckay [MVP - Office]
Jrsyus,
Tendrás que usar macros.
Revisa este enlace
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm
Espero que esto sea de ayuda. Si tienes más preguntas o requieres asistencia extra,
con toda confianza vuelve a postear aquí.
--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador

Post by jrsyus
Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.
Espero que me puedan ayudar
Gracias

[jrsyus]

Hola:
Soy una usuaria de word bàsico me podrías por favor indicar como incluir la
macro que me dices en el documento de word.

Gracias

Espero respuesta

Post by Marta PM [MVP Office]
Pili, por lo que ha publicado en el foro de Word creo que no es
exactamente lo que busca. Esta macro añade un número cada vez que lo
guardas y hay otra en la página de los MVP que creo que hace mejor lo que
pide: http://word.mvps.org/faqs/macrosvba/NumberCopiesOf1Doc.htm
Por lo que yo he entendido tiene una hoja y cada vez que se imprima quiere
un contador. Tal vez no entendí bien, pero creo que es lo que pedía.
--
Marta PM
Saúdos/Saludos
MVP Office
(Si quieres escribirme ya sabes lo que no quiero)
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin
garantías explícitas ni implícitas, y no otorga derecho alguno. Usted
asume cualquier riesgo al poner en práctica lo recomendado o sugerido en
el presente mensaje.
¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

Post by Pilar Mueckay [MVP - Office]
Jrsyus,
Tendrás que usar macros.
Revisa este enlace
http://word.mvps.org/faqs/macrosvba/NumberDocs.htm
Espero que esto sea de ayuda. Si tienes más preguntas o requieres
asistencia extra, con toda confianza vuelve a postear aquí.
--
menteAtenta,
Pilar Mueckay
MVP - Office
Ecuador

Post by jrsyus
Tengo una encuesta creada en word y quiero agregarle un numero consecutivo
que vaya aumentando cuando envie la impresion del documento es decir que
aparezca la impresión con un número seguido por ejemplo : 1, 2 , 3, etc., en
cada página impresa.
Espero que me puedan ayudar
Gracias

[a***@discussions.microsoft.com]

Esta consulta fue respondida en el foro de excel. ¿No miras
las respuestas que te dan?

-----Mensaje original-----
Tengo una encuesta creada en word y quiero agregarle un

numero consecutivo

que vaya aumentando cuando envie la impresion del

documento es decir que
1, 2 , 3, etc., en

cada página impresa.
Espero que me puedan ayudar
Gracias
.