Il blog di Gianni Giaccaglini

Blog su VBA e VSTO
Gianni Giaccaglini

My Links

News

NB - V. anche gli ARTICOLI (in fondo a questa barra)
Solo quesiti validi a: giannigiac@tin.it
Il mio nuovo libro


La mia nipotina ELISA

Foto con dedica a ME di
Bill Gates giovanissimo
nei mitici anni 80!

Categorie Post

Categorie Articoli

Archivio

Immagini

Blog Stats

Eliminare i numeri di pagina di Word: solo col VBA si può!

L'opzione Inserisci > Numeri di pagina... è comoda se si ha fretta. Se però in seguito si decide di ricorrere alla più sofisticata Visualizza > Intestazioni/Piè di pagina, ad esempio per indicazioni del tipo "Pag. x di pagine N" si constata che i numeri impostati con la prima opzione restano in vita! Inutile ammattire con comandi manuali, perché  Inserisci > Numeri di pagina... semplicemente non prevede questa possibilità! Una dimenticanza che sarà ovviata con l'imminente versione 12? Sarà ma... io speriamo che me la cavo col VBA. Detto e fatto: 

Sub Macro1()

' Macro registrata il 11/01/2006 da Gianni Giaccaglini
  Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
    wdAlignPageNumberRight, FirstPage:=True
End Sub

Sub EliminaPagNumber()
  ActiveDocument.Sections(1).Footers(1).PageNumbers.Item(1).Delete
End Sub

Come tutti comprenderanno al volo, Macro1 è frutto della registrazione del comando "attivo", da cui ho dedotto la Sub EliminaPagNumber che risolve il piccolo ma noioso inconveniente. Chi ci tiene può inserirla, per il ri-uso, in un modulo NewMacros o ThisDocument dell'oggetto Normal (che, ricordo, racchiude macro attivabili in qualunque documento "normale").

posted on mercoledì 11 gennaio 2006 16.00