17/11/2010, 08:51
|
 | | | Fecha de Ingreso: noviembre-2007 Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 16 años, 5 meses Puntos: 69 | |
| Respuesta: Plantilla de word
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
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
Última edición por Monimo; 17/11/2010 a las 09:17 |