Buscar por:

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;