Plantilla de word

[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