User Profile
Charles_Kenyon
Bronze Contributor
Joined Oct 27, 2022
User Widgets
Recent Discussions
Re: Style for Heading - Adding a straight line on the second row of the text
Kidd_Ip is correct. You would want to modify the paragraph/linked style to include a bottom border. Troublesome Lines - Borders by Suzanne Barnhill, MVP Modifying Existing Styles When you are in the Modify Style dialog, click on the Format button/menu and choose Border. You can modify the thickness and the distance from the text. Make sure that the border is set to be for the paragraph.Re: Word VBA, Unreachable table style setting?
I do not know that this will help, but here is a sample that I recorded when creating a new Table Style following John Korchok's directions on my Tables page. https://answers.microsoft.com/en-us/msoffice/forum/all/editing-word-table-styles/92207096-eaa7-4ebf-81b2-7bc9f64d4c40 Table Styles Complete by John Korchok Sub StyleTableStyleCreate() ' ' StyleTableStyleCreate Macro ' ' ActiveDocument.Styles.Add Name:="Table Style Custom Grid 1", Type:= _ wdStyleTypeTable With ActiveDocument.Styles("Table Style Custom Grid 1").Font .Name = "+Body" .Size = 11 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Scaling = 100 .Kerning = 0 .Animation = wdAnimationNone .Ligatures = wdLigaturesStandardContextual .NumberSpacing = wdNumberSpacingDefault .NumberForm = wdNumberFormDefault .StylisticSet = wdStylisticSetDefault .ContextualAlternates = 0 End With With ActiveDocument.Styles("Table Style Custom Grid 1").ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").ParagraphFormat. _ TabStops.ClearAll ActiveDocument.Styles("Table Style Custom Grid 1").Frame.Delete With ActiveDocument.Styles("Table Style Custom Grid 1").Table .TableDirection = 1 .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) .Alignment = wdAlignRowLeft .Spacing = 0 .AllowPageBreaks = True .AllowBreakAcrossPage = True .LeftIndent = InchesToPoints(0) .RowStripe = 1 .ColumnStripe = 1 End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderHorizontal) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderVertical) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577537 End With With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow).Font .Name = "" .Bold = True .Color = -603914241 End With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstRow).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577537 End With With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders(wdBorderTop).LineStyle = wdLineStyleNone With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow).Font .Name = "" .Bold = True .Color = -603914241 End With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastRow).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577537 End With With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders(wdBorderRight).LineStyle = wdLineStyleNone With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn).Font .Name = "" .Bold = True .Color = -603914241 End With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdFirstColumn).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577537 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = -603914241 End With .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn).Font .Name = "" .Bold = True .Color = -603914241 End With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdLastColumn).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577690 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddColumnBanding).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenColumnBanding).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577690 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdOddRowBanding).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdEvenRowBanding).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNECell).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdNWCell).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSECell).ParagraphFormat.TabStops.ClearAll With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell) .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0.08) .RightPadding = InchesToPoints(0.08) End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell) With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = -704577741 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell).ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(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 = InchesToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With ActiveDocument.Styles("Table Style Custom Grid 1"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell).Font.Name = "" ActiveDocument.Styles("Table Style Custom Grid 1").Table.Condition( _ wdSWCell).ParagraphFormat.TabStops.ClearAll End Sub Does that address the attributes you want to change? See the links in my previous reply.Re: Word VBA, Unreachable table style setting?
Like Doug Robbins, I am not sure why you would be trying to use VBA to create a Style. {I've done this to create character styles without many characteristics like the font so only on characteristic like the language is changed.) Have you tried recording a macro setting up your table style. This may be completely a waste of time, or it may give you insight into otherwise undocumented or poorly documented parts of the object model. Creating a macro with no programming experience using the recorder How to modify a recorded macro Getting to grips with VBA basics in 15 minutesRe: Word VBA, Unreachable table style setting?
There is a lot missing from the vba object model and there are some things that are just quirky. Table styles and vba have long had problems. See https://shaunakelly.com/word/tag/table-styles.html I think that developers have given up on updating it. I'm just glad that they have not completely removed vba. I agree with Doug that you should use Feedback. The simplest way to create a new style is to create it in a template and create new documents based on the template within the UI. I do not know whether or not a custom Table Style gets brought into a document through a Quick Table that uses it, but it would be worth a try. Quick TablesRe: change background color on just ONE page
JanWillem_Aikens You can simply create a shaded rectangle set to be behind text. This will be anchored to text though, so if the text moves to a different page, the background will as well. Size the rectangle to fill the entire page. This does not need to be in the header, but is subject to being dislocated by moving text. Word Doesn't Know What a Page Is by Daiya Mitchell, MVP( https://wordmvp.com/Mac/PagesInWord.html) That was written some time ago, and is still true. As far as I can tell, the page color setting under the Design tab is for the entire document.Re: Word documents suddenly take several minutes to open after March 22 Office update
I have not noticed the problem with opening documents, but generally my documents are less than 1MB. I have noticed delays in the Q&A: Word forums. You could try rolling back to 2602. For large documents, use of Style-based formatting becomes very important. The Importance of Styles in Microsoft Word. Here is a link to four very similar documentsi n a zip folder. Two each in .doc and .docx format, one is formatted primarily using styles, the other using direct formatting. The performance differences are noticeable.Re: Document Headers
Although it is late, it is time for you to learn about Styles: The Importance of Styles in Microsoft Word Understanding Styles in Microsoft Word Why Use Word's Built-In Heading Styles? by Shauna Kelly The formatting of a Table of Contents is primarily controlled by the nine TOC # styles. Generally this allows for uniform appearance of TOC entries divorced from how the text appears in the document. However, direct formatting of the referenced text being pulled into the TOC may be what is happening to you. Effect of Direct Formatting How to create a table of contents in Microsoft Word by Shauna Kelly Make sure that the headings (not headers) are formatted using paragraph styles, not by directly applying Bold or other formatting to them. Take a look at the definitions of your TOC 1, TOC 2, TOC 3, etc. styles. If you want save a sample document with the problem on OneDrive or DropBox and post a share link here so that we can look at it. The sample should include your TOC with the problem as well as two or three of the headings giving you problems. It should not include any proprietary or confidential information. What is the difference between headings and headers? Quick Reference Card for Headers, Footers and Page NumbersRe: CLIPBOARD in Word via Android mobile app (Samsung phone)
This is likely a problem with Android OS. You may get better results using the online/web app. However, the online and mobile apps were developed as ancillary/helper apps for people using the desktop applications; they are far less capable than the desktop applications. See: The different programs called Word offered by Microsoft - a pdfRe: Word document chugging
Long multi-page tables can slow Word down. Nested tables can slow Word down. Radio buttons will not speed things up. Are you using Content Control checkboxes or are you using legacy formfield checkboxes? Content Controls would give superior performance. See the following which use neither, but use macrobutton checkboxes/toggles instead: Add Interactive Toogle or Sequenced Object to Document by Greg Maxey Checkbox Add-In in my downloadsRe: Word document is displayed different on different systems
It has always been the case that a Word document opened on different devices can have different appearance. See Why has my page layout changed when I open my document on a different machine? by Suzanne Barnhill, MVP. There are things you can do to minimize this, but you cannot completely prevent it.Re: Word fillable forms that are mobile device compatible
I do not know that you can. If you remove the editing restrictions, you would be able to edit the form and fill it in. I do not know that checkboxes would work. The mobile and online apps were developed as helper / adjunct programs for users of the desktop applications. See The different programs called Word offered by Microsoft - a pdf.Re: Word Writing Problem
First, the Android and online apps are inferior by their design. The different programs called Word offered by Microsoft - a pdf I use both, but not for document editing. The problems may be your Internet connection. They may be caused by problems with Microsoft's servers. Consider taking your notes in a different app and then copying and pasting into Word to do your formatting. Again, if you can, you will be ahead using the desktop application. With the online app, changing browsers can help, but you've already tried that. Do you have a Microsoft 365 account? Basic? Personal? Family? Enterprise?Re: Copy and Paste Will Not Using the Destination Formatting
Any time you paste from one program into another, you will have formatting anomalies. Sometimes these are hardly noticeable; other times they seem devastating. Generally the best results come from pasting as plain text and then doing the formatting in Word using styles. The Importance of Styles in Microsoft Word Using Styles to Format Text When you paste as plain text, Word will use the paragraph style for the location into which you are pasting that text, which will be the Normal style if you have not been using styles. Even if you have been using styles, the paste option is not to use destination formatting, but rather destination styles. If you paste from another program, Word can't really figure out which text goes with which style.Re: I am getting the message "WORD did not save the document C:\...\AutoRecovery save of...
If it is one document, it may be "corrupt." Create a new document with the same page size. Open the old document and go to the end of the document. Press the Enter key once when you are at the end. Make sure that you have display of non-printing formatting characters turned on. Use the Show/Hide button on the Home tab. Copy everything from the old document except that new paragraph mark and paste into the new document.Re: I am getting the message "WORD did not save the document C:\...\AutoRecovery save of...
The message is a warning. Ctrl+S is your friend. Use regularly. AutoRecovery is intended for times when Word crashes or you shut off your computer without saving. Automatically backup Word documents by Graham Mayor, MVP. I assume that with an important document you are using the desktop application for all editing.
