1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| Sub Macro1()
' Raccourci clavier : Ctrl+q
'
'Enable diagram services
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("En-tête et pied de page")
Application.ActiveDocument.HeaderLeft = ""
Application.ActiveDocument.HeaderCenter = ""
Application.ActiveDocument.HeaderRight = ""
Application.ActiveDocument.HeaderMargin(visMillimeters) = 10#
Application.ActiveDocument.FooterLeft = ""
Application.ActiveDocument.FooterCenter = ""
Application.ActiveDocument.FooterRight = "&f&e"
Application.ActiveDocument.FooterMargin(visDrawingUnits) = 7#
Application.ActiveDocument.HeaderFooterColor = 0
Dim oFont2 As StdFont
Set oFont2 = Application.ActiveDocument.HeaderFooterFont
oFont2.Name = "??l"
oFont2.Bold = False
oFont2.Italic = False
oFont2.Underline = False
oFont2.Strikethrough = False
oFont2.Weight = 400
oFont2.Size = 8
oFont2.CharSet = 0
Set Application.ActiveDocument.HeaderFooterFont = oFont2
Application.EndUndoScope UndoScopeID1, True
'Restore diagram services
ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub |
Partager