13/11/2010, 13:55
|
| | | Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 17 años, 5 meses Puntos: 39 | |
| Respuesta: Plantilla de word
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 |