Pesquisar na Comunidade

Pessoal boa noite Tenho um sistema em Visual Basic 6 que utiliza um documento do Word que é enviado para as empresas, onde tenho algumas flags que são utilizadas para colocar no nome da empresa e endereço e que são enviadas via email Estou conseguindo converter esse documento do WORD em PDF sem problemas Private Sub ConverterWordParaPDF() On Error GoTo TrataErro Dim ObjWord2 As Word.Application Dim ObjWordDoc2 As Word.Document Set ObjWord2 = CreateObject('Word.Application') ObjWord2.Visible = False ObjWord2.DisplayAlerts = wdAlertsNone Set ObjWordDoc2 = ObjWord2.Documents.Open(App.Path + '\Documento.doc', True, True, False, Replace(Replace(Replace(Replace(Rs(1), '/', ''), '-', ''), '.', ''), '_', '')) ObjWordDoc2.ExportAsFixedFormat OutputFileName:= _ App.Path + '\Documento.pdf', ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _ wdExportAllDocument, from:=1, To:=1, Item:=wdExportDocumentContent, _ IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _ wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _ True, UseISO19005_1:=False ObjWord2.Visible = False ObjWord2.Quit (False) Set ObjWord2 = Nothing Exit Sub TrataErro: msgbox 'Erro ao converter o documento' End Sub Porém a senha que coloquei no word, não está ficando no arquivo pdf após a conversão, e também não achei nenhuma opção para incluir uma senha nesse novo arquivo Não estou usando o Crystal e o documento do word é um documento qualquer que o cliente usa, por isso que não da para utilizar o crystal Alguém sabe como que eu poderia fazer essa conversão e colocar a senha nesse novo arquivo ou teria alguma outra forma de converter esse documento para pdf que desse para colocar a senha Desde já agradeço a todos

Preciso armazenar o total das páginas de um determinado documento em uma variável no delphi. Sei como inserir a informação no modelo MSWord.Selection.Fields.Add( Range:=MSWord.Selection.Range, Type:=wdFieldEmpty, Text:= 'NUMPAGES * Arabic ', PreserveFormatting:=True); mas como armazenar essa informação em uma variável tipo integer? Obrigado