Jump to content
Sign in to follow this  
Callao2908

Ultima fecha de modificación de archivos word y excel

Recommended Posts

Buenas noches, molesto vuestra atención, porque deseo saber si mediante algún método, función, formula o macro, es posible hacer que aparezca en el pie de página, la última fecha de modificación del archivo. Agradeceré vuestra sugerencia

Gracias por la atención

Jorge desde Perú

Share this post


Link to post
Share on other sites

Buenas [uSER=530]@Callao2908[/uSER] tienes 2 opciones

1º Con VBA, coloca el siguiente código

Sub ShowDocumentInformation()
    Dim d As String
    With CreateObject("Scripting.FileSystemObject")
        With .GetFile(Documents(Documents.Count).FullName)
            d = UCase(Documents(Documents.Count).Name) & vbNewLine & vbNewLine & vbTab & _
                "Creado: " & .DateCreated & vbNewLine & vbTab & _
                "Último acceso: " & .DateLastAccessed & vbNewLine & vbTab & _
                "Última modificación: " & .DateLastModified & vbNewLine
        End With
    End With
    MsgBox d, 0, "Información de acceso al archivo"
End Sub

2º Insertar un Elemento rápido, para ello

a) Clic
Insertar

B)

En Texto despliegas el menú
Elemento rápido
, Clic en
campo

c) en
Categorías
, seleccionas
Info. documento

d) en
Nombres de campos
, seleccionas
DocProperty

e) en
Propiedades de campo
, seleccionas
LastSavedTime

f) click en
Aceptar

Un saludo

Share this post


Link to post
Share on other sites
Sign in to follow this  

×
×
  • Create New...

Important Information

Privacy Policy