Encabezado y pie de pagina

Monica:


Disculpa la repeticion de tantos envios pero me daba error y aparecia como
no enviado.


Gracias


Saludos



Lisandro





"Lisandro Gracias" escribió en el mensaje de
noticias:

Monica:


Gracias por tu respuesta.

Lamento decirte que nunca hice nada de lo que me describis, ni menos con
codigos de programacion. Solo me doy maña para usar los sistemas
operativos y los programas ...pero nada mas :-(

Que es lo que quiero hacer?

Word:

en alto a la izquierda insertar el "nombre del archivo" con letra en
tamaño 9
al pie en el centro o a la derecha poner "pagina x de x" con letra tamano
9


Excel : lo mismo

De aqui en mas, mucho te agradeceria si me indicas como debo hacerlo y que
codigos debo usar.


Un saludo


"Monica May" escribió en el mensaje de
noticias:

hola Alberto,

... Office 2000 y quisiera saber si hay alguna posibilidad de hacer que,
mediante algun programa o script de visual basic, todos mis documentos
hechos en Word hasta ahora se les añadiera en el encabezado el titulo
del archivo y en el pie "pagina x de xx".
Lo mismo para los archivos de Excell

Para Word podrias utilizar la plantilla [ Normal.dot ] crear un codigo en
la apertura de libro de la plantilla normal.dot para archivos ya creados.
Puedes grabar el codigo en un archivo normal de Word -> insertando el
campo [ Filename] y el campo [numero de paginas + el numero de pagina
totales ] Teniendo en cuenta que el Campo del nombre del archivo va
acompañado tambien de su extension...

Para Excel podrias utilizar la Plantilla [ Personal.Xls] o utilizar una
plantilla XLT para poder realizar el mismo proceso que en Word..

Eso si... los nuevos documentos tambien tendrian las mismas
caracteristicas ... deberas abrir todos los archivos para que quedase
grabado y luego eliminar dichos codigos

Se podria realizar un codigo para todos los archivos al golpe .pero
eso si tendrias que ir jugando con las carpetas donde se encuentren, como
estan distribuidos, etc... etc... etc..

Comentanos!!

Saludos
Monica



www.fermu.com
www.teladearana.es

hola alberto lisandro,

nunca hice nada de lo que me describis, ni menos con codigos de
programacion. Word:
en alto a la izquierda insertar el "nombre del archivo" con letra en
tamaño 9
al pie en el centro o a la derecha poner "pagina x de x" con letra tamano
9

Para grabar un codigo o macro >>

menu >> Herramientas >> macros>> Grabar nueva macro ..

luegos ves a >>

Ves a menu >> Insertar >> Campo

ahi busca en esa ventana de dialogo que te saldra, busca el campo >>

[ Filename ]

y lo insertas.

Luego para el numero de pagina y numero total de paginas >>

sigues el mismo procedimiento anterior pero buscas los campos >>

PAGE y NUMPAGES

y los insertas .

Excel : lo mismo
...

En excel lo mismo pero desde Archivo >> Configurar pagina >> Pestana >>
Encabezado y pie de pagina >> boton personalizar encabezado

y desde ahi veras que puedes incluir el nombre de archivo y los numeros de
pagina :-) !!

comentanos!!

Saludos
Monica


www.fermu.com
www.teladearana.es

Monica:


Gracias por tu respuesta. La intente hacer con Word y vi que es facil.

Como ya habia hecho una plantilla normal.dot con esos campos, me viene la
duda de si con esta macro los encabezados y pie de pagina se

aplicaran para atras o para adelante. Me explico mejor. La macro modificaria
todos los archivos exitentes o solo modificaria todos los

archivos nuevos?

Ademas como se hace para ejecutar esa macro?

Como le digo que tengo archivos en varias unidades (C;D;E;F;G) para que me
los modifique todos?

Finalmente la macro se aplica a todos los archivos sin abrirlos o se aplica
la macro solo cuando abro cada archivo?

Disculpame si te mande varios emails pero tenia problemas con el gestor de
correos que me decia que no lo habia mandado y en vez si.

Soy Lisandro pero mi seudonimo es Alberto.

Un saludo


Lisandro, alias "Alberto"








"Monica May" escribió en el mensaje de
noticias:#

hola alberto lisandro,

nunca hice nada de lo que me describis, ni menos con codigos de
programacion. Word:
en alto a la izquierda insertar el "nombre del archivo" con letra en
tamaño 9
al pie en el centro o a la derecha poner "pagina x de x" con letra tamano
9

Para grabar un codigo o macro >>

menu >> Herramientas >> macros>> Grabar nueva macro ..

luegos ves a >>

Ves a menu >> Insertar >> Campo

ahi busca en esa ventana de dialogo que te saldra, busca el campo >>

[ Filename ]

y lo insertas.

Luego para el numero de pagina y numero total de paginas >>

sigues el mismo procedimiento anterior pero buscas los campos >>

PAGE y NUMPAGES

y los insertas .

Excel : lo mismo
...

En excel lo mismo pero desde Archivo >> Configurar pagina >> Pestana >>
Encabezado y pie de pagina >> boton personalizar encabezado

y desde ahi veras que puedes incluir el nombre de archivo y los numeros de
pagina :-) !!

comentanos!!

Saludos
Monica


www.fermu.com
www.teladearana.es

Gracias Lisanndro :-),

ya habia hecho una plantilla normal.dot con esos campos, me viene la
duda de si con esta macro los encabezados y pie de pagina se
aplicaran para atras o para adelante. La macro modificaria todos los
archivos exitentes o solo modificaria todos los
archivos nuevos?
Ademas como se hace para ejecutar esa macro?
Como le digo que tengo archivos en varias unidades (C;D;E;F;G) para que me
los modifique todos?
Finalmente la macro se aplica a todos los archivos sin abrirlos o se
aplica la macro solo cuando abro cada archivo?

Pues es que resulta que tambien he enviado mails y no salen :( bueno a ver
si me puedes ver ahora :-S !


Para que al abrir todos los documentos tanto nuevos como viejos puedas
ponerle dichas propiedades de formato que quieras aplicar >>

Si tu macro se llama >>

Sub Macro1()
' Aqui tu codigo
End Sub

la tienes que llamar asi >>

Private Sub Document_Open()
'aqui tu codigo ...
End Sub

y poner el codigo en ThisDocument >>

mirate el siguiente flash por [ Internet Explorer ] >>
http://www.fermu.com/lang-es/articu...office/533


Bien como es un codigo de Evento Document_Open() entonces no necesitaras
ejecutarla porque se ejecutara cuando abras los archivos

si tienes distintas particiones y todas ellas comparten la misma ruta de
plantilla Normal.dot, entonces todos los archivos al abrir indistintamente
esten en una o otra particion se ejecutara la macro al abrir...

El codigo solo para documentos nuevos y los viejos si estos se abren sino no
:(

Prueba y comentanos!!

Saludos
Monica


www.fermu.com
www.teladearana.es

MOnica



Me agarraste demasiado duro para que aprenda visual basic.

Te pongo el codigo que me genero al hacer la macro y ponele o corregile lo
que falta. Por mas que intente me daba toda clase de errores.


Te pego el codigo



'
' Macro1_MonicaMay
' Macro registrata il 29/12/2008 da Lisandro
' se activa con Ctrl + 9



If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
NormalTemplate.AutoTextEntries("Nome file").Insert
Where:=Selection.Range
Selection.TypeText Text:=vbTab & vbTab
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
Selection.TypeText Text:=" "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTime
Selection.MoveLeft Unit:=wdCharacter, Count:, Extend:=wdExtend
Selection.Font.Size = 9
ActiveDocument.SaveAs FileName:= _
"C:\Documents and Settings\Papucho\Dati
applicazioni\Microsoft\Modelli\Normal_Monica.dot" _
, FileFormat:=wdFormatTemplate, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="",
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False,
SaveFormsData _
:=False, SaveAsAOCELetter:=False
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
NormalTemplate.AutoTextEntries("Autore").Insert Where:=Selection.Range
Selection.TypeText Text:=vbTab
NormalTemplate.AutoTextEntries("Pagina X di Y").Insert Where:=Selection.
_
Range
Selection.MoveLeft Unit:=wdCharacter, Count:#, Extend:=wdExtend
Selection.Font.Size = 9
ActiveDocument.Save
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub


Desde ya gracias por tu ayuda, Y decime que hago con este codigo o donde lo
coloco


Un saludo


Lisandro








"Monica May" escribió en el mensaje de
noticias:

Gracias Lisanndro :-),

ya habia hecho una plantilla normal.dot con esos campos, me viene la
duda de si con esta macro los encabezados y pie de pagina se
aplicaran para atras o para adelante. La macro modificaria todos los
archivos exitentes o solo modificaria todos los
archivos nuevos?
Ademas como se hace para ejecutar esa macro?
Como le digo que tengo archivos en varias unidades (C;D;E;F;G) para que
me los modifique todos?
Finalmente la macro se aplica a todos los archivos sin abrirlos o se
aplica la macro solo cuando abro cada archivo?

Pues es que resulta que tambien he enviado mails y no salen :( bueno a ver
si me puedes ver ahora :-S !


Para que al abrir todos los documentos tanto nuevos como viejos puedas
ponerle dichas propiedades de formato que quieras aplicar >>

Si tu macro se llama >>

Sub Macro1()
' Aqui tu codigo
End Sub

la tienes que llamar asi >>

Private Sub Document_Open()
'aqui tu codigo ...
End Sub

y poner el codigo en ThisDocument >>

mirate el siguiente flash por [ Internet Explorer ] >>
http://www.fermu.com/lang-es/articu...office/533


Bien como es un codigo de Evento Document_Open() entonces no necesitaras
ejecutarla porque se ejecutara cuando abras los archivos

si tienes distintas particiones y todas ellas comparten la misma ruta de
plantilla Normal.dot, entonces todos los archivos al abrir indistintamente
esten en una o otra particion se ejecutara la macro al abrir...

El codigo solo para documentos nuevos y los viejos si estos se abren sino
no :(

Prueba y comentanos!!

Saludos
Monica


www.fermu.com
www.teladearana.es