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:
iulia2006
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 49 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 787
|
|
By default, with VBA you add line bullets using the default Bullets and Numbering font which is Symbol.
If your document has Times New Roman or Arial or simply you want to insert a shorter line, use the code below.
Note: it also adds a tab stop to 1 cm from left margin and the line is situated at 0,5 cm from left.
Sub AddLineBulletList()
Dim Template As word.ListTemplate
Set Template = word.Application.ListGalleries(wdBulletGallery).ListTemplates(1)
With Template.ListLevels(1)
.NumberFormat = "-"
.Font.Name = "Arial"
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleBullet
.NumberPosition = CentimetersToPoints(0.63)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(1.27)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
.LinkedStyle = ""
End With
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=Template
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0.5)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
.Alignment = wdAlignParagraphJustify
.TabStops.Add _
Position:=CentimetersToPoints(1), _
Alignment:=wdAlignTabLeft, _
Leader:=wdTabLeaderSpaces
End With
End Sub
|
Modificat de TRaP (acum 5 ani)
|
|
| pus acum 5 ani |
|