Buscar por:

Escrever num documento do word

Código

Pode dar jeito termos um documento em Word e querermos inserir alguns dados a partir do Delphi e depois imprimir esse documento. Tudo isso pode ser feito atraves de código simples no Delphi.

procedure TForm1.Button1Click(Sender: TObject);

var

  WordApp: OLEVariant;

begin

  try

    WordApp := CreateOLEObject('Word.Application');

  except

    on E: Exception do

    begin

      E.Message := 'O Word não está instalado.';

      raise;

    end;

  end;

  try

    WordApp.Visible := False;

       //Abrir o documento que pretendemos

    WordApp.Documents.Open('c:teste1.doc');

       //Inserir o texto que pretendemos no inicio do documento

    WordApp.Selection.TypeText('Nº do Plano: '+

    plano+#13+'Quantidade: '+ quant+#13+#13);

       //Imprimir o documento

    WordApp.ActiveDocument.PrintOut;

       //Fechar sem gravar (True para gravar)

    WordApp.ActiveDocument.Close(False);

  finally

    WordApp.Quit;

    WordApp := Unassigned;

  end;

end;

Nuno Filipe