Macro para pedir Propiedades

Un pequeño ejemplo para orientarte.

Como cambiar las propiedades por código a un documento



Sub propiedades()

' si hay un error lo omite

On Error Resume Next

ActiveDocument.CustomDocumentProperties("tupropiedad").Delete 'borra la
propiedad

On Error GoTo 0 'restablece el control de errores. Si hay un error avisa

ActiveDocument.CustomDocumentProperties.Add Name:="tupropiedad",
LinkToContent:=False, Value:="mentitas", _

Type:=msoPropertyTypeString 'se agrega una propiedad personalizada

ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) = "Pepe"
'modifica una propiedad interna del documento


End Sub


Suerte
Nilda Beatriz Díaz
Desde el tercer planeta a partir del Sol.
"Chingolo" escribió en el mensaje
news:%

Necesito que al crear archivos mediante Office 2000, ya sean xls, doc,mdb,
etc me pida al ir a grabarlo las Propiedades para completarlas. Hasta aquí
es sencillo ya que esto es configurable desde Herramientas -> Opciones,
pero quisiera buscar alguna macro que al salir del archivo creado me pida,
mediante un formulario, los campos que aparecen en "Propiedades" y algunos
campos más. A su vez necesito también que los valores que le puedo asignar
a cada campo (Título, Asunto, Categoría, etc.) sean unos específicos, es
decir que se deberían presentar en el formulario mediante desplegables y
permitir seleccionar solamente esos valores.

Alguien me puede dar alguna pista o alguna solución. Gracias y un saludo,
César

Nilda:
he probado tu código y me dá un error, pero lo he cambiado a:

Sub propiedades()

ActiveDocument.BuiltInDocumentProperties(wdPropertyCategory) = "Categoría"
ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) = "Autor"
ActiveDocument.BuiltInDocumentProperties(wdPropertyKeywords) = "aaa;bbb;ccc"
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = "Título"
'modifica una propiedad interna del documento


End Sub

y me funciona bien.
Como podría hacer ahora para resolver lo siguiente, suponte que en Categoría
pudiese poner Cat1 o Cat2 o Cat3. Como podría ponerlo esto en un desplegable
y otra cuestiónserá muy complejo cargar estos valores en una BBDD Access y
así si quiero añadir o modificar algún valor lo hago directamente en la BBDD
y me funciona todo sin problema.

Gracias por tu ayuda, César

"Nilda Beatriz Díaz" escribió en el mensaje
news:%23Q4Y$

Un pequeño ejemplo para orientarte.

Como cambiar las propiedades por código a un documento



Sub propiedades()

' si hay un error lo omite

On Error Resume Next

ActiveDocument.CustomDocumentProperties("tupropiedad").Delete 'borra la
propiedad

On Error GoTo 0 'restablece el control de errores. Si hay un error avisa

ActiveDocument.CustomDocumentProperties.Add Name:="tupropiedad",
LinkToContent:=False, Value:="mentitas", _

Type:=msoPropertyTypeString 'se agrega una propiedad personalizada

ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) = "Pepe"
'modifica una propiedad interna del documento


End Sub


Suerte
Nilda Beatriz Díaz
Desde el tercer planeta a partir del Sol.
"Chingolo" escribió en el mensaje
news:%

Necesito que al crear archivos mediante Office 2000, ya sean xls,
doc,mdb, etc me pida al ir a grabarlo las Propiedades para completarlas.
Hasta aquí es sencillo ya que esto es configurable desde Herramientas ->
Opciones, pero quisiera buscar alguna macro que al salir del archivo
creado me pida, mediante un formulario, los campos que aparecen en
"Propiedades" y algunos campos más. A su vez necesito también que los
valores que le puedo asignar a cada campo (Título, Asunto, Categoría,
etc.) sean unos específicos, es decir que se deberían presentar en el
formulario mediante desplegables y permitir seleccionar solamente esos
valores.

Alguien me puede dar alguna pista o alguna solución. Gracias y un saludo,
César

Para lo de las Categorías tendrías que crear un formulario dentro de la
macro, para que muestre la lista desplegable.
Para cargar los datos en la base tendrías que investigar como vincular la
lista desplegable a la tabla dentro de la base de datos.
En estos momentos no tengo nada al respecto, por eso es que no te lo puedo
facilitar.
Cualquier cosa me escribes y vemos.

Suerte
Nilda Beatriz Díaz
Desde el tercer planeta a partir del Sol.
"Chingolo" escribió en el mensaje
news:

Nilda:
he probado tu código y me dá un error, pero lo he cambiado a:

Sub propiedades()

ActiveDocument.BuiltInDocumentProperties(wdPropertyCategory) = "Categoría"
ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) = "Autor"
ActiveDocument.BuiltInDocumentProperties(wdPropertyKeywords) =
"aaa;bbb;ccc"
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = "Título"
'modifica una propiedad interna del documento


End Sub

y me funciona bien.
Como podría hacer ahora para resolver lo siguiente, suponte que en
Categoría pudiese poner Cat1 o Cat2 o Cat3. Como podría ponerlo esto en un
desplegable y otra cuestiónserá muy complejo cargar estos valores en una
BBDD Access y así si quiero añadir o modificar algún valor lo hago
directamente en la BBDD y me funciona todo sin problema.

Gracias por tu ayuda, César

"Nilda Beatriz Díaz" escribió en el mensaje
news:%23Q4Y$

Un pequeño ejemplo para orientarte.

Como cambiar las propiedades por código a un documento



Sub propiedades()

' si hay un error lo omite

On Error Resume Next

ActiveDocument.CustomDocumentProperties("tupropiedad").Delete 'borra la
propiedad

On Error GoTo 0 'restablece el control de errores. Si hay un error avisa

ActiveDocument.CustomDocumentProperties.Add Name:="tupropiedad",
LinkToContent:=False, Value:="mentitas", _

Type:=msoPropertyTypeString 'se agrega una propiedad personalizada

ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) = "Pepe"
'modifica una propiedad interna del documento


End Sub


Suerte
Nilda Beatriz Díaz
Desde el tercer planeta a partir del Sol.
"Chingolo" escribió en el mensaje
news:%

Necesito que al crear archivos mediante Office 2000, ya sean xls,
doc,mdb, etc me pida al ir a grabarlo las Propiedades para completarlas.
Hasta aquí es sencillo ya que esto es configurable desde Herramientas ->
Opciones, pero quisiera buscar alguna macro que al salir del archivo
creado me pida, mediante un formulario, los campos que aparecen en
"Propiedades" y algunos campos más. A su vez necesito también que los
valores que le puedo asignar a cada campo (Título, Asunto, Categoría,
etc.) sean unos específicos, es decir que se deberían presentar en el
formulario mediante desplegables y permitir seleccionar solamente esos
valores.

Alguien me puede dar alguna pista o alguna solución. Gracias y un
saludo, César