Volendo formattare la pagina tramite cosice vba, ho registrato una macro che inserisce nel piè di pagina la numerazione.
- Codice: Seleziona tutto
Application.Templates( _
"C:\Users\KR\AppData\Roaming\Microsoft\Document Building Blocks\1040\14\Built-In Building Blocks.dotx" _
).BuildingBlockEntries("Numeri in grassetto 3").Insert Where:=Selection. _
Range, RichText:=True
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="Pagina "
Selection.MoveRight Unit:=wdCharacter, Count:=3
Selection.TypeText Text:="di"
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveLeft Unit:=wdCharacter, Count:=14, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.Font.Bold = wdToggle
Selection.Font.Size = 9
Non mi è chiaro, però, come devo fare per rendere il codice "universale". Infatti sul mio computer il template è su
- Codice: Seleziona tutto
C:\Users\KR\
C'e' un modo per farlo ?
Grazie