Plantilla de word

[mtblanco]

buenas,

tengo un problemilla tengo que hacer una oferta y guardarla como plantilla, el office que tengo es el WORD 2010
En guardarla no tengo problema, el problema está en que esta oferta tiene que ir numerada y cada vez que la abra tendria que ir cambiando, y es en esa numeracion donde no se hacerlo.

Ejemplo: OFERTA 2010/1 el número que está escrito en negrita es el que tendria que ir cambiando cada vez que se abra o se guarde

POR FAVOR QUE ALGUIEN ME AYUDE

[Monimo]

Sí, puedes hacer una macro:

En el Editor de Visual Basic en "This Document" pega esto:

Código:

Private Sub Document_Open()
    
Dim myrange As Range
Set myrange = ActiveDocument.Range(Start:=0, End:=16)
MsgBox (myrange.Text) ' se puede omitir después esto es solo para que vayas viendo lo que esta leyendo 
Textito = myrange.Text
ntext = Mid(Textito, 13, 4)
MsgBox (ntext) ' se puede omitir después esto es solo para que vayas viendo lo que esta leyendo 
folio = CInt(ntext)
suma = folio + 1
ActiveDocument.Range(Start:=12, End:=16).Select
Selection.TypeText Text:=suma

End Sub

Es todo, Claro esto solo va a funcionar si lo primero que tienes en tu hoja de Word es el texto:

Oferta 2010/1

Si hay texto antes, tendrás que mover el rango para adecuarlo a donde esté ese texto, Saludos!

[JoaoM]

Tengo en primera linea unicamente "Oferta 2010/1" (sin comillas) pero me da error 13 en tiempo de ejecucion en la linea roja

Dim myrange As Range
Set myrange = ActiveDocument.Range(Start:=0, End:=16)
MsgBox (myrange.Text) ' se puede omitir después esto es solo para que vayas viendo lo que esta leyendo
Textito = myrange.Text
ntext = Mid(Textito, 13, 4)
MsgBox (ntext) ' se puede omitir después esto es solo para que vayas viendo lo que esta leyendo
folio = CInt(ntext)suma = folio + 1
ActiveDocument.Range(Start:=12, End:=16).Select
Selection.TypeText Text:=suma

[Monimo]

Prueba con esto:

Código:

Private Sub Document_Open()
    
Dim myrange As Range
Set myrange = ActiveDocument.Range(Start:=0, End:=16)
MsgBox (myrange.Text)
Textito = myrange.Text
ntext = Mid(Textito, 13, 4)
MsgBox (ntext)
folio = CInt(ntext)



suma = folio + 1
ActiveDocument.Range(Start:=12, End:=16).Select
If suma < 10 Then
sumat = CStr(suma)
sumat = "000" + sumat

Else
If folio >= 10 And folio < 100 Then
sumat = CStr(suma)
sumat = "00" + sumat
End If
End If
Selection.TypeText Text:=sumat
End Sub

Por cierto cambia tu texto a: Oferta 2010/0001

[JoaoM]

Con este ultimo si funciona pero tiene que ser 0001, si le colocas 1 no funka.

Si le cambio el texto de Oferta 2010/0001 a Presupuesto 2011/0001 no funka. quisiera si posible que se pueda hacer el cambio de Oferta a otro texto y año siempre y cuando lo necesite y si sustener el /0001

Tambien sugeriria yo que el ultimo msgbox fuera eliminado y solo el primer msgbox dijera; "entrará el 0002" o algo alusivo al siguiente número y no repitiera el actual.

[Monimo]

Iniciado por JoaoM

Con este ultimo si funciona pero tiene que ser 0001, si le colocas 1 no funka.

Si le cambio el texto de Oferta 2010/0001 a Presupuesto 2011/0001 no funka. quisiera si posible que se pueda hacer el cambio de Oferta a otro texto y año siempre y cuando lo necesite y si sustener el /0001

Tambien sugeriria yo que el ultimo msgbox fuera eliminado y solo el primer msgbox dijera; "entrará el 0002" o algo alusivo al siguiente número y no repitiera el actual.

Pues no funciona porque lo que hace la macro es contar el numero de caracteres que hay en este texto:

Oferta 2010/0001 que son 16 y en base a eso cuenta y substrae de esa cadena los últimos 4 números para sumarle uno.

Si necesitas estar cambiando el texto tienes que definir en el rango y en la substracción del texto donde inicia, donde termina y el numero de caracteres del texto que tu quieras.


Dime si tienes conocimiento de macro o de código para que lo hagas si no para darte una explicación mas básica.

[JoaoM]

Voy a probar haciendo aqlgo para que con la cantidad de caracteres ver si puedo moficar.

CONOCIMIENTOS EN MACROS O PROGRAMACION ES MINIMA, solo me pongo a inventra con codigo que bajo de la web

Estamos entrando casi en el 2011 y entonces seria Oferta 2011/0001 pero no dá resultado
EDITO:

ya lo logré

Private Sub Document_Open()

Dim myrange As Range
Set myrange = ActiveDocument.Range(Start:=0, End:=21)
MsgBox (myrange.Text) como haria yo en esta linea para que me dijera "Prosupuestar el # tal y tal"
Textito = myrange.Text
ntext = Mid(Textito, 18, 4)
'MsgBox (ntext)
folio = CInt(ntext)



suma = folio + 1
ActiveDocument.Range(Start:=17, End:=21).Select
If suma < 10 Then
sumat = CStr(suma)
sumat = "000" + sumat

Else
If folio >= 10 And folio < 100 Then
sumat = CStr(suma)
sumat = "00" + sumat
End If
End If
Selection.TypeText Text:=sumat
End Sub

para

Presupuesto 2011/0000

Al crear el doc lo cierras guardando y al volver a abrilo para su ejecucion (trabajo) es cuando te coloca el 0001 y sucesivos

[RatonesPelones]

No es con el ánimo de ser un "aguafiestas" pero se me hace que ya no le intereso a quien abrió el post, regresar a consultar sus excelentes respuestas amigos.

[Monimo]

Iniciado por RatonesPelones

No es con el ánimo de ser un "aguafiestas" pero se me hace que ya no le intereso a quien abrió el post, regresar a consultar sus excelentes respuestas amigos.

Pues que se pudra en el infierno >.< !!!, ah no vdd, en la ignorancia... jajaja

[RatonesPelones]

Iniciado por Monimo

Pues que se pudra en el infierno >.< !!!

¡¡¡que ruda, jejejeje!!!!

[JoaoM]

monimo Cast.
no llores, por mi está resuelto el problema y si está resuelto, ¿que más quieres que haga? si está a mi alcance, lo haré, no me pidas nada si la distancia es mucha

[Monimo]

Iniciado por JoaoM

monimo Cast.
no llores, por mi está resuelto el problema y si está resuelto, ¿que más quieres que haga? si está a mi alcance, lo haré, no me pidas nada si la distancia es mucha

Jajaja sí solo que el que creó el post no volvió a aparecer....por ti no hay ningún problema. mtblanco creó el tema.

[JoaoM]

Se quedó mudo con la solucion