Invocar Corrector ortografico de Word para edit y memos

[Lizette]

Ya lo instale Roman, al parecer si me corre el demo que viene pero no me despliega ningun lenguaje en el combo, y si doy click en el boton pues no me hace nada, tengo delphi 7, leyendo las instrucciones instale los componentes que tienen 7, no se si se deba a que tengo office 2007.

[[cHackAll]]

Código Delphi [-]
uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var Word, Document, Selection: OleVariant;
begin
 Word := CreateOleObject('Word.Application');
 Document := Word.Documents.Add;
 Windows.SetParent(FindWindow(nil, PChar(string(Document.FullName + ' - ' + Word.Caption))), Application.Handle);
 Selection := Word.Selection;
 Selection.Text := Memo1.Text;
 Document.CheckGrammar;
 Selection.WholeStory;
 Memo1.Text := StringReplace(Selection.Text, #13, #13#10, [rfReplaceAll]);
 Word.Quit(False);
end;

Solo una breve corrección al codigo inicial.

[roman]

Empezado por Lizette

Ya lo instale Roman, al parecer si me corre el demo que viene pero no me despliega ningun lenguaje en el combo, y si doy click en el boton pues no me hace nada, tengo delphi 7, leyendo las instrucciones instale los componentes que tienen 7, no se si se deba a que tengo office 2007.

¿Instalaste también lo del primer enlace? Tienes que instalarlo porque son los diccionarios. Y no hay que tener instalado Office; es independiente totalmente.

// Saludos

[Lizette]

con razón, ese no lo habia instalado. Gracias

[[rcarrillom]]

Vaya, casualmente revisando los mensajes nuevos descubro ésto que necesito de vida o muerte para dentro de 12 hrs, es lo único que me faltaba para un desarrollo urgente, que prescinde totalmente de M$ Office, pero que es para edición de textos y los originales fueron creados con la suite. A propósito, estoy usando las WPTools. Y que conste, nada de ribbons, wácala de pollo!