Većina ovih stvari može da se izuče iz
builtinproperties documenta. Ali ne baš sve
Standardno se pamti samo zadnji save - dakle nema liste kad je sve dokument modifikovan, ako sam ne promeniš proceduru za Save pa upisuješ i to u neki Custom property
Ovo ZAISTA kreiran nisam siguran šta znači - možeš da izvučeš Date Created kako ga word i system vide.
Ovde imaš fukciju GetInfo koja koristi koristi funkciju
ReadProp. GetInfo vraća string sa podacima koje možeš naći iz aktivnog dokumenta
Code:
Function ReadProp(sPropName As String) As Variant
Dim bCustom As Boolean
Dim sValue As String
On Error GoTo ErrHandlerReadProp
'Try the built-in properties first
'An error will occur if the property doesn"t exist
sValue = ActiveDocument.BuiltInDocumentProperties(sPropName).Value
ReadProp = sValue
Exit Function
ContinueCustom:
bCustom = True
Custom:
sValue = ActiveDocument.CustomDocumentProperties(sPropName).Value
ReadProp = sValue
Exit Function
ErrHandlerReadProp:
Err.Clear
'The boolean bCustom has the value False, if this is the first
'time that the errorhandler is runned
If Not bCustom Then
'Continue to see if the property is a custom documentproperty
Resume ContinueCustom
Else
'The property wasn"t found, return an empty string
ReadProp = ""
Exit Function
End If
End Function
Function GetInfo() As String
' Get information from the active document
'
Dim info As String
info = "Ime dokumenta: " & ActiveDocument.Name & vbCr
PropVal = ReadProp("Author")
info = info & "Kreator: " & PropVal & vbCr
PropVal = ReadProp("Number of pages")
info = info & "Broj strana:" & PropVal & vbCr
PropVal = ReadProp("Number of characters")
info = info & "Broj karaktera:" & ActiveDocument.Characters.Count & vbCr
PropVal = ReadProp("Creation date")
info = info & "Datum kreiranja:" & PropVal & vbCr
PropVal = ReadProp("Last save time")
info = info & "Datum izmene:" & PropVal & vbCr
GetInfo = info
End Function
Dalje treba da u petlji otvoriš folder i otvaraš jedan po jedan word document i pozivaš ovu proceduru i štampaš ili upišeš u Excel ili šta god. Mislim da smo ovo sa petljom već imali negde, pa pokušaj da se sam snađeš.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?