Fórum Doc. Word for Delphi #153387

Vê se te ajuda...

174 - Criar um documento no Word
Uses ComObj

procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileNew;//inicia um novo documento
MSWord.insert(´Contrato de Locação´); //Escreve algo
MSWord.insert(#13+´Contrato de Locação´);//Pula uma linha e escreve
MSWord.FontSize(24);//muda o tamanho da fonte
MSWord.italic;//coloca italico
MSWord.bold;//coloca negrito
MSWord.underline;//sublina
MSWord.insert(13+´Contrato de Locação´);//pula a linha e escreve novamente
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.Font(´Arial´);//muda a fonte usada
MSWord.underline(false);//retira o sublinhado
MSWord.italic(false);//retira o italico
MSWord.bold(false);//retira o bold
MSWord.insert(13 +´teste´);
MSWord.insert(13+9 +´teste´);//nova linha e um TAB
MSWord.insert(#13+Table1Razao_Social.Value);//insere algo de uma tabela
MSWord.LineUp(2, 1); //seleciona uma parte do texto
MSWord.TextToTable(ConvertFrom := 2, NumColumns := 1);// monta uma tabela com o texto selecionado
Word.FileSaveAs(´c:\temp\test.txt´, 3); //Salva o arquivo

end;

Também estou querendo montar contratos no delphi e para
ficar completa a informação anterior gostaria de saber
como Centralizar, Justificar, Alinhar a Esquerda, Direita, e
mudar a cor da fonte.
Estou tentando de diversas maneiras mas não estou conseguindo.
Meu e-mail: superlanz@terra.com.br

completando o exemplo anterior:

MSWord.LeftPara; (alinha a esquerda)
MSWord.RightPara; (alinha a direita)
MSWord.CenterPara; (centraliza)
MSWord.Font.Color:=clBlue; (muda a cor do fonte para azul)


Precisamos descobrir justificar, se conseguir avise-me


grato.

A linha de comando que muda a cor da fonte dá o seguinte erro.
´´Numero errado de Parametros´ !!!!

O que Fazer????

para fazer os contratos vc vai precisar trabalhar com mala Direta no Word. a estrutura fica assim: vc criar o documento de banco de dados e chama pelo Delphi o documento Modelo.

se vc quizer mais detalhes manda um e-mail.