Word table auto text alignment vs cell height

[macropod]

Graham,



I took the OP's specs at face value, allowing for the possibility of vertically-merged cells.

[Grantsub]

Thanks

The 6 point is actually the the table row height is .06cm can the code be changed to table rowhight < .06

I will try both of these expample tonight
Thanks you for assiting me , hopefullly saving hours of time ,
I will revert on out come

Regards

[Grantsub]

Paul can you allow me to contact your directly for a short time to work though this
Grant

[macropod]

Originally Posted by Grantsub

The 6 point is actually the the table row height is .06cm

which is even less than 6pt!!!. 1cm is 28.35pt, so .06cm is only 1.70pt. If you want to use centimetres instead of points for the row heights, change:
If oCel.Height > 6 Then
to:
If Round(oCel.Height, 1) > Round(CentimetersToPoints(0.06), 1) Then
using whatever the correct value is - I seriously doubt it's 0.06cm.

Please keep any discussions in the public forum.

[Grantsub]

Thank you Paul and Graham
I see I didn’t describe the task sufficiently

I am looking for some code that will set alignment as the cell height but due to the the nature of the finished doc not all coloums and row alignment are the same , the script you wrote for me showed me the power of what it could do by some one more advanced than me ,

Below is a extract of a formatted word doc sample formatted correctly showing the final result required ,with the alignment of the txt in vaporous rows and columns different determined by the row height with the hacked up code i use at present one line at a time with me deciding which to use.

Below is sample of the different alignments in each row and column if different colors for the different alignments as example

So what I do now is select row and then press the recorded macro 1 or 2 which I determine by looking are the row height and pressing 1 or 2

What I want to do is select a single table on a page or multiple tables over many pages and press a macro to achieve the txt alignment