S
Simon Kearns
Hi,
What would be the method to do this:
For each aProperty in myDocument.myTable
debug.print aProperty
next aProperty
-- In this instance a table but need to apply to any word object.
I want to be able to see a list of all the properties of a table so I have
the chance of setting their values in code. I have tried recording a macro
of mouse clicking the table properties dislog box but the macro only seems
to return the items that I change.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16/02/05 by SK
'
Selection.Tables(1).Select
Selection.Cells.SetHeight RowHeight:=12, HeightRule:=wdRowHeightExactly
With Selection.Rows
.Alignment = wdAlignRowLeft
.AllowBreakAcrossPages = True
.SetLeftIndent LeftIndent:=CentimetersToPoints(0.5), RulerStyle:= _
wdAdjustNone
End With
Selection.Cells.AutoFit
End Sub
Thanks
What would be the method to do this:
For each aProperty in myDocument.myTable
debug.print aProperty
next aProperty
-- In this instance a table but need to apply to any word object.
I want to be able to see a list of all the properties of a table so I have
the chance of setting their values in code. I have tried recording a macro
of mouse clicking the table properties dislog box but the macro only seems
to return the items that I change.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16/02/05 by SK
'
Selection.Tables(1).Select
Selection.Cells.SetHeight RowHeight:=12, HeightRule:=wdRowHeightExactly
With Selection.Rows
.Alignment = wdAlignRowLeft
.AllowBreakAcrossPages = True
.SetLeftIndent LeftIndent:=CentimetersToPoints(0.5), RulerStyle:= _
wdAdjustNone
End With
Selection.Cells.AutoFit
End Sub
Thanks