Save Word to PDF

[rossine]

Boa Tarde Srs,

Eu estou carregando um arquivo padrão WORD via OLE e preciso salvar em PDF, como eu poderia fazer isto ?

Código: Selecionar todos

              oWord := win_oleCreateObject( "Word.Application" )
               oDoc  := oWord:Documents:Open( cFile )
...
              oWord:ActiveDocument:SaveAs( cFileSave )    <---- Aqui Salva como .DOC

             ??? SaveToPdf() ???
...

Obrigado,

[Itamar M. Lins Jr.]

Ola!
Abre o word, gravar macro e veja como é. Tem postado aqui no foro.
Faz o passo a passo gravando a macro.

Saudações,
Itamar M. Lins Jr.

[rossine]

Olá Itamar,

Consegui achar o que eu precisava.

Código: Selecionar todos

#define   wdFormatPDF    17

...

oWord:ActiveDocument:SaveAs2( cFilePDF, wdFormatPDF )

Obrigado,