numeração automática de documentos

[HELENO de Sant'Anna 0]

Olá a todos,

 

Minha dúvida é bem simples: trabalho num escritório de uma prefeitura e o que faço lá é basicamente digitar documentos (ofícios, memorandos, convites etc.) e para fazer isso utilizo o editor de texto Word, como a maioria dos mortais. Um erro relativamente comum no meu trabalho é emitir dois ofícios com o mesmo número e tentando evitar esse erro realizei diversas buscas na web para algum código vba que possa gerar automaticamente um novo número de ofício toda vez que eu criar um documento do word dentro de uma pasta especifica, que seria a pasta Ofícios.

 

Encontrei um código com essa finalidade na web mas era uma postagem muito antiga, que tratava de arquivos .INI, indicadores e macros. Não consegui implementar porque a explicação era muito vaga e sem um exemplo prático.

 

Link: http://www.ativoaccess.com.br/forum/index.php?showtopic=46

 

Não estou seguro se esse assunto é realmente nesse fórum, se não for, de antemão peço desculpas, porém desde já agradecido pela atenção dispensada.

[Dan Borges 26]

Camarada, não sei muito bem sobre macros mas tem esse que contabiliza a quantidade de arquivos em uma pasta:

Sub sample()

    Dim FolderPath As String, path As String, count As Integer
    FolderPath = "C:\Documents and Settings\Usuario\Desktop\Oficios"

    path = FolderPath & "\*.docx"

    Filename = Dir(path)

    Do While Filename <> ""
       count = count + 1
        Filename = Dir()
    Loop

    Range("Q8").Value = count
    'MsgBox count & " : files found in folder"
End Sub

Fonte: http://stackoverflow.com/questions/16753701/count-files-in-specific-folder-and-display-the-number-into-1-cel

 

Creio que tendo esse valor é só inserir no Word, se você souber como.

Até me interesso, pois também trabalho com esse tipo de documentação.

[HELENO de Sant'Anna 0]

Olá Dan Borges,

 

De antemão gostaria de agradecer a atenção dispensada no atendimento do meu questionamento. Porém, sinceramente não sei se esse código atende a minha necessidade. O que eu quero na verdade é o seguinte: imagine que eu tenha uma pasta do Windows dentro da pasta, por exemplo, Meus Documentos com o nome de Ofícios e essa pasta já contenha 5 ofícios, por exemplo. Então, quando eu criar um Novo documento Word dentro da referida pasta, lá no texto Ofício nº XX/2015, deverá aparecer AUTOMATICAMENTE o número 6 na posição de XX, ou seja, ficaria Ofício nº 6/2015. Tem como fazer isso, porque já ouvi relatos de pessoas que trabalham no Tribunal de Justiça "não sei da'onde" que lá eles tem um documento Modelo do Word que gera o número do Ofício automaticamente.