Incrementar un número secuencial en cada creación de documento
Resuelto
tontonzunny
-
tontonzunny -
tontonzunny -
Hola,
estoy buscando incrementar un número cronológico con cada creación de documento basado en este modelo.
he encontrado esto
Crear un nuevo archivo y guardarlo como plantilla, bajo el nombre de "orden de compra" por ejemplo.
Crear una macro llamada "AutoNew":
Esta macro almacena en una inserción automática llamada "número" el que se asignó al último documento basado en la plantilla de orden de compra.
Para inicializar esta inserción automática, ingresa en el documento el número que se asignará al primer documento (menos 1). Selecciona este número y elige el comando:
Word 2000 a 2003: Inserción, Inserción automática - inserción automática.
Word 2007 a 2010: Pestaña Insertar; Grupo Texto, Quickpart, Inserción automática, Guardar selección en la galería de inserción automática
- Escribe el nombre de la inserción: "número".
- En la lista Buscar en, selecciona orden de compra.dot(m) para guardarlo en la plantilla. Haz clic en Agregar (2000 a 2003) o Aceptar (2007 a 2010).
- Borra el número que se ingresó, guarda la plantilla y ciérrala.
Para comenzar una nueva orden de compra, elige Archivo - Nuevo y haz doble clic en el ícono de la plantilla Orden de compra. La numeración se realiza y el documento se guarda automáticamente (ten cuidado de estar en la carpeta donde se almacenará la orden de compra)
Macro a copiar por Alt + F11, pegar en Thisdocument, Archivo, Cerrar y regresar a word
Sub AutoNew ()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("número").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("número").Value = num
num = Right("0000" & num, 4)
Selection.TypeText Text:="Orden de compra No " & num
SendKeys "o"
ActiveDocument.SaveAs FileName:="Orden de compra" & num & ".doc"
pero después de varios intentos, nada funciona, aparece un mensaje de error, creo que es porque estoy trabajando en WORD 2010
¿Alguien puede ayudarme?
gracias
Configuración: Windows Vista / Firefox 37.0
estoy buscando incrementar un número cronológico con cada creación de documento basado en este modelo.
he encontrado esto
Crear un nuevo archivo y guardarlo como plantilla, bajo el nombre de "orden de compra" por ejemplo.
Crear una macro llamada "AutoNew":
Esta macro almacena en una inserción automática llamada "número" el que se asignó al último documento basado en la plantilla de orden de compra.
Para inicializar esta inserción automática, ingresa en el documento el número que se asignará al primer documento (menos 1). Selecciona este número y elige el comando:
Word 2000 a 2003: Inserción, Inserción automática - inserción automática.
Word 2007 a 2010: Pestaña Insertar; Grupo Texto, Quickpart, Inserción automática, Guardar selección en la galería de inserción automática
- Escribe el nombre de la inserción: "número".
- En la lista Buscar en, selecciona orden de compra.dot(m) para guardarlo en la plantilla. Haz clic en Agregar (2000 a 2003) o Aceptar (2007 a 2010).
- Borra el número que se ingresó, guarda la plantilla y ciérrala.
Para comenzar una nueva orden de compra, elige Archivo - Nuevo y haz doble clic en el ícono de la plantilla Orden de compra. La numeración se realiza y el documento se guarda automáticamente (ten cuidado de estar en la carpeta donde se almacenará la orden de compra)
Macro a copiar por Alt + F11, pegar en Thisdocument, Archivo, Cerrar y regresar a word
Sub AutoNew ()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("número").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("número").Value = num
num = Right("0000" & num, 4)
Selection.TypeText Text:="Orden de compra No " & num
SendKeys "o"
ActiveDocument.SaveAs FileName:="Orden de compra" & num & ".doc"
pero después de varios intentos, nada funciona, aparece un mensaje de error, creo que es porque estoy trabajando en WORD 2010
¿Alguien puede ayudarme?
gracias
Configuración: Windows Vista / Firefox 37.0
Enlaces relacionados:
- Mismo número de página en cada página
- Agregar número incrementado automáticamente en un documento Word 2007
- ¡Una página de Word se imprime al final de cada impresión!
- Problemas de formato al abrir documentos - Word versión 15
- incrementación de número de etiqueta
- [Tabla de contenido de Word] Eliminar un número de página
5 respuestas
-
Hola,
"encontré esto": sería bueno indicar la fuente.
En este caso, se trata del sitio de m@rina, que está muy presente aquí, y más precisamente de la siguiente página:
https://www.faqword.com/index.php/word/faq-word/mise-en-forme/466-serait-il-possible-a-partir-dun-modele-word-dincrementer-un-numero-chronologique-a-chaque-creation-de-document-base-sur-ce-modele
No lo he probado, pero me sorprendería que no funcionara ya que se indica la v2010.
Sin embargo, para avanzar, sería interesante que indiques el contenido del mensaje de error.
--
C-Claire -
hola
es exactamente eso lo que encontré
no logro hacerlo funcionar... quizás sea culpa mía, por eso pregunto
el mensaje es que el miembro de la colección requerida no existe
gracias por tu respuesta -
Lo siguiente aparece después de diferentes manipulaciones:
ActiveDocument.AttachedTemplate.AutoTextEntries("número").Value = Num
justo antes de que se abra una ventana que dice error de depuración...-
-
-
-
-
Si tienes el hábito de abrir tus documentos desde el Explorador de Windows, puedes reemplazar Archivo-Nuevo por un doble clic en tu modelo .dotm.
En ambos casos, se abrirá una copia del modelo y la macro se ejecutará.
El comando
ActiveDocument.SaveAs FileName:="Bon de commande" & num & ".doc"
guarda automáticamente tu documento con el nombre "Bon de commande" seguido del número. Puedes cambiar .doc a .docx para Word 2010.
Pero también puedes eliminar esta línea si prefieres guardar el documento tú mismo en la carpeta que desees.
C-Claire
-
-
Hola
Bueno, por mucho que intento hacer todas las manipulaciones posibles, no lo logro. O no estoy colocando la macro en el lugar correcto, o tal vez la estoy copiando mal.
En fin, he dejado de lado eso, voy a pasar por Excel e incorporar un gráfico.
No tengo tiempo para explicarlo ahora, pero lo haré, en resumen:
he creado un botón que incrementa un número por cada pulsación (+1 cada vez), he utilizado varias celdas para juntar todo en un solo número, y he creado un botón para reiniciar a cero cuando lo deseo.
Lo explicaré mejor más tarde...
Hasta pronto y gracias por tu paciencia. -
Hola
como acordado, explicación:
no podía incrementar un número en Word a través de una macro
así que lo hago todo a través de Excel
creo un botón y le inserto una macro que, con cada pulsación, suma uno a un número
este número, mediante la función insertar tabla en Word, se inserta
eso es, si necesitas más explicación...
gracias-
Hola,
Y si hubieras hecho tu pregunta en el sitio donde encontraste este tutorial, tal vez habrías obtenido una respuesta adecuada...
Hemos añadido un ejemplo a este tutorial, disponible para descargar en la página
https://www.faqword.com/index.php/word/faq-word/mise-en-forme/466-serait-il-possible-a-partir-dun-modele-word-dincrementer-un-numero-chronologique-a-chaque-creation-de-document-base-sur-ce-modele
Gracias Argitxu.
m@rina -
-
¡Disculpa, pero ¡me estoy riendo a carcajadas!
Imagínate que la persona más capacitada para responder a esta pregunta es, sin duda, quien tuvo la idea de este truco y escribió este artículo... Y, en este caso, ¡soy yo!
Y como ves, respondo muchísimo aquí y también en el sitio donde encontraste este truco, porque es mi sitio...
Así que, podrías haberte ahorrado esa reflexión.
m@rina
PD: Así que he retirado el ejemplo amablemente proporcionado por Argitxu (otra colaboradora de CCM) ya que no es serio. -
-
