Advertisement
Guest User

Untitled

a guest
Jan 21st, 2017
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.05 KB | None | 0 0
  1. With Selection.tables(1)
  2. .Rows.HeightRule = wdRowHeightAuto
  3. .PreferredWidthType = wdPreferredWidthPoints
  4. .PreferredWidth = CentimetersToPoints(11)
  5. End With
  6.  
  7.  
  8. With Selection.Borders(wdBorderTop)
  9. .LineStyle = Options.DefaultBorderLineStyle
  10. .LineWidth = Options.DefaultBorderLineWidth
  11. .Color = Options.DefaultBorderColor
  12.  
  13. End With
  14. With Selection.Borders(wdBorderLeft)
  15. .LineStyle = Options.DefaultBorderLineStyle
  16. .LineWidth = Options.DefaultBorderLineWidth
  17. .Color = Options.DefaultBorderColor
  18. End With
  19. With Selection.Borders(wdBorderBottom)
  20. .LineStyle = Options.DefaultBorderLineStyle
  21. .LineWidth = Options.DefaultBorderLineWidth
  22. .Color = Options.DefaultBorderColor
  23. End With
  24. With Selection.Borders(wdBorderRight)
  25. .LineStyle = Options.DefaultBorderLineStyle
  26. .LineWidth = Options.DefaultBorderLineWidth
  27. .Color = Options.DefaultBorderColor
  28. End With
  29. With Selection.Borders(wdBorderVertical)
  30. .LineStyle = Options.DefaultBorderLineStyle
  31. .LineWidth = Options.DefaultBorderLineWidth
  32. .Color = Options.DefaultBorderColor
  33. End With
  34. With Selection.Borders(wdBorderHorizontal)
  35. .LineStyle = Options.DefaultBorderLineStyle
  36. .LineWidth = Options.DefaultBorderLineWidth
  37. .Color = Options.DefaultBorderColor
  38. End With
  39. Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
  40. With Selection.ParagraphFormat
  41. .LeftIndent = CentimetersToPoints(0)
  42. .RightIndent = CentimetersToPoints(0)
  43. .SpaceBefore = 0
  44. .SpaceBeforeAuto = False
  45. .SpaceAfter = 0
  46. .SpaceAfterAuto = False
  47. .LineSpacingRule = wdLineSpaceSingle
  48. .Alignment = wdAlignParagraphLeft
  49. .WidowControl = True
  50. .KeepWithNext = False
  51. .KeepTogether = False
  52. .PageBreakBefore = False
  53. .NoLineNumber = False
  54. .Hyphenation = True
  55. .FirstLineIndent = CentimetersToPoints(0)
  56. .OutlineLevel = wdOutlineLevelBodyText
  57. .CharacterUnitLeftIndent = 0
  58. .CharacterUnitRightIndent = 0
  59. .CharacterUnitFirstLineIndent = 0
  60. .LineUnitBefore = 0
  61. .LineUnitAfter = 0
  62. .MirrorIndents = False
  63. .TextboxTightWrap = wdTightNone
  64. .CollapsedByDefault = False
  65. End With
  66. With Selection.ParagraphFormat
  67. .LeftIndent = CentimetersToPoints(0)
  68. .RightIndent = CentimetersToPoints(0)
  69. .SpaceBefore = 0
  70. .SpaceBeforeAuto = False
  71. .SpaceAfter = 0
  72. .SpaceAfterAuto = False
  73. .LineSpacingRule = wdLineSpaceSingle
  74. .Alignment = wdAlignParagraphLeft
  75. .WidowControl = True
  76. .KeepWithNext = False
  77. .KeepTogether = False
  78. .PageBreakBefore = False
  79. .NoLineNumber = False
  80. .Hyphenation = True
  81. .FirstLineIndent = CentimetersToPoints(0)
  82. .OutlineLevel = wdOutlineLevelBodyText
  83. .CharacterUnitLeftIndent = 0
  84. .CharacterUnitRightIndent = 0
  85. .CharacterUnitFirstLineIndent = 0
  86. .LineUnitBefore = 0
  87. .LineUnitAfter = 0
  88. .MirrorIndents = False
  89. .TextboxTightWrap = wdTightNone
  90. .CollapsedByDefault = False
  91. End With
  92.  
  93. With Selection.tables(1).Rows
  94. .Alignment = wdAlignRowLeft
  95. .AllowBreakAcrossPages = True
  96. .SetLeftIndent LeftIndent:=CentimetersToPoints(0), RulerStyle:= _
  97. wdAdjustNone
  98. End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement