Ultima fecha de modificación de archivos word y excel

[Callao2908]

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ú

[logroastur]

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

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

[Callao2908]

Gracias Miguel Angel, procederé a hacer las pruebas coorespondientes.

Gracias

Jorge

[Callao2908]

Gracias Miguel Angel. Correcto.

Por favor dar por SOLUCIONADO el tema

Saludos Jorge