Modificar Propiedades....

"Asmas" <@> escribió en el mensaje news:%23M0bcZ3$

A las buenas.
Necesito hacer un macro para modificar las propiedades del libro (
Titulo,asunto,autor,comentarios, etc...) y estoy bastante perdido, pues en
la ayuda de Excel indica mas bien poco.

Hola,
en Excel 2002, existe la propiedad "BuiltInDocumentProperties", y la ayuda para la propiedad incluye un ejemplo que te muestra los nombres de los miembros de la colección de propiedades:

'***************
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw,1).Value = p.Name
rw = rw +1
Next
'***************

Puedes consultar o modificar los valores mediante el índice de propiedad, o clave. Por ejemplo:

'With ActiveWorkbook.BuiltinProperties
.Item("Title") = "Este será campo 'Título'"
.Item("Subject") = "Campo 'Asunto'"
.Item("Author") = "Campo 'Autor'"
.Item("Comments") = "Comentarios"
...etc.
End With
'
Usa el ejemplo de la ayuda para conocer los campos disponibles, y las usas en tu macro para las modificaciones sobre las que creas oportunas.


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

Pues nada, muchas gracias, es precisamente lo que buscaba, ya me apaño yo
con las macros


"Vinchenzo vinç" escribió en el mensaje
news:eLyAyz3$
"Asmas" <@> escribió en el mensaje
news:%23M0bcZ3$

A las buenas.
Necesito hacer un macro para modificar las propiedades del libro (
Titulo,asunto,autor,comentarios, etc...) y estoy bastante perdido, pues en
la ayuda de Excel indica mas bien poco.

Hola,
en Excel 2002, existe la propiedad "BuiltInDocumentProperties", y la
ayuda para la propiedad incluye un ejemplo que te muestra los nombres de los
miembros de la colección de propiedades:

'***************
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw,1).Value = p.Name
rw = rw +1
Next
'***************

Puedes consultar o modificar los valores mediante el índice de
propiedad, o clave. Por ejemplo:

'With ActiveWorkbook.BuiltinProperties
.Item("Title") = "Este será campo 'Título'"
.Item("Subject") = "Campo 'Asunto'"
.Item("Author") = "Campo 'Autor'"
.Item("Comments") = "Comentarios"
...etc.
End With
'
Usa el ejemplo de la ayuda para conocer los campos disponibles, y las
usas en tu macro para las modificaciones sobre las que creas oportunas.


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

"Asmas" escribió en el mensaje news:OFTlF63$

Pues nada, muchas gracias, es precisamente lo que buscaba, ya me apaño yo
con las macros

De nada. Pero un detalle (despiste) que se me escapó, donde dije:

With ActiveWorkbook.BuiltinProperties

lógicamente deberá ser:

With ActiveWorkbook.BuiltinDocumentProperties

¡Me hago viejo!


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas