Fórum Word dentro da Aplicação. #346072

Procedure Documento(Documento: String);
type
TWordReplaceFlags = set of
(wrfReplaceAll, wrfMatchCase, wrfMatchWildcards);
const   wdFindContinue     = 1;
        wdReplaceOne       = 1;
        wdReplaceAll       = 2;
        wdDoNotSaveChanges = 0;
var
WordApp: OLEVariant;
begin
if not FileExists(ExtractFileDir(application.ExeName) + ´\documentos\´ + Documento) then
       Raise exception.Create(´Não foi possivel encontrar o arquivo:´ + ExtractFileDir(application.ExeName) + ´\documentos\´ + Documento);

                ProcessaRegistros;

                        try
                        WordApp := CreateOLEObject(´Word.Application´);
                        except
                        Messagedlg (´Instale o Microsoft Word!´, mterror, [mbok], 0);
                        end;

                WordApp.Visible := True;
                WordApp.Documents.Open(ExtractFileDir(application.ExeName) + ´\documentos\´ + Documento);
                WordApp.Selection.Find.ClearFormatting;
                WordApp.Selection.Find.Forward := True;
                //Inicio de Variaveis
                WordApp.Selection.Find.Wrap := wdFindContinue;
                WordApp.Selection.Find.Format := False;
                WordApp.Selection.Find.MatchWholeWord := True;
                WordApp.Selection.Find.MatchSoundsLike := False;
                WordApp.Selection.Find.MatchAllWordForms := False;
                //Registro do Cliente
                WordApp.Selection.Find.Text := ´#CCD´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[0].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Estado Civil
                WordApp.Selection.Find.Text := ´#CSC´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[1].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Data de Cadastro
                WordApp.Selection.Find.Text := ´CDC´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[10].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Município
                WordApp.Selection.Find.Text := ´CCI´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[2].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Funcionario quem registrou
                WordApp.Selection.Find.Text := ´CFR´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[3].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Nome do cliente
                WordApp.Selection.Find.Text := ´CNM´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[4].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Endereço Cliente
                WordApp.Selection.Find.Text := ´CED´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[5].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Bairro
                WordApp.Selection.Find.Text := ´CBR´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[6].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Profissão
                WordApp.Selection.Find.Text := ´#CPS´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[7].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Proximidade
                WordApp.Selection.Find.Text := ´CPX´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[8].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Data de nascimento
                WordApp.Selection.Find.Text := ´CDN´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[9].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Pai do Cliente
                WordApp.Selection.Find.Text := ´#CPA´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[10].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Mãe do Cliente
                WordApp.Selection.Find.Text := ´CMA´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[11].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
                //Observações
                WordApp.Selection.Find.Text := ´COB´;
                WordApp.Selection.Find.Replacement.Text := dmr.Relatorio1.fields[12].Text;
                WordApp.Selection.Find.Execute(Replace := wdReplaceAll);


                WordApp.ActiveDocument.PrintOut;
                WordApp.ActiveDocument.Close(wdDoNotSaveChanges);

           WordApp.Quit;

           WordApp := Unassigned;
end;