Fórum Da tabela pro Word #328142

procedure TPrincipal.PessoasdeumEvento2Click(Sender: TObject);
var Doc: Variant;
Evento: string;
begin
    Evento:=inputbox(´Evento´,´Evento:´,Uppercase(´´));

    // Diretorio
    DM.Tbl_Eventos.Close;
    DM.Tbl_Eventos.SelectSQL.Clear;
    DM.Tbl_Eventos.SelectSQL.add(´SELECT * FROM Eventos WHERE EVENTO = :Consulta ´);
    DM.Tbl_Eventos.Params[0].AsString;
    DM.Tbl_Eventos.ParamByName(´Consulta´).AsString:=Uppercase(Evento);
    DM.Tbl_Eventos.open;

    if Uppercase(Evento) = DM.Tbl_EventosEVENTO.AsString then
    begin

        Doc := CreateOleObject(´Word.Application´);

        { Novo documento }
        doc.Documents.Add;

        doc.Selection.TypeText(Text := ´EVENTO: ´+Uppercase(Evento)); {Escreve o nome do evento}


        doc.ActiveDocument.Tables.Add(
        Range := doc.Selection.Range,
        NumRows := 2,
        NumColumns := 3);

        doc.Selection.TypeText(Text := ´NOME:´); { Escreve na primeira célula }
        doc.Selection.MoveRight(12); { Próxima célula }

        doc.Selection.TypeText(Text := ´FONE:´); { Escreve }
        doc.Selection.MoveRight(12);

        doc.Selection.TypeText(Text := ´CIDADE:´); { Escreve }
        doc.Selection.MoveRight(12);


        DM.Tbl_Eventos_E.First;
        while not DM.Tbl_Eventos_E.Eof do
        begin
            Doc.Selection.TypeText(Text := DM.Tbl_Eventos_ENOME.AsString);
            Doc.Selection.MoveRight(12);

            Doc.Selection.TypeText(Text := DM.Tbl_Eventos_EFONE.AsString);
            Doc.Selection.MoveRight(12);

            DM.Tbl_Cidade.Close;
            DM.Tbl_Cidade.SelectSQL.Clear;
            DM.Tbl_Cidade.SelectSQL.Add(´select * from cidade where codigo=´+DM.Tbl_Eventos_ECODIGO_CIDADE.AsString);
            DM.Tbl_Cidade.Open;

            Doc.Selection.TypeText(Text :=DM.Tbl_CidadeNOME.AsString);
            Doc.Selection.MoveRight(12);
            
            DM.Tbl_Eventos_E.Next;
        end;

        //doc.Selection.Tables.Item(1).Select; { Seleciona a 1º tabela }
        doc.Selection.Cells.AutoFit; { auto-formata }

        Doc.visible := true;
        end
        else
            ShowMessage(´Evento não existe. Verifique se você digitou´ +#13+ ´o nome do Evento exatamente como ele está´ +13+ ´cadastrado.´);
end;

Public
function CrieObjeto(const ClasseNome: String): IDispatch;

var 
  Principal: TPrincipal; 
  Word2k: Variant; 

implementation 

uses Funcoes, Geral;

function TPrincipal.CrieObjeto(const ClasseNome: String): IDispatch; 
var Classifique_Id: TGUID; 
    Desconhecido: IUnknown; 
begin 
  Classifique_ID:=ProgIdToClassId(ClasseNome); 
  if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then 
    OleCheck(desconhecido.QueryInterface(Idispatch, Result)) 
  else 
    Result:=CreateOleObject(ClasseNome); 
end;


procedure TPrincipal.btnGeraClick(Sender: TObject);
var Doc: Variant;  
begin 

// faz um select qualquer na tabela 
DM.Tbl_Eventos.Close; 
DM.Tbl_Eventos.SelectSQL.Clear; 
DM.Tbl_Eventos.SelectSQL.add(´SELECT * FROM Eventos where codigo = 1´); 
DM.Tbl_Eventos.open; 


Word2k := CrieObjeto(´Word.Application´); 
Doc := Word2k.Documents.Open(ExtractFilePath(Application.ExeName)+´\Doctos\Eventos.doc´); 

{ Substitui as constantes ´@0X´ do .doc, por dados da sua Table }

Doc.Content.Find.Execute(FindText := ´@01´, ReplaceWith := DM.Tbl_EventosEVENTO.AsString); 

Doc.Content.Find.Execute(FindText := ´@02´, ReplaceWith := DM.Tbl_EventosNOME.Value); 

Doc.Content.Find.Execute(FindText := ´@03´, ReplaceWith := DM.Tbl_EventosFONE.Value); 

Doc.Content.Find.Execute(FindText := ´@04´, ReplaceWith := DM.Tbl_EventosCIDADE.Value); 

{****************************************************}

// mostra o documento
Word2k.Visible := true; 
            
end;