Espacement avant paragraphe ne fonctionne pas

Question

Bonjour,

Je vous envoie ce message car j'ai un bug sur Word que je ne parviens pas à corriger. Je souhaite que le titre des chapitres soit légèrement plus bas que le haut de la page. Pour cela j'indique une valeur dans la case "Avant" du paragraphe (56.7 pt). Or le texte est collé en haut de page quelle que soit la valeur indiquée. Ce bug apparait sur la version Word 2013 mais pas sur les versions ultérieures.

Pour information il y a un saut de page ou saut de section (je ne sais pas faire la différence) avant ce texte. Vous trouverez en PJ une capture d'écran. Il s'agit du paragraphe 2.2 ....

Merci d'avance pour votre aide.

Answer 1

Bonjour

Ok ça me donne des infos

Une solution simple pour que ton paragraphe réagisse comme souhaité est d'enregistrer ton document en version doc (97-2003)

Sinon j'ai cette macro qui remplace les sauts de page par des sauts de section (a tester sur une copie de ton document)

Sub RempStPgParSection()
For iPgNum = 2 To Selection.Information(wdNumberOfPagesInDocument)
sPgNum = CStr(iPgNum)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=sPgNum
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdMove
ascChar = Asc(Selection.Text)

    If ascChar = 12 Or ascChar = 14 Then  
        'MsgBox "st page man " & sPgNum - 1 & "."  
        Selection.Delete  
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove  
        Selection.InsertBreak wdSectionBreakNextPage  
    End If  
Next  

End Sub

Answer 2

Voici la macro

Attribute VB_Name = "NewMacros"
Sub Multidoc()
Attribute Multidoc.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Multidoc"
'
' Multidoc Macro
'
'
With ActiveDocument
.Compatibility(wdNoTabHangIndent) = False
.Compatibility(wdNoSpaceRaiseLower) = False
.Compatibility(wdPrintColBlack) = False
.Compatibility(wdWrapTrailSpaces) = False
.Compatibility(wdNoColumnBalance) = False
.Compatibility(wdConvMailMergeEsc) = False
.Compatibility(wdSuppressSpBfAfterPgBrk) = False
.Compatibility(wdSuppressTopSpacing) = False
.Compatibility(wdOrigWordTableRules) = False
.Compatibility(wdTransparentMetafiles) = False
.Compatibility(wdShowBreaksInFrames) = False
.Compatibility(wdSwapBordersFacingPages) = False
.Compatibility(wdLeaveBackslashAlone) = True
.Compatibility(wdExpandShiftReturn) = False
.Compatibility(wdDontULTrailSpace) = True
.Compatibility(wdDontBalanceSingleByteDoubleByteWidth) = False
.Compatibility(wdSuppressTopSpacingMac5) = False
.Compatibility(wdSpacingInWholePoints) = False
.Compatibility(wdPrintBodyTextBeforeHeader) = False
.Compatibility(wdNoLeading) = False
.Compatibility(wdNoSpaceForUL) = True
.Compatibility(wdMWSmallCaps) = False
.Compatibility(wdNoExtraLineSpacing) = False
.Compatibility(wdTruncateFontHeight) = False
.Compatibility(wdSubFontBySize) = False
.Compatibility(wdUsePrinterMetrics) = False
.Compatibility(wdWW6BorderRules) = False
.Compatibility(wdExactOnTop) = False
.Compatibility(wdSuppressBottomSpacing) = False
.Compatibility(wdWPSpaceWidth) = False
.Compatibility(wdWPJustification) = False
.Compatibility(wdLineWrapLikeWord6) = False
.Compatibility(wdShapeLayoutLikeWW8) = False
.Compatibility(wdFootnoteLayoutLikeWW8) = False
.Compatibility(wdDontUseHTMLParagraphAutoSpacing) = False
.Compatibility(wdDontAdjustLineHeightInTable) = True
.Compatibility(wdForgetLastTabAlignment) = False
.Compatibility(wdAutospaceLikeWW7) = False
.Compatibility(wdAlignTablesRowByRow) = False
.Compatibility(wdLayoutRawTableWidth) = False
.Compatibility(wdLayoutTableRowsApart) = False
.Compatibility(wdUseWord97LineBreakingRules) = False
.Compatibility(wdDontBreakWrappedTables) = False
.Compatibility(wdDontSnapTextToGridInTableWithObjects) = False
.Compatibility(wdSelectFieldWithFirstOrLastCharacter) = False
.Compatibility(wdApplyBreakingRules) = False
.Compatibility(wdDontWrapTextWithPunctuation) = False
.Compatibility(wdUseWord2002TableStyleRules) = False
.Compatibility(wdGrowAutofit) = False
.Compatibility(wdUseNormalStyleForList) = False
.Compatibility(wdDontUseIndentAsNumberingTabStop) = False
.Compatibility(wdFELineBreak11) = False
.Compatibility(wdDontUseAsianBreakRulesInGrid) = False
.Compatibility(wdAllowSpaceOfSameStyleInTable) = False
.Compatibility(wdWW11IndentRules) = False
.Compatibility(wdDontAutofitConstrainedTables) = False
.Compatibility(wdAutofitLikeWW11) = False
.Compatibility(wdUnderlineTabInNumList) = 0
.Compatibility(wdHangulWidthLikeWW11) = False
.Compatibility(wdSplitPgBreakAndParaMark) = True
.Compatibility(wdDontVertAlignCellWithShape) = False
.Compatibility(wdDontBreakConstrainedForcedTables) = False
.Compatibility(wdDontVertAlignInTextbox) = False
.Compatibility(wdWord11KerningPairs) = False
.Compatibility(wdCachedColBalance) = False
End With
End Sub

Answer 3

Peux-tu poster la macro ?

Sinon le remplacement St page par St de section ne fonctionne pas (l'inverse oui)

Answer 4

Bonjour

Merci pour votre réactivité.

Effectivement ça fonctionne bien par contre je dois parcourir tout mon document page par page pour faire la modification.

Pour la rédaction de mes documents j'utilise un logiciel dédié (Multidoc) qui génère un fichier .docx avec tous les styles et mises en page qui se font automatiquement et sur lesquels je n'ai pas la main.

J'ai passé l'info de mon problème à l'éditeur mais il n'a pas de solution à me proposer considérant que ce n'est pas son logiciel qui dysfonctionne mais word.

Y a t'il une solution plus simple depuis Word pour corriger ce bug.

J'ai moi j'ai une version plus ancienne de word (2007) sur laquelle j'ai créé une macro (trouvée sur internet) qui permet de corriger la mise en page, mais cette macro ne fonctionne pas sur word 2013.

Encore merci pour votre aide.

Answer 5

Bonjour

Je ne pense pas que c'est un bug mais un comportement désiré.

En remplaçant le saut de page par un saut de section page suivante cela semble régler ton problème