Boa tarde, 
tenho um problema com VBA, que gostaria que me ajudassem a resolver, pretendo com recurso a código em VBA agregar os dados  de forma a que eles sejam somados.
Em baixo, existe uma imagem , com o exemplo do pretendido. A esquerda a tabela que possui os dados de forma massiva e a direita o pretendido.
Será que alguém me pode auxiliar a resolver isto!
Obrigado.

Bom dia a todos;
Estou com problema na leitura de um arquivo .CSV, 
a coluna que contém número de CNPJ está vindo convertido em notação científica e não estou conseguindo converter para numeração correta
Ex: 3,04918E+12
eu quero mostrar o valor que se encontra convertido que no caso é 3049181000139
porém faço isso manual no próprio excel e isso se torna muito trabalhoso toda vez.
 
alguma luz?

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