Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- With Selection.tables(1)
- .Rows.HeightRule = wdRowHeightAuto
- .PreferredWidthType = wdPreferredWidthPoints
- .PreferredWidth = CentimetersToPoints(11)
- End With
- With Selection.Borders(wdBorderTop)
- .LineStyle = Options.DefaultBorderLineStyle
- .LineWidth = Options.DefaultBorderLineWidth
- .Color = Options.DefaultBorderColor
- End With
- With Selection.Borders(wdBorderLeft)
- .LineStyle = Options.DefaultBorderLineStyle
- .LineWidth = Options.DefaultBorderLineWidth
- .Color = Options.DefaultBorderColor
- End With
- With Selection.Borders(wdBorderBottom)
- .LineStyle = Options.DefaultBorderLineStyle
- .LineWidth = Options.DefaultBorderLineWidth
- .Color = Options.DefaultBorderColor
- End With
- With Selection.Borders(wdBorderRight)
- .LineStyle = Options.DefaultBorderLineStyle
- .LineWidth = Options.DefaultBorderLineWidth
- .Color = Options.DefaultBorderColor
- End With
- With Selection.Borders(wdBorderVertical)
- .LineStyle = Options.DefaultBorderLineStyle
- .LineWidth = Options.DefaultBorderLineWidth
- .Color = Options.DefaultBorderColor
- End With
- With Selection.Borders(wdBorderHorizontal)
- .LineStyle = Options.DefaultBorderLineStyle
- .LineWidth = Options.DefaultBorderLineWidth
- .Color = Options.DefaultBorderColor
- End With
- Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
- 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)
- .OutlineLevel = wdOutlineLevelBodyText
- .CharacterUnitLeftIndent = 0
- .CharacterUnitRightIndent = 0
- .CharacterUnitFirstLineIndent = 0
- .LineUnitBefore = 0
- .LineUnitAfter = 0
- .MirrorIndents = False
- .TextboxTightWrap = wdTightNone
- .CollapsedByDefault = False
- End With
- 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)
- .OutlineLevel = wdOutlineLevelBodyText
- .CharacterUnitLeftIndent = 0
- .CharacterUnitRightIndent = 0
- .CharacterUnitFirstLineIndent = 0
- .LineUnitBefore = 0
- .LineUnitAfter = 0
- .MirrorIndents = False
- .TextboxTightWrap = wdTightNone
- .CollapsedByDefault = False
- End With
- With Selection.tables(1).Rows
- .Alignment = wdAlignRowLeft
- .AllowBreakAcrossPages = True
- .SetLeftIndent LeftIndent:=CentimetersToPoints(0), RulerStyle:= _
- wdAdjustNone
- End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement