Macro Recorder mi nije zabeležio nikakve izmene u Properties ali sam objekat našao u Helpu, rešenje je relativno jednostavno. Pogledaj prikačeni fajl: "ručno" sam kreirao osobinu dokumenta i nazvao je "DocOpened"; nadalje o njoj brine kod smešten u delu koji se izvršava pri svakom otvaranju dokumenta: inkrement zatečene vrednosti, osvežavanje prikaza u dokumentu (može da se izostavi ako se podatak neće videti u dokumentu), i snimanje izmene. Ovaj poslednji korak je problematičan jer korisnik može pre otvaranja da spreči makro da se izvrši i tada nema evidencije. Takođe, ovu osobinu možeš da izmeniš i bez otvaranja dokumenta! Desni klik na fajl > Properties. :)
Code:
Private Sub Document_Open()
With ThisDocument.CustomDocumentProperties("DocOpened")
.Value = .Value + 1
End With
Fields.Update
ThisDocument.Save
End Sub
Ako imaš potrebu da
iz VBA kreiraš nove oznake/osobine dokumenta, odradiće ti ova komanda:
Code:
ThisDocument.CustomDocumentProperties.Add _
Name:="DocOpened", _
Value:=0, _
Type:=msoPropertyTypeNumber, _
LinkToContent:=False