Insertar campos de propiedades

Para listar en Hoja1 a partir de A1 las propiedades del libro:

Sub ListarBuiltinDocumentProperties()
On Error GoTo ManejoErrores
Dim dpLibro As DocumentProperties
Dim n As Byte, strDatos As String
Set dpLibro = ThisWorkbook.BuiltinDocumentProperties

For n = 1 To dpLibro.Count
Worksheets("Hoja1").Range("A" & n) = dpLibro.Item(n).Name & ":"
Worksheets("Hoja1").Range("B" & n) = dpLibro.Item(n).Value
Next n

Set dpLibro = Nothing

Exit Sub

ManejoErrores:
If Err.Number = -2147467259 Then
Resume Next
Else
MsgBox prompt:="Error " & Err.Number & " " & Err.Description
End If
End Sub

(Cuidado, porque al ejecutar el código anterior se borrará lo que haya en A1:B30)


Para que en la sección central del encabezado de Hoja1 aparezcan el autor, la fecha y hora de la última modificación y el nombre de la compañía:

Sub PonerPropiedadesDeDocumentoEnEncabezado()
With ThisWorkbook.BuiltinDocumentProperties
Worksheets("Hoja1").PageSetup.CenterHeader = "Autor: " & .Item(3) & vbCr & "Última modificación " & .Item(12) & vbCr & "Compañía: " & .Item(21)
End With
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Gonzalo.cl" escribió en el mensaje news:12e801c3fba4$5a854e80$
¿Como puedo insertar los campos de las propiedades del
documento en una hoja Excel?
¿Y en el encabezado y pié de página?
Por ejemplo: autor, ultima modificación, organización,
etc...

Gracias.

Hola si no he entendido mal tu pregunta creo que deberás de ir al menu Ver/Encabezados y pie de Pagina y en los desplegables que allí aparecen podemos seleccionar las propiedades

Un saldo

Gracias
¿no existe algo más sencillo como en el word "Insertar-

Campo"?



Para listar en Hoja1 a partir de A1 las propiedades del

libro:

Sub ListarBuiltinDocumentProperties()
On Error GoTo ManejoErrores
Dim dpLibro As DocumentProperties
Dim n As Byte, strDatos As String
Set dpLibro = ThisWorkbook.BuiltinDocumentProperties

For n = 1 To dpLibro.Count
Worksheets("Hoja1").Range("A" & n) = dpLibro.Item

(n).Name & ":"

Worksheets("Hoja1").Range("B" & n) = dpLibro.Item

(n).Value

Next n

Set dpLibro = Nothing

Exit Sub

ManejoErrores:
If Err.Number = -2147467259 Then
Resume Next
Else
MsgBox prompt:="Error " & Err.Number & " " &

Err.Description

End If
End Sub

(Cuidado, porque al ejecutar el código anterior se

borrará lo que haya en A1:B30)

Para que en la sección central del encabezado de Hoja1

aparezcan el autor, la fecha y hora de la última
modificación y el nombre de la compañía:

Sub PonerPropiedadesDeDocumentoEnEncabezado()
With ThisWorkbook.BuiltinDocumentProperties
Worksheets("Hoja1").PageSetup.CenterHeader

= "Autor: " & ..Item(3) & vbCr & "Última modificación "
& .Item(12) & vbCr & "Compañía: " & .Item(21)

End With
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Gonzalo.cl"

escribió en el mensaje news:12e801c3fba4$5a854e80
$

¿Como puedo insertar los campos de las propiedades del
documento en una hoja Excel?
¿Y en el encabezado y pié de página?
Por ejemplo: autor, ultima modificación, organización,
etc...

Gracias.
.

No es eso, gracias. Se trata de desplegar las propiedades
del archivo (nombre de autor, ultima fecha de grabación,
Organización, etc.)
esas que aparecenen Archivo->Propiedades.

Hola si no he entendido mal tu pregunta creo que deberà¡s

de ir al menu Ver/Encabezados y pie de Pagina y en los
desplegables que allà­ aparecen podemos seleccionar las
propiedades.

Un saldo
.

Que yo sepa, no.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Gonzalo.cl" escribió en el mensaje news:158101c3fbc5$32581bb0$
Gracias
¿no existe algo más sencillo como en el word "Insertar-

Campo"?