escaneo de propiedades de texto

[pabloloustau]

hola a todos!
tengo un richedit y quiero pasar mi texto a word conservando el tamaño de la fuente.
uso esto codigo para hacerlo, pero mi problema es que de esta forma me cambia el tamaño de todo el texto, tomando el tamaño de el ultimo cambio.

var
 WordApp, Document, Selection, word: OleVariant;
 I: integer;
begin
  WordApp := CreateOleObject('Word.Application');
  Document := WordApp.Documents.Open('C:\doc1');
  wordapp.visible:= true;
  Selection := WordApp.Selection;
  word:= WordApp.ActiveDocument.ActiveWindow.ActivePane.Selection;
  word.font.size:= richedit1.SelAttributes.Size;
  Selection.TypeText(RichEdit1.Text);

no me dan un ejemplo de como poder hacer una busqueda del tamaño de cada palabra para poder pasarla a word?

desde ya muchas gracias.