Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
polly__
 | Femeie
24 ani
Brasov
cauta Barbat
24 - 47 ani |
|
Mrrrr
AdMiN
 Inregistrat: acum 17 ani
Postari: 2189
|
|
Open document, hit ALT+F8 and the RUN button.
The macro below does the following:
- Sets margins to: TOP=1 cm, BOTTOM=1,5 cm, RIGHT=1 cm, LEFT=2 cm
- Sets font to: Arial Narrow
- Sets font size to: 12
- Arranges text as: Justified
- Saves document.
Sub MarginsFonts()
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1.5)
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(1)
.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
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
Selection.WholeStory
Selection.Font.Size = 12
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
With Selection.ParagraphFormat
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 96
Selection.Font.Name = "Arial Narrow"
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
ActiveDocument.Save
End Sub
|
_______________________________________
|
|
| pus acum 10 ani |
|