Fórum Geração de arquivos .doc #182722
18/09/2003
0
Preciso gerar um arquivo .doc com uma formatação específica mas consegui fazê-lo apenas usando objeto OLE. Os códigos que eu consegui são esses:
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);
Meu programa não é assim, esses são apenas os comandos mas eles abrem o word para funcionar. Gostaria de saber se é possível gerar um .doc com formatação sem abrir o word?
Obrigado.
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);
Meu programa não é assim, esses são apenas os comandos mas eles abrem o word para funcionar. Gostaria de saber se é possível gerar um .doc com formatação sem abrir o word?
Obrigado.
Gabriel Ferrarini
Curtir tópico
+ 0
Responder
Posts
18/09/2003
Gabriel Ferrarini
ALguém???
Responder
Gostei + 0
27/02/2004
Freestyle
Tire a linha:
MSWord.AppShow;//mostra o word
MSWord.AppShow;//mostra o word
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)