Corrector ortografico

Ariel
01 de Junio del 2004
Hola amigos:
tengo el siguiente codigo donde corrigo el texto de 2 textbox y un combo utilizando el corrector ortografico de word, el texto lo corrige muy bien, pero me encuentro con el problema que al final le agrega un caracter (I) a cada text y al combo ¿porque puede ser?, aclro que el codigo no es mio, sino que lo encontre en internet. Utilizo Officce 2000.



Private Sub Command1_Click()
Dim objWord As New Word.Application
Dim objDocument As New Document
objWord.WindowState = wdWindowStateMinimize
Set objDocument = objWord.Documents.Add()
With objDocument
.Select
.Range.Text = Text1.Text
.CheckSpelling , True, True
.CheckGrammar
Text1.Text = Replace(.Range.Text, vbCr & vbCr, vbCrLf & vbCrLf)
.Saved = True
.Range.Text = Text2.Text
.CheckSpelling , True, True
.CheckGrammar
Text2.Text = Replace(.Range.Text, vbCr & vbCr, vbCrLf & vbCrLf)
.Saved = True
.Range.Text = Combo1.Text
.CheckSpelling , True, True
.CheckGrammar
Combo1.Text = Replace(.Range.Text, vbCr & vbCr, vbCrLf & vbCrLf)
.Saved = True
.Close
End With
objWord.Quit
Set objDocument = Nothing
Set objWord = Nothing
End Sub