Fórum Exemplo de um edit e um button com a ação de impressao no word #487356

Boa tarde, segue um pequeno exemplo.





Att,
Thiago Irrazabal de Oliveira.

Obrigado amigão pela sua resposta, me ajudou muito.
Mas eu queria criar um formulário de recibo onde eu criaria um documento modelo no Word, deixando as variáveis @nome, @endereco, e por aí vai
e no delphi eu preenchesse os edits e quando eu clicar no button ele chamasse essa pagina modelo no Word e preenchesse os campos das variáveis.
Por dar um exemplo o mais simples possível, pois sou iniciante nessa área.
Atenciosamente; Clécio

veja esse post:

https://www.devmedia.com.br/forum/trocar-varios-campos-no-word/486853

procedure Tfrmcadalu.BitBtn6Click(Sender: TObject);
var
WinWord, Docs, Doc: Variant;
dia,mes,ano:Word;
xtmp,xtxt:string;
begin
DecodeDate(Date(),ano,mes,dia);
WinWord := CreateOleObject('Word.Application');
// WinWord.Visible := True; // Tornar o word visivel
xtxt:=dm.cdsaluserie.AsString;
if not dm.cdsger.Active then
dm.cdsger.Active:=True;
if dm.cdsger.Locate('abrev',dm.cdsaluserie.AsString,[]) then
xtxt:=dm.cdsgernome.AsString;

xtmp:='c:\ceom\'+StringReplace(dm.cdsalucodigo.AsString,'/','_', [rfReplaceAll])+'.doc';

if Not CopyFile('c:\ceom\declaracao.doc',PChar(xtmp) ,false) then
ShowMessage('Não foi possível abrir o arquivo');

Doc:= WinWord.Documents.Open(xtmp); //Abrir arquivo para edição
Doc.Content.Find.Execute(FindText := '@nome' , ReplaceWith := dm.cdsalunome.AsString);
Doc.Content.Find.Execute(FindText := '@endereco' , ReplaceWith := dm.cdsalunascimento.AsString);
ShellExecute(Application.Handle, 'print', PChar(xtmp),nil,nil,0);
end;


Isso te ajuda?

Boa noite a todos.
Vejam bem, eu quero criar uma variável @nome e no delphi criar um edit e um button, quando eu clicar no button, quero que o que foi digitado no edit, preencha essa variável.
e abra o arquivo no word.
Por favor, me ajudem.
Atenciosamente; Clecio