If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
trouble with setting paragraph spacing to a table
Hi,
I was trying to set the paragraph spacing before and after to 3 pt to a table with 3 rows and 3 columns but with no success. Here is the code Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=myRow, NumColumns:= _ myCol, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) If .Style "Table Grid" Then .Style = "Table Grid" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True .Rows.Alignment = wdAlignRowCenter With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 3 .SpaceBeforeAuto = False .SpaceAfter = 3 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphCenter .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 End With What this code does is it only set the spacing to the first cell of the table instead of applying it to the rest of the table. Not sure if it needs some kind of loop to set all the cells with the same spacing paragraph. Your help would be greatly appreciated. Thank you in advance |
#2
|
|||
|
|||
trouble with setting paragraph spacing to a table
Hi agian,
It's fixed. Thanks for your time. "Associates" wrote: Hi, I was trying to set the paragraph spacing before and after to 3 pt to a table with 3 rows and 3 columns but with no success. Here is the code Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=myRow, NumColumns:= _ myCol, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) If .Style "Table Grid" Then .Style = "Table Grid" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True .Rows.Alignment = wdAlignRowCenter With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 3 .SpaceBeforeAuto = False .SpaceAfter = 3 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphCenter .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 End With What this code does is it only set the spacing to the first cell of the table instead of applying it to the rest of the table. Not sure if it needs some kind of loop to set all the cells with the same spacing paragraph. Your help would be greatly appreciated. Thank you in advance |
Thread Tools | |
Display Modes | |
|
|