Buscar

Como usar recursos do word?

Código

Uses
  ComObj, ActiveX;
 
var
  OldWord, NewWord: Variant;
 
function GetOrCreateObject (const ClassName: string): IDispatch;
var
  ClassID: TGUID;
  Unknown: IUnknown;
begin
  ClassID := ProgIDToClassID (ClassName);
  if Succeeded (GetActiveObject (ClassID, nil, Unknown)) then
  OleCheck (Unknown.QueryInterface (IDispatch, Result))
  else
  Result := CreateOleObject (ClassName);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWord := GetOrCreateObject ('Word.Basic');
  NewWord := GetOrCreateObject ('Word.Application');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  OldWord.FileNew;//criar um arquivo novo
  OldWord.AppShow; //chamar a aplicação
  OldWord.Insert ('Mastering Delphi by Pacal Votan'); //inserir o texto
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  Document, Range: Variant;
begin
  NewWord.Visible := True;
  NewWord.Documents.Add;
  // inserir texto
  NewWord.Documents.Item(1).Range.
  Text := 'Mastering Delphi by Pacal Votan';
  // get document and add paragraph
  Document := NewWord.Documents.Item(1);
  Document.Paragraphs.Add;
  Document.Paragraphs.Add;
  // selecionar o terceiro parqagrafo
  Range := Document.Paragraphs.Item(3).Range;
  Range.Text := 'Hello, Delphi';
  Range.Bold := 1;
  Range.Font.Size := 30;
  // salvar o arquivo gerado
  if SaveDialog1.Execute then
  Document.SaveAs (WideString (SaveDialog1.Filename), 0);
  Document.SaveAs (FileName := WideString (SaveDialog1.Filename),
  FileFormat := 0, //formato nativo do word
  SaveNativePictureFormat := 1); // true
end

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 10265 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009