Ir ao conteúdo

Posts recomendados

Postado

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

Postado

@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

 

  • Amei 1
Postado

@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

Postado

@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 

 

 

 

Postado

@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

 

  • Amei 1
Postado

@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

  • Curtir 1

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...