COM - comunicando com word usando activeX servers

var

  DocPadrao, NovoPadrao, Item: OleVariant;

begin

  WordApplication1.Connect;                              // Conecta com o Word

  WordApplication1.Visible     := True;                  // Mostra

  WordApplication1.WindowState := wdWindowStateMaximize; // Maximiza

  WordApplication1.Documents.Add(DocPadrao, NovoPadrao); // cria novo Doc

  // Conecta este outro componente com o Word

  WordDocument1.ConnectTo( WordApplication1.Documents.Item(Item) );

  // Cria tabulações

  WordDocument1.Range.InsertAfter( 'Nome'#9 );

  WordDocument1.Range.InsertAfter( 'Cidade'#9 );

  WordDocument1.Range.InsertAfter( 'Fone'#9 );

  WordDocument1.Range.InsertAfter( #13 );

  // Coloca valores

  WordDocument1.Range.InsertAfter( 'Junior'#9 );

  WordDocument1.Range.InsertAfter( 'Criciuma'#9 );

  WordDocument1.Range.InsertAfter( '462-0052'#9 );

  WordDocument1.Range.InsertAfter( #13 );

  WordDocument1.Range.InsertAfter( 'Flavio'#9 );

  WordDocument1.Range.InsertAfter( 'Nova Veneza'#9 );

  WordDocument1.Range.InsertAfter( '9994-4055'#9 );

  WordDocument1.Range.InsertAfter( #13 );

  // seleciona tudo

  WordDocument1.Select;

  // Converte selecionado em tabela

//  WordDocument1.

  // Fecha Word

//  WordApplication1.Quit;

//  WordApplication1.Disconnect;

end;