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 = 0ThisDocument.Tables (1).Cell (Row:=1, Column:=1).Range = nSerial + 1ThisDocument.Save
End Sub
Nenhum comentário:
Postar um comentário