Word VBA - Como acrescentar um número seqüencial a um documento do MS Word - Adding a serial number to a Word document

Termo de Responsabilidade

Esta dica mostra como adicionar um número de série para um documento do MS Word usando o VBA. 

O número é atualizado sempre que o arquivo é aberto ...

Private Sub Document_Open()

  Set myCell = ThisDocument.Tables(1).Cell(Row:=1, Column:=1)

  Let nSerial = Left(myCell.Range.Text, Len (myCell.Range.Text) - 2)

  If nSerial = "" Then nSerial = 0

  ThisDocument.Tables (1).Cell (Row:=1, Column:=1).Range = nSerial + 1

  ThisDocument.Save

End Sub

Referências: 

Tags: VBA, Word, number, sequencial, número