Encabezado y pie de pagina
Alberto Origone
Uso 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
Tengo unos cuantos archivos.
Desde ya gracias por cualquier ayuda
Monica May
> ... 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
Alberto Origone
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ó:
> 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
Alberto Origone
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ó:
> 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
Alberto Origone
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ó:
> 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
Lisandro Gracias
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" <t...@NOSPAM.teladearana.es> escribió en el mensaje de
noticias:eKNFDLCZ...@TK2MSFTNGP05.phx.gbl...
Lisandro Gracias
Disculpa la repeticion de tantos envios pero me daba error y aparecia como
no enviado.
Gracias
Saludos
Lisandro
"Lisandro Gracias" <lisa...@gracias.com> escribió en el mensaje de
noticias:e167eJo...@TK2MSFTNGP06.phx.gbl...
Monica May
> .... 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....!!
Lisandro Gracias
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" <t...@NOSPAM.teladearana.es> escribió en el mensaje de
noticias:#hhtye3Z...@TK2MSFTNGP03.phx.gbl...
Monica May
>....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/articulos/office/38-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....!!
Lisandro Gracias
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:=13, 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:=23, 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" <t...@NOSPAM.teladearana.es> escribió en el mensaje de
noticias:u9SIWeGa...@TK2MSFTNGP03.phx.gbl...
Monica May
> 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.
Bien primero de todo abre visual basic de Word de cualquier archivo [ desde
la interfaz de Word dale a las teclas [ Alt + F11 ] ] asi abriras VB de
Word .
bien a la Izquierda segun escribes en el teclado :-P >>
Veras que tienes ahi el proyecto - proyect
donde existe lo siguiente ->
Normal
Proyect(Documentocualquiera)
donde estan los modulos Estandar y ThisDocument ....
Bien Despliega donde pone Normal que esa es la plantilla [ Normal.dot ]
okeis ?
Dale 2 clicks donde pone [ ThisDocument ] y veras que se te abre el
escenario para que peges ahi el siguiente codigo --->>
'[]
Private Sub Document_Open()
Dim x As String, y As Range, m As Range
Set y = ActiveDocument.Sections(1).Headers _
(wdHeaderFooterPrimary).Range
Set m = ActiveDocument.Sections(1).Footers _
(wdHeaderFooterPrimary).Range
x = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
With y
.Delete
.InsertAfter x
.Font.Size = 9
End With
With m
.Delete
.InsertAfter vbTab & vbTab
.Collapse wdCollapseEnd
.Fields.Add Range:=m, Type:=wdFieldNumPages
.Collapse wdCollapseEnd
.InsertAfter " de "
.Collapse wdCollapseStart
.Fields.Add Range:=m, Type:=wdFieldPage
End With
End Sub
'[]
Una Vez Pegado ahi en [ ThisDocument ] pero del proyecto [ Normal ] Dale al
boton Guardar desde ahi mismo desde la interfaz de VBA asi guardara el
codigo ya directamente en Normal.dot
Ahora cierra ese documento y --->>
1.- Abre un archivo que ya tengas
2.- Abre un nuevo archivo
compara, comprueba y demas y comentanos cualqueir duda y demas :-) !!
------El codigo Expuesto-----
Monica May
se puede crear otro codigo para los documentos nuevos con el evento >>
Private Sub Document_New()
End Sub
para que no te lo cree en los documentos nuevos, en el caso que no quieras
abrir todos los documentos...
.....comentanos...!!
Saludos
Monica
Monica May
Creo que no te va a hacer falta aplicar ningun codigo mas adicional :) con
el evento open tendras suficiente para los antiguos y NO para los nuevos
pero..... haz las pruebas con tu [ version de Word ] y comentas a ver okeis
:-) !!
Saludos
Monica
Lisandro Gracias
Monica:
Muchas gracias por lo que me ayudaste.
Saludos agradecidos
Lisandro
"Monica May" <t...@NOSPAM.teladearana.es> escribió en el mensaje de
noticias:uRkCw#saJHA...@TK2MSFTNGP02.phx.gbl...