Utilisation de macro sous word
Fermé
roentgen
-
7 mai 2010 à 07:39
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 - 7 mai 2010 à 09:47
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 - 7 mai 2010 à 09:47
A voir également:
- Utilisation de macro sous word
- Supprimer une page word - Guide
- Notice d'utilisation - Guide
- Macro word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
1 réponse
sriviere
Messages postés
853
Date d'inscription
jeudi 21 janvier 2010
Statut
Membre
Dernière intervention
2 mai 2013
410
Modifié par sriviere le 7/05/2010 à 09:46
Modifié par sriviere le 7/05/2010 à 09:46
Bonjour,
Voici une macro avec les paramètres de mise en page que vous avez indiqués. Je n'ai pas le temps de vous suivre car trop de travail, mais essayez-la, si jamais je peux revenir vers vous lundi.
Cordialement
Sub prépa_fichier()
'
'
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2.5)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(2.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
Selection.WholeStory
Selection.Font.Size = 18
Selection.Font.Bold = wdToggle
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
Voici une macro avec les paramètres de mise en page que vous avez indiqués. Je n'ai pas le temps de vous suivre car trop de travail, mais essayez-la, si jamais je peux revenir vers vous lundi.
Cordialement
Sub prépa_fichier()
'
'
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2.5)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(2.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
Selection.WholeStory
Selection.Font.Size = 18
Selection.Font.Bold = wdToggle
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
7 mai 2010 à 09:47