Como posso justificar um texto no word via delph ?i leiam ..
Ola Galera ! vejam bem.
A traves de uma dica aqui mesmo do forum consigo criar um documento no word via delphi, aumentar tamanho da fonte, colocar em negrito e tudo mais, mas não sei como justificar e centralizar o texto, tem como fazer isto ?
Estou criando um sistema para um cartorio de registro de imoveis onde preciso montar a escritura do mesmo imoveis, se alguem puder me dar uma dica de como fazer isto no word ou mesmo como criar esta escritura com texto justificado no delphi fico muito grato.
Marcos Diirr
OBs. o codigo que uso para criar o documento no word segue abaixo.
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;
A traves de uma dica aqui mesmo do forum consigo criar um documento no word via delphi, aumentar tamanho da fonte, colocar em negrito e tudo mais, mas não sei como justificar e centralizar o texto, tem como fazer isto ?
Estou criando um sistema para um cartorio de registro de imoveis onde preciso montar a escritura do mesmo imoveis, se alguem puder me dar uma dica de como fazer isto no word ou mesmo como criar esta escritura com texto justificado no delphi fico muito grato.
Marcos Diirr
OBs. o codigo que uso para criar o documento no word segue abaixo.
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;
Marcosdiirr
Curtidas 0
Respostas
4_olho
02/09/2003
Não entendi uma coisa - você tem todo o trabalho de formatar texto e parágrafos (sua dúvida) e no final, salva o texto SEM formatação (arquivo TXT). Para quê a formatação então?
GOSTEI 0
Marcosdiirr
02/09/2003
Foi erro de digitação na verdade nem estou salvando o texto estou abrindo direto com o word via delphi, mas quero abrir o texto ja formatado.
GOSTEI 0
Arc
02/09/2003
Fala Marcos, blz...
se vc der uma olhada no tópico [b:3aba3d543d]Alteração Cabeçalho no Word Pelo Delphi[/b:3aba3d543d], vc vai encontrar um fonte de como, atraves de marcadores, alterar um documento do Word onde estará o seu texto padrão, todo justificado..., no seu caso a Escritura...
Falow
Abraço
Edson Takashi Yano
CMM Systems
Curitiba/PR
se vc der uma olhada no tópico [b:3aba3d543d]Alteração Cabeçalho no Word Pelo Delphi[/b:3aba3d543d], vc vai encontrar um fonte de como, atraves de marcadores, alterar um documento do Word onde estará o seu texto padrão, todo justificado..., no seu caso a Escritura...
Falow
Abraço
Edson Takashi Yano
CMM Systems
Curitiba/PR
GOSTEI 0
Marcosdiirr
02/09/2003
Não achei nada neste tropico ! pode ser mais claro.
:oops:
:oops:
GOSTEI 0
Arc
02/09/2003
O Tópico citado apresenta as seguintes linhas:
procedure TForm1.Button3Click(Sender: TObject);
var
WinWord, Docs, Doc: Variant;
begin
NovoWord :=AdiquiraOuCrieObjeto(´Word.Application´);
// Tornar o word visivel
NovoWord.Visible := True;
// Abrir arquivo para edição
Doc:= NovoWord.Documents.Open(ExtractFilePath(Application.ExeName)+[b:bb8c289e58]´Exemplo1.doc´[/b:bb8c289e58]);
// Substituir itens do arquivo por texto escolhido
Doc.Content.Find.Execute(FindText := ´[b:bb8c289e58]<0001>[/b:bb8c289e58]´, ReplaceWith := Edit5.Text);
Doc.Content.Find.Execute(FindText := ´[b:bb8c289e58]<0002>[/b:bb8c289e58]´, ReplaceWith := Edit6.Text);
// Salvar Documento
Doc.SaveAs(ExtractFilePath(Application.ExeName) + ´Ronaldo.doc´);
if Application.MessageBox(´Deseja Imprimir este documento?´,´Confirmação´,MB_ICONQUESTION+MB_YESNO)=MRYes then
Doc.PrintOut(false);
// Fechar
NovoWord.Quit;
end;
[b:bb8c289e58][i:bb8c289e58]Exemplo1.doc[/i:bb8c289e58][/b:bb8c289e58] é a sua Escritura que vai estar pronto e justificado por vc, como se cria um doc normal no Word;
[b:bb8c289e58][i:bb8c289e58]0001 e 0002[/i:bb8c289e58][/b:bb8c289e58] são os marcadores dentro da Escritura que vc vai alterar...., edit5.text poderia ser o nome e edit6.text o endereço:
Exemplo Eu, <0001>, residente e domiciliado a <0002> ......
Bom , foi isso que eu entendi na sua duvida, espero ter ajudado
Edson Takashi Yano
CMM Systems
Curitiba/PR
procedure TForm1.Button3Click(Sender: TObject);
var
WinWord, Docs, Doc: Variant;
begin
NovoWord :=AdiquiraOuCrieObjeto(´Word.Application´);
// Tornar o word visivel
NovoWord.Visible := True;
// Abrir arquivo para edição
Doc:= NovoWord.Documents.Open(ExtractFilePath(Application.ExeName)+[b:bb8c289e58]´Exemplo1.doc´[/b:bb8c289e58]);
// Substituir itens do arquivo por texto escolhido
Doc.Content.Find.Execute(FindText := ´[b:bb8c289e58]<0001>[/b:bb8c289e58]´, ReplaceWith := Edit5.Text);
Doc.Content.Find.Execute(FindText := ´[b:bb8c289e58]<0002>[/b:bb8c289e58]´, ReplaceWith := Edit6.Text);
// Salvar Documento
Doc.SaveAs(ExtractFilePath(Application.ExeName) + ´Ronaldo.doc´);
if Application.MessageBox(´Deseja Imprimir este documento?´,´Confirmação´,MB_ICONQUESTION+MB_YESNO)=MRYes then
Doc.PrintOut(false);
// Fechar
NovoWord.Quit;
end;
[b:bb8c289e58][i:bb8c289e58]Exemplo1.doc[/i:bb8c289e58][/b:bb8c289e58] é a sua Escritura que vai estar pronto e justificado por vc, como se cria um doc normal no Word;
[b:bb8c289e58][i:bb8c289e58]0001 e 0002[/i:bb8c289e58][/b:bb8c289e58] são os marcadores dentro da Escritura que vc vai alterar...., edit5.text poderia ser o nome e edit6.text o endereço:
Exemplo Eu, <0001>, residente e domiciliado a <0002> ......
Bom , foi isso que eu entendi na sua duvida, espero ter ajudado
Edson Takashi Yano
CMM Systems
Curitiba/PR
GOSTEI 0
Marcosdiirr
02/09/2003
Valeu isto vai me ajudar muito, mas ainda não sei como formata o texto justificando , em negrito e tamanho da fonte ja consegui mas centralizar e justificar o texto ainda não.
Fico muito grato com qualquer ajuda.
MArcos
Fico muito grato com qualquer ajuda.
MArcos
GOSTEI 0
Guima
02/09/2003
Tem como eu fazer um contrato padrao, abrir, alterar e salvar como, criando um banco de dados de contratos ??? Qdo quiser abrir o contrato de fulano eh facil ...
Sem mais,
Guima
Sem mais,
Guima
GOSTEI 0
Gandalf.nho
02/09/2003
O que eu costumo fazer nesses casos é exportar os dados do registro(s) que eu quero prum arquivo texto e criar um modelo no Word que se comunique com o arquivo TXT para montar a parte variável do documento. Assim dá pra deixar pré formatado o DOC
GOSTEI 0
Thiago Silva
02/09/2003
Alinhamento Justificado: MSWord.JustifyPara;
Alinhamento a Direita: MSWord.RightPara;
Alinhamento a Esquerda: MSWord.LeftPara;
Alinhamento ao Centro: MSWord.CenterPara;
Alinhamento a Direita: MSWord.RightPara;
Alinhamento a Esquerda: MSWord.LeftPara;
Alinhamento ao Centro: MSWord.CenterPara;
GOSTEI 0