Visual Basic - WORD, ORTOGRAFIA

Life is soft - evento anual de software empresarial
 
Vista:

WORD, ORTOGRAFIA

Publicado por MARVAL (49 intervenciones) el 11/05/2004 11:20:33
Necesito saber si alguien sabe cual es el onjeto Active X (dll, objeto...) Que activa la ortografía del Word (para Visual Basic). Si alguien lo sabe agradecería su ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:WORD, ORTOGRAFIA

Publicado por Iñaki (502 intervenciones) el 11/05/2004 12:28:31
Tienes que tener cargada la 'DLL' de Microsoft Word. Para ello selecciona de Menu -> Referencias, una que ponga , " Microsoft Word Object",. Teniendo esta libreria puedes crear documentos Word, asi como acceder a todas sus funciones, en este caso Ortografia.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:WORD, ORTOGRAFIA

Publicado por Marval (49 intervenciones) el 12/05/2004 09:36:20
GRACIAS. Eso creo que ya lo sé. Pero es que la duda = no la e explicado bien... Cómo no tenemos el Word, he de buscar la manera de que sólo con un elemento (una parte) del word me funcione...entiendes?
Te envio el codigo para que digas si está bien, o falta algo o sobra...

Dim speller As Object
Dim TXT As String
Dim new_txt As String
Dim Pos As Integer

On Error GoTo OpenError
Set speller = CreateObject("Word.Basic")
On Error GoTo 0

speller.FileNew
speller.Insert rtfRichTextBox1.Text
speller.ToolsSpelling 'Cuadro de ortografía OpenSpelling
speller.EditSelectAll
TXT = speller.Selection()

If Right$(TXT, 1) = vbCr Then _
TXT = Left$(TXT, Len(TXT) - 1) 'Carácter de retorno
new_txt = ""
Pos = InStr(TXT, vbCr) 'Primera posición del carácter retorno

Do While Pos > 0
new_txt = new_txt & Left$(TXT, Pos - 1) & vbCrLf 'Retorno y avance línea
TXT = Right$(TXT, Len(TXT) - Pos) 'Siguiente línea
Pos = InStr(TXT, vbCr)
Loop

new_txt = new_txt & TXT
rtfRichTextBox1.Text = new_txt
Exit Sub

OpenError:
MsgBox "Error" & Str$(Err.Number) & _
" opening WordPro." & vbCrLf & _
Err.Description
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:WORD, ORTOGRAFIA

Publicado por Marval (49 intervenciones) el 12/05/2004 09:42:16
Microsof word 10.0 Object Library, ese es el que tengo cargado, pero te explico lo que me pasa si quieres: Error 429. El componente Active X no puede crear el objeto...
Me han dicho que si no lo intente hacer con el Lotus word pro, pero = es mas chungo...
GRACIAS DE ANTEMANO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar