Une fois la macro lancée, affichage auto de "brouillon" VBA-Word Résolu/Fermé

Question

Bonjour, 

Sur word, j'ai effectué une macro permettant d'écrire automatiquement le pied de page, j'en ai ensuite créé une pour la mettre en forme.

lors du lancement de la 2nd je me retrouve dans la partie "brouillon", c'est super relou
d'où pourrait venir mon problème?

"bouillon" :


"Ma page normale":



Sub Pied_de_page()
    ThisDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.InsertBefore "STELIA AEROSPACE COMPOSITES - S.A.S au capital de 1 441 160€ - 330 316 381 RCS BORDEAUX - SIRET 330 316 381 00012 - APE 3030 Z - TVA FR 65 330316381" & _
    vbCrLf & "Siège social - 19, route de Lacanau - 33160 Salaunes - France -Tél. 33 (0)5 56 68 55 00 - Télécopieurs: Général 33 (0)5 56 58 51 93 - Service Supply Chain: 33 (0)5 56 68 55 38"
    
    mise_en_forme_pied_page

End Sub

Sub mise_en_forme_pied_page()

'********** Mise en forme du pied de page **********
    ThisDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Select
    'taille de la police
    Selection.Font.Size = 9
    
    'longueur
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(-2.25)
        .RightIndent = CentimetersToPoints(-2.25)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceMultiple
        .LineSpacing = LinesToPoints(1.15)
        .Alignment = wdAlignParagraphLeft
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
    End With

End Sub

Arthyss · Answer

Par le plus grand des hasard j'ai trouvé
 Si ça peut aider, il faut écrire : 
 
sub main()
ActiveWindow.View.SplitSpecial = wdPaneNone
... ' Votre code
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 'revenir sur la page word
ActiveWindow.View.Type = wdPrintView 'quitter le brouillon 
end sub

Une fois la macro lancée, affichage auto de "brouillon" VBA-Word

1 réponse

Discussions similaires