Rave reports fechando o aplicativo

Question

quem ja viu o Rave reports fechar o aplicativo ao tentar dar um Preview?...

Mahdak · Answer

desisti de tentar encontrar a solu��o....
fiz os relat�rios no word mesmo... s� que pintou um probleminha
gera o erro quando o aplicativo vai ler a linha abaixo:

Doc.Selection.MoveRight(12);
erro: �Method �Selection� not supported by automation object�

por via das duvidas vou postar aqui o metodo de acesso ao word.
a id�ia � que eu tenho uma tabela com varios dados entao no la�o while abaixo eu vou at� a variavel da primeira coluna da tabela que quero come�ar a inserir os dados e dali em diante eu vou pulando de celula em celula e inserindo os dados.

se alguem puder me dar uma m�o fico muito agradecido..

var
Doc,Docs,WinWord: Variant;
arquivo,DocGerado : String;
begin
    // Pega o nome do arquivo...
  arquivo := ExtractFilePath(Application.ExeName) + �Laudo.doc�;


  try
    WinWord := CreateOleObject(�Word.Application�);
  except
    raise Exception.Create(�N�o foi poss�vel iniciar o MS Word!�);
  end;


    WinWord.Visible := false;     //N�o Mostra o Word
    Docs := WinWord.Documents;    // Pega uma interface para o objeto que manipula documentos
    Doc := Docs.Open(arquivo);    // Abre um Documento

    //Capa
    Doc.Content.Find.Execute(FindText := �@NumeroLaudo�, ReplaceWith := cdsAmostraNumeroLaudo.AsString);
    Doc.Content.Find.Execute(FindText := �@Amostra�, ReplaceWith := cdsAmostraAmostra.AsString);
    Doc.Content.Find.Execute(FindText := �@Classe�, ReplaceWith := cdsClassificacaoClasse.AsString);


frmClass3RRes.cdsTox.First;
    while not frmClass3RRes.cdsTox.Eof do
    begin

      if frmClass3RRes.cdsToxParametro.AsString = �� then
      begin
        Doc.Content.Find.Execute(FindText := �@PLix�, ReplaceWith := ��);
        Doc.Selection.MoveRight(12);
      end
        else
          begin
            Doc.Content.Find.Execute(FindText := �@PLix�, ReplaceWith := frmClass3RRes.cdsToxParametro.AsString);
            Doc.Selection.MoveRight(12);
          end;

      if frmClass3RRes.cdsToxResultado.AsString = �� then
      begin
        Doc.Selection.TypeText(Text := ��);
        Doc.Selection.MoveRight(12);

      end
        else
          begin
            Doc.Selection.TypeText(Text := frmClass3RRes.cdsToxResultado.AsString);
            Doc.Selection.MoveRight(12);

          end;
end;
.
.
.
WinWord.Quit; // Fecha o Word
end;

abra�os a todos[/b]

F�rum Rave reports fechando o aplicativo #351160