Configura Pagina em arquivo Word

Delphi

27/02/2004

Salve!

Preciso gerar um arquivo .doc com configurações de página como:
[b:d4043300a5]Orientação[/b:d4043300a5] e Margens.

Uso o seguinte código:

[i:d4043300a5]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.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.doc´, 3); //Salva o arquivo
end; [/i:d4043300a5]

E usando esta variante não consegui usar esta linha de comando:
[b:d4043300a5]PageSetup.Set_Orientation(wdOrientLandscape);[/b:d4043300a5]

Se alguém puder me ajudar agradeço!


Freestyle

Freestyle

Curtidas 0
POSTAR