Delphi e Word Exemplo 1

//==================Código Word_VBA====================//

sub no Word()

Dim myTable como tabela

Dim myBox, myPict, myShape As Shape

'Desenhe o primeiro retângulo

Definir myBox = ActiveDocument.Shapes.AddTextbox(Orientação:=1, Esquerda:=90, Superior:=70, Largura:=414, Altura:=200)

'Desenhe uma linha vertical

Definir minhaLinha = ActiveDocument.Shapes.AddLine(255, 70, 255, 270)

'Desenhe a primeira imagem

Definir myPict = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg", _

LinkToFile:=False, SaveWithDocument:=True, Esquerda:=180, Superior:=80, Largura:=65, Altura:=80)

'Desenhe a segunda imagem

Definir myPict = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg", _

LinkToFile:=False, SaveWithDocument:=True, Esquerda:=262, Superior:=80, Largura:=65, Altura:=80)

'Nome

Definir myShape = ActiveDocument.Shapes.AddTextbox(Orientação:=1, Esquerda:=108, Superior:=198, Largura:=126, Altura:=18)

minhaForma.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Nome: Shinnosuke"

'idade

Definir myShape = ActiveDocument.Shapes.AddTextbox(Orientação:=1, Esquerda:=108, Superior:=225, Largura:=126, Altura:=18)

minhaForma.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Idade: 12"

'informações pessoais

Definir myShape = ActiveDocument.Shapes.AddTextbox(Orientação:=1, Esquerda:=351, Superior:=90, Largura:=126, Altura:=99)

minhaForma.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Informações Pessoais"

'Adiciona uma tabela na caixa de texto

Definir myShape = ActiveDocument.Shapes.AddTextbox(Orientação:=1, Esquerda:=288, Superior:=198, Largura:=189, Altura:=63)

minhaForma.Line.Visible = msoFalse

Definir minhaTabela = ActiveDocument.Tables.Add(Range:=myShape.TextFrame.TextRange, NumRows:=3, NumColumns:= _

2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)

myTable.Cell(1, 1).Range.Text = "Peso"

minhaTabela.Cell(1, 2).Range.Text = "40kg"

minhaTabela.Cell(2, 1).Range.Text = "Altura"

minhaTabela.Cell(2, 2).Range.Text = "120cm"

myTable.Cell(3, 1).Range.Text = "Sente-se alto"

minhaTabela.Cell(3, 2).Range.Text = "65cm"

final sub

//==================Código Delphi=====================//

Procedimento em Delphi;

var

WordApp,WordDoc,WordTable,wordShape:OleVariant; // se:Selection;

nome do arquivo:string;

começar

SaveDialog1.InitialDir:=ExtractFilePath(application.ExeName)+'out_file';

SalvarDialog1.Execute;

auto.Atualizar;

nome do arquivo: = savedialog1.Nome do arquivo;

se comprimento(nome do arquivo)=0 então

começar

application.MessageBox('O local de armazenamento do arquivo estatístico não foi selecionado e os dados estatísticos não podem ser salvos! ','Caixa de prompt',mb_ok);

saída;

fim;

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

WordApp.Visible:=Verdadeiro;

WordDoc:=WordApp.Documents.Add;

tentar

//desenha o primeiro retângulo

worddoc.SHAPES.AddTextbox(Orientação:=1, Esquerda:=90, Superior:=70, Largura:=414, Altura:=200);

//desenha uma linha vertical

worddoc.Shapes.AddLine(255, 70, 255.270);

//Desenhe a primeira imagem

worddoc.SHAPES.addpicture(ExtractFilePath(Application.ExeName)+'foto/108259.jpg',

LinkToFile:=False, SaveWithDocument:=True, Esquerda:=180, Superior:=80, Largura:=65, Altura:=80);

//Desenhe a segunda imagem

worddoc.SHAPES.addpicture(ExtractFilePath(Application.ExeName)+'foto/108259.jpg',

LinkToFile:=False, SaveWithDocument:=True, Esquerda:=262, Superior:=80, Largura:=65, Altura:=80);

//Desenhe uma caixa de nome

wordShape:=worddoc.Shapes.AddTextbox(Orientação:=1, Esquerda:=108, Superior:=198, Largura:=126, Altura:=18);

wordShape.Line.Visible := falso;

wordShape.TextFrame.TextRange.Text := 'Nome: Shinnosuke';

//caixa de idade

wordShape:=worddoc.Shapes.AddTextbox(Orientação:=1, Esquerda:=108, Superior:=225, Largura:=126, Altura:=18);//.Select;

wordShape.Line.Visible := falso;

wordShape.TextFrame.TextRange.Text := 'Idade: 12';

//Caixa de informações pessoais

wordShape:=worddoc.Shapes.AddTextbox(Orientação:=1, Esquerda:=351, Superior:=90, Largura:=126, Altura:=99);//.Select;

wordShape.Line.Visible := falso;

wordShape.TextFrame.TextRange.Text := 'Informações pessoais';

//Adiciona tabela na caixa de texto

wordShape:=worddoc.Shapes.AddTextbox(Orientação:=1, Esquerda:=288, Superior:=198, Largura:=189, Altura:=63);//.Select;

wordShape.Line.Visible := falso;

WordTable := worddoc.Tables.Add(Range:=wordShape.TextFrame.TextRange, NumRows:=3, NumColumns:=2,

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed);

WordTable.Cell(1, 1).Range.Text := 'Peso';

WordTable.Cell(1, 2).Range.Text := '40kg';

WordTable.Cell(2, 1).Range.Text := 'Altura';

WordTable.Cell(2, 2).Range.Text := '120cm';

WordTable.Cell(3, 1).Range.Text := 'Sentado alto';

WordTable.Cell(3, 2).Range.Text := '65cm';

WordDoc.saveas(nome do arquivo);

application.MessageBox('Saída bem-sucedida! ','Caixa de prompt',mb_ok);

finalmente

WordDoc.Saved:=true;

WordDoc.Fechar;

WordApp.Quit;

fim;

fim;