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!