Dados para o Word
Mandar dados do formulario com tabela paradox para dentro do word, dentro de um contrato para cliente. O nome terá espaço delimitado dentro do documento do word. Por exemplo, o nome entrará no meio de uma frase ja definida em um documento do word.
Passosdelphi
Curtidas 0
Respostas
Heron Bonfim
17/02/2004
var
Word: OleVariant;
begin
Word := CreateOleObject(´Word.Application´);
Word.Visible := True;
Word.Documents.Add;
//configuração da página
Word.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;
Word.ActiveDocument.ReadOnlyRecommended := True;
Word.ActiveDocument.PageSetup.PageWidth := ´21´;
Word.ActiveDocument.PageSetup.PageHeight := ´29,7´;
Word.Selection.PageSetup.TopMargin := ´1´;
Word.Selection.PageSetup.BottomMargin := ´1,5´;
Word.Selection.PageSetup.LeftMargin := ´3´;
Word.Selection.PageSetup.RightMargin := ´1,5´;
Word.Selection.PageSetup.Orientation := wdOrientPortrait;
Word.Selection.Font.Name := ´Times New Roman´;
Word.ActiveWindow.View.TableGridLines := False;
Word.Selection.ParagraphFormat.Alignment := wdAlignParagraphJustify;
Word.Selection.TypeText(´Digite seu texto aqui´);
//Entre aspas fica o texto fixo
//Fora das aspas fica o conteúdo do banco
end;
Word: OleVariant;
begin
Word := CreateOleObject(´Word.Application´);
Word.Visible := True;
Word.Documents.Add;
//configuração da página
Word.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;
Word.ActiveDocument.ReadOnlyRecommended := True;
Word.ActiveDocument.PageSetup.PageWidth := ´21´;
Word.ActiveDocument.PageSetup.PageHeight := ´29,7´;
Word.Selection.PageSetup.TopMargin := ´1´;
Word.Selection.PageSetup.BottomMargin := ´1,5´;
Word.Selection.PageSetup.LeftMargin := ´3´;
Word.Selection.PageSetup.RightMargin := ´1,5´;
Word.Selection.PageSetup.Orientation := wdOrientPortrait;
Word.Selection.Font.Name := ´Times New Roman´;
Word.ActiveWindow.View.TableGridLines := False;
Word.Selection.ParagraphFormat.Alignment := wdAlignParagraphJustify;
Word.Selection.TypeText(´Digite seu texto aqui´);
//Entre aspas fica o texto fixo
//Fora das aspas fica o conteúdo do banco
end;
GOSTEI 0