PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Urgent : gestion des marges Word
Urgent : gestion des marges Word
Iniciado por stephane.penhouet, ago., 08 2005 1:11 AM - Sem resposta
#1
Publicado em agosto, 08 2005 - 1:11 AM
Le code ci-apres transposé en Windev n'affecte pas mon document Word
Si qqun à une idée

Merci

Nota : 1 cm = 28,35 points

Code Word :

With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(-6.2)
.BottomMargin = CentimetersToPoints(3.6)
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(0.7)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(2.2)
.FooterDistance = CentimetersToPoints(1.2)
.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
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With

Code Windev ne fonctionnant pas :(

Word>>Selection>>PageSetup>>LineNumbering>>Active=OLEFaux
Word>>Selection>>PageSetup>>TopMargin(-6.2*28.35)
Word>>Selection>>PageSetup>>BottomMargin(3.6*28.35)
Word>>Selection>>PageSetup>>LeftMargin(2*28.35)
Word>>Selection>>PageSetup>>RightMargin(0.7*28.35)
Word>>Selection>>PageSetup>>TopMargin(0*28.35)
Word>>Selection>>PageSetup>>HeaderDistance(2.2*28.35)
Word>>Selection>>PageSetup>>FooterDistance(1.2*28.35)
Word>>Selection>>PageSetup>>SectionStart= wdSectionNewPage

Je n'ai pas tous convertis car etant des valeurs par défaut, je n'ai pas juger bon de les inclure.
→ Voltar para WINDEV 2024