Autor
#de lineas maximo por hoja = 25
# numero de lineas del documento = 100
Total de paginas generadas = 100/25 = 4
todo esto lo estoy manejando por medio de un richtextbox pero al momento de realizar la búsqueda no funciona mi código llevo toda la tarde y no encuentro solución podrían ayudarme
Código:
Dim sText, sFnd
Dim lPos
Dim cont As Integer
cont = 1
sText = RichTextBox1.Text
sFnd = vbCrLf 'Texto buscado (salto de linea).
'pretendo ir avanzando por el texto para hacer una comparacion
'buscando el salto de linea
While Len(RichTextBox1.Text) > cont
lPos = InStr(1, sText, sFnd)
If lPos > 0 Then 'Se encontró la cadena
call MsgBox("La cadena se encontró en la posición " & lPos, vbExclamation)
' estos msgbox son temporales, después los sustituiré por la continuación del programa
Else
call MsgBox("No se encontró la cadena")
End If
cont = cont + 1
Wend
Dim lPos
Dim cont As Integer
cont = 1
sText = RichTextBox1.Text
sFnd = vbCrLf 'Texto buscado (salto de linea).
'pretendo ir avanzando por el texto para hacer una comparacion
'buscando el salto de linea
While Len(RichTextBox1.Text) > cont
lPos = InStr(1, sText, sFnd)
If lPos > 0 Then 'Se encontró la cadena
call MsgBox("La cadena se encontró en la posición " & lPos, vbExclamation)
' estos msgbox son temporales, después los sustituiré por la continuación del programa
Else
call MsgBox("No se encontró la cadena")
End If
cont = cont + 1
Wend
el problema que tengo es que no puedo moverme entre todos los caracteres que hay en el richtexbox1 para buscar los saltos de linea
ojala puedan ayudarme
En línea
