ActiveDelphi

[djtatao]

Boa tarde
Estou fazendo um documento no word e esta saindo tudo OK, esta substituindo e tudo mais.
Mas preciso acertar a margem antes de visualizar, vi na net o seguinte código:

Word.Selection.PageSetup.LeftMargin := '1,5';
Word.Selection.PageSetup.RightMargin := '1,5';

quando ele visualiza a margem direita e esquerda estão com 1.5 mesmo, mas quando da o comando word.quit da o erro no word pedindo para enviar relatório para a Maicro..... bla bla bla...

Se tirar as linhas de configurações das margens ai o erro some.
Alguem poderia me ajudar.
Obrigado a todos.

[djtatao]

Boa tarde a todos,
Não achei como usar o comando

Word.Selection.PageSetup.LeftMargin := '1,5';
Word.Selection.PageSetup.RightMargin := '1,5';

e não dar erro, mas resolvi de outra maneira.

...
Doc := WinWord.Documents.Open(arquivo); //arquivo modelo
Doc.SaveAs('c:\Doc1.doc'); //salvei como outro nome

Doc := WinWord.Documents.Open('c:\Doc1.doc'); //abri este arquivo
WinWord.Selection.WholeStory; //seleciona todo o texto
WinWord.Selection.Delete; //deleta todo o texto selecionado

...

Se for útil a alguem...
Obrigado a todos.