ActiveDelphi

[jo83]

Estou criando um documento do word como se fosse uma especie de mala direta.Consegui salvar os dados da tabela em uma aquivo txt e chamar o arquivo do word mas como como faço que ao mesmo tempo ele já apareça mesclado pois eu criei nele uma mala direta?

[joemil]

blz?

siga esses passos e veremos se ficou do seu jeito

1. abra o arquivo de maladireta no word
2. crie uma nova macro e clique no botao mesclar
3. apos finalizar a mesclagem do documento, salve a macro (nao esqueca do nome da macro
4. no delphi, adicione ComObj na clausula uses
5. use o seguinte codigo:

procedure TForm1.Button1Click(Sender: TObject);
var Word: Variant;
begin
Word := CreateOleObject(\'Word.Application\');
Word.Visible := True;
Word.Documents.Open(\'d:\\maladir.doc\'); // nome do arquivo maladireta
Word.Run(\'Mesclar\'); // mesclar -> nome da macro
Word.ActiveDocument.SaveAs(\'d:\\teste.doc\');// nome temporario
Word.Quit;
end;

espero q este codigo tenha ajudado
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[jo83]

Não funcionou JoemiL, porque uso campos de mesclagem da tabela,veja tenho o seguinte código:

procedure TfrmCriDoc.SpeedButton3Click(Sender: TObject);
Var
Arq:TextFile;
st,caminho , cliente : string;
caminhoDoc : OleVariant;

begin
DataModule2.IBTabCliente.Open;
DataModule2.IBTabCliente.first;
st := Application.ExeName;
caminho:= extractfilepath(st)+\'Dados\\Clientes.txt\';
AssignFile(Arq,caminho);
Rewrite(Arq);
cliente := cmb_cli.keyvalue;
with Qry do begin
Close;
SQL.Clear;
SQL.Add(\'SELECT * FROM TABPROCESSO \');
SQL.Add(\' INNER JOIN TABADVOGADO ON (TABPROCESSO.CODADVOGADO=TABADVOGADO.CODADVOGADO) \');
SQL.Add(\' INNER JOIN TABCLIENTE ON (TABPROCESSO.CODCLIENTE=TABCLIENTE.CODCLI) \');
SQL.Add(\' INNER JOIN TABACAO ON (TABPROCESSO.CODACAO=TABACAO.CODACAO) \');
SQL.Add(\' WHERE codcli = \'+cliente);
Open;
end;
Writeln(Arq,\'NOME;NACIONALIDADE;MAIORIDADE;REGISTRO-NAS;MAE;NACIONALIDADE2;ESTCIVIL2;RG;\'+
\'CPF;ENDERECO;BAIRRO;CIDADE;ESTADO;NOMEAcao;nomeADVOGADO;OAB\');

Writeln(Arq,Qry.FieldByName(\'nome\').AsString+ \'; \'+Qry.FieldByName(\'nacionalidade\').AsString+
\'; \'+Qry.FieldByName(\'maioridade\').AsString+ \'; \'+Qry.FieldByName(\'registronas\').AsString+
\'; \'+Qry.FieldByName(\'mae\').AsString+ \'; \'+Qry.FieldByName(\'nacionalidade2\').AsString+
\'; \'+Qry.FieldByName(\'estcivil2\').AsString+ \'; \'+Qry.FieldByName(\'RG\').AsString+
\'; \'+Qry.FieldByName(\'CPF\').AsString+ \'; \'+Qry.FieldByName(\'Endereco\').AsString+
\'; \'+Qry.FieldByName(\'Bairro\').AsString+ \'; \'+Qry.FieldByName(\'cidade\').AsString+
\'; \'+Qry.FieldByName(\'estado\').AsString+ \'; \'+Qry.FieldByName(\'nomeacao\').AsString+
\'; \'+Qry.FieldByName(\'nomeadvogado\').AsString+ \'; \'+Qry.FieldByName(\'OAB\').AsString);
CloseFile(Arq);


st := Application.ExeName;
caminhodoc:= extractfilepath(st)+\'Documentos\\GRATUIDADE.DOC\';
WordApplication1.Documents.Open(caminho,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

WordApplication1.WindowState:=wdWindowStateMaximize;
WordApplication1.Caption:=\'Benefício de Gratuidade\';
WordApplication1.Visible:=True;
WordApplication1.Documents.Open(caminhodoc,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam);
WordApplication1.Run(\'GRATUIDADE.DOC\');
end;

Só falta mesclar agora ,com????

end;