A
Achille
Hi,
I must insert Line Numbering (line Numbers) in word Document with script perl.
The source code of the macro is:
With ActiveDocument.PageSetup
With .LineNumbering
.Active = True
.StartingNumber = 1
.CountBy = 1
.RestartMode = wdRestartPage
.DistanceFromText = wdAutoPosition
End With
.Orientation = wdOrientPortrait
.TopMargin = MillimetersToPoints(25.4)
.BottomMargin = MillimetersToPoints(25.4)
.LeftMargin = MillimetersToPoints(31.7)
.RightMargin = MillimetersToPoints(31.7)
.Gutter = MillimetersToPoints(0)
.HeaderDistance = MillimetersToPoints(12.7)
.FooterDistance = MillimetersToPoints(12.7)
.PageWidth = MillimetersToPoints(210)
.PageHeight = MillimetersToPoints(297)
.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
Do you have any Idea?
Thanks!
Bye bye
Achille - from Italy
I must insert Line Numbering (line Numbers) in word Document with script perl.
The source code of the macro is:
With ActiveDocument.PageSetup
With .LineNumbering
.Active = True
.StartingNumber = 1
.CountBy = 1
.RestartMode = wdRestartPage
.DistanceFromText = wdAutoPosition
End With
.Orientation = wdOrientPortrait
.TopMargin = MillimetersToPoints(25.4)
.BottomMargin = MillimetersToPoints(25.4)
.LeftMargin = MillimetersToPoints(31.7)
.RightMargin = MillimetersToPoints(31.7)
.Gutter = MillimetersToPoints(0)
.HeaderDistance = MillimetersToPoints(12.7)
.FooterDistance = MillimetersToPoints(12.7)
.PageWidth = MillimetersToPoints(210)
.PageHeight = MillimetersToPoints(297)
.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
Do you have any Idea?
Thanks!
Bye bye
Achille - from Italy