Exportar el contenido de un Richtext hacia Word

[[duilioisola]]

Creo entender que quieres

1. que se abra Word
2. pegarle el contenido RTF
3. que se quede visible, sin guardar, para que el usuario pueda seguir haciendo modificaciones

Supongo que podrías hacer lo siguiente:

Código Delphi [-]
  try
    CopiarContenidoConFormatoAlPortapapeles(RichEdit);
    Document.Content.Paste;
    {
    Document.SaveAs(FileName, 16); // 16 = formato docx
    Document.Close;
    WordApp.Quit;
    }
    WordApp.Visible := True;
  finally
    Document := Unassigned;
    WordApp := Unassigned;
  end;

[darkamerico]

Muchas Gracias duilioisola,
efectivamente, tenias razón, me cree otra funcion para hacer el trabajo y quedó asi:

Código Delphi [-]
procedure ExportarArchivoDocX2(const RichEdit: TRxRichEdit);
var
  WordApp, Document: Variant;
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Visible := False;

  Document := WordApp.Documents.Add;

  try
    CopiarContenidoConFormatoAlPortapapeles(RichEdit);
    Document.Content.Paste;
    WordApp.Visible := True;
  finally
    Document := Unassigned;
    WordApp := Unassigned;
  end;
end;

Empezado por duilioisola

Creo entender que quieres

1. que se abra Word
2. pegarle el contenido RTF
3. que se quede visible, sin guardar, para que el usuario pueda seguir haciendo modificaciones

Supongo que podrías hacer lo siguiente:

Código Delphi [-]
  try
    CopiarContenidoConFormatoAlPortapapeles(RichEdit);
    Document.Content.Paste;
    {
    Document.SaveAs(FileName, 16); // 16 = formato docx
    Document.Close;
    WordApp.Quit;
    }
    WordApp.Visible := True;
  finally
    Document := Unassigned;
    WordApp := Unassigned;
  end;