Word Número de documento Automático

[Mazinhaa]

Bom dia,

Estou precisando de uma ajuda. Tenho este documento no Word e gostaria de saber como automatizar a numeração em forma crescente após o título ''AVISO DE LANÇAMENTO''. A cada vez que vou emitir esse documento preciso de um número de documento novo em ordem crescente e não gostaria de mantê-lo de forma manual.  Sou leiga sobre o assunto, mas vi em pesquisas que dá pra usar VBA. Fico imensamente agradecida se puderem me ajudar. 

TESTE.docx

[Midori]

@Mazinhaa Coloque o aviso no cabeçalho e ao lado adicione o campo Page em Inserir um Campo

[Mazinhaa]

@Midori mas eu queria usar um único documento para a emissão de todos, não um por página.

[Midori]

@Mazinhaa Com macro poderia ser assim, veja se resolve. O número será incrementado ao aviso na primeira linha toda vez que rodar o código.

 

Sub Macro()
    Dim R As Range
    Dim Aviso, S()  As String
    
    Aviso = "AVISO DE LANÇAMENTO Nº"
    
    Set R = ActiveDocument.Paragraphs(1).Range
        If R = "" Then R = Aviso & vbCrLf
         
        S = Split(R, " ")
         
        If IsNumeric(S(UBound(S))) Then
            R = Aviso & " " & S(UBound(S)) + 1 & vbCrLf
        Else
            R = Aviso & " 1" & vbCrLf
        End If
End Sub

 

[Mazinhaa]

@Midori Poxa, serviu hein!!!

 

Mas estou com duas dúvidas (por ser leiga kkk)

 

> Qual comando usar pra essa numeração ser executada automaticamente ao abrir o arquivo.

 

e o outro ponto, a numeração mudar somente se eu 'salvar o documento anterior', porque por exemplo, eu posso abrir somente pra uma consulta, e na outra vez que eu abrir, ele vai somar + 1

[Midori]

@Mazinhaa  Dá para mudar a numeração quando o documento for salvo. Aí toda vez que abrir e salvar (mesmo se for várias vezes) o incremento será feito apenas uma vez. Seria isso?

[Mazinhaa]

@Midori @Midori Poxa, serviu hein!!!

 

Mas estou com duas dúvidas (por ser leiga kkk)

 

> Qual comando usar pra essa numeração ser executada automaticamente ao abrir o arquivo.

 

e o outro ponto, a numeração mudar somente se eu 'salvar o documento anterior', porque por exemplo, eu posso abrir somente pra uma consulta, e na outra vez que eu abrir, ele vai somar + 1

adicionado 9 minutos depois

@Midori eita, ignora a resposta em cima.

 

Vê, é isso mesmo!!

 

Abri, fiz o documento, salvei. é uma numeração. quando eu abrir no outro dia (ou não), por exemplo, ele precisa estar com a numeração + 1. isso ok.

eu abri o documento, na hora de fechar, ele dá opção de salvar e não salvar, eu não salvando, ele vai permanecer na numeração atual quando eu for abrir novamente?

 

 

e como faço pra executar isso ao abrir o documento, ele atualizar 

 

 

 

[Midori]

@Mazinhaa A outra macro deixe no módulo, coloque esta em ThisDocument,

 

Private WithEvents App As Application
Private Somar   As Boolean

Private Sub Document_Open()
    Set App = Word.Application
    Somar = True
End Sub

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, _
    SaveAsUI As Boolean, Cancel As Boolean)
        If Somar = True Then Call Macro: Somar = False
End Sub

 

[Mazinhaa]

@Midori ai meu deus, é minha salvadoraaaaa kkkkk

 

 

Funcionou!! MUITO OBRIGADA!!

 

eu realizo isso diariamente no meu trabalho e atualmente é feito  todo preenchimento manual no excel, jogo no word, porque tem o timbrado da empresa, pra depois salvar em formado PDF.

 

 

Agora como já está em word, eu só preciso preencher de acordo com as listas suspensas que eu criei (e vou adicionar) para salvar em PDF