Foros Club Delphi - escaneo de propiedades de texto

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.

Código:

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.