I am studying my family history and a distant cousin gave me over 150 family
group sheets with family history information. These sheets contain a lot of
tabular data, generally one table per page with a title and closing at the
top and bottom of each page.

I wanted to reprint the pages and also extract some of the data so I scanned
these sheets. Unfortunately the OCR software set most table rows to a
fixed height regardless of how many lines of data was in the row. Now I
need to figure out how to change these rows to a floating height without
doing each row/page manually. Does anyone have any suggestions on how to
change this without doing them one table at a time?

TIA
Walter Wood

Hi Walter,

OCR programs often create really wild stuff, but I hope the macro below =
should fix all tables (well, the row height anyway):

Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Rows.HeightRule =3D wdRowHeightAuto
Next myTable

Regards,
Klaus


"Walter Wood" wrote:
I am studying my family history and a distant cousin gave me over 150 =
family=20
group sheets with family history information. These sheets contain a =
lot of=20
tabular data, generally one table per page with a title and closing at =
the=20
top and bottom of each page.
=20
I wanted to reprint the pages and also extract some of the data so I =
scanned=20
these sheets. Unfortunately the OCR software set most table rows to =
a=20
fixed height regardless of how many lines of data was in the row. Now =
I=20
need to figure out how to change these rows to a floating height =
without=20
doing each row/page manually. Does anyone have any suggestions on how =
to=20
change this without doing them one table at a time?
=20
TIA
Walter Wood=20
=20

Hi Klaus,

I am getting

Run TIme error '4065':
The method or property is not available because some or all of the current
selection is not in a table.

Below is what the macro looks like when I pasted in your code.

Sub TableRowHeight()
'
' TableRowHeight Macro
' Changes the height of the rows in a table
'
Dialogs(wdDialogTableRowHeight).Show
Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Rows.HeightRule = wdRowHeightAuto
Next myTable

End Sub

What am I doing wrong,

Thanks for the help.
Walter



"Klaus Linke" wrote in message
...
Hi Walter,

OCR programs often create really wild stuff, but I hope the macro below
should fix all tables (well, the row height anyway):

Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Rows.HeightRule = wdRowHeightAuto
Next myTable

Regards,
Klaus


"Walter Wood" wrote:
I am studying my family history and a distant cousin gave me over 150
family
group sheets with family history information. These sheets contain a lot
of
tabular data, generally one table per page with a title and closing at the
top and bottom of each page.

I wanted to reprint the pages and also extract some of the data so I
scanned
these sheets. Unfortunately the OCR software set most table rows to a
fixed height regardless of how many lines of data was in the row. Now I
need to figure out how to change these rows to a floating height without
doing each row/page manually. Does anyone have any suggestions on how to
change this without doing them one table at a time?

TIA
Walter Wood

G'Day Walter,

Dialogs(wdDialogTableRowHeight).Show

You seem to have added a line to Klaus' macro......
--
Regards,
Pat Garard
Melbourne, Australia
_______________________

"Walter Wood" wrote in message
m...
Hi Klaus,

I am getting

Run TIme error '4065':
The method or property is not available because some or all of the current
selection is not in a table.

Below is what the macro looks like when I pasted in your code.

Sub TableRowHeight()
'
' TableRowHeight Macro
' Changes the height of the rows in a table
'
Dialogs(wdDialogTableRowHeight).Show
Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Rows.HeightRule = wdRowHeightAuto
Next myTable

End Sub

What am I doing wrong,

Thanks for the help.
Walter



"Klaus Linke" wrote in message
...
Hi Walter,

OCR programs often create really wild stuff, but I hope the macro below
should fix all tables (well, the row height anyway):

Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Rows.HeightRule = wdRowHeightAuto
Next myTable

Regards,
Klaus


"Walter Wood" wrote:
I am studying my family history and a distant cousin gave me over 150
family
group sheets with family history information. These sheets contain a lot
of
tabular data, generally one table per page with a title and closing at
the
top and bottom of each page.

I wanted to reprint the pages and also extract some of the data so I
scanned
these sheets. Unfortunately the OCR software set most table rows to a
fixed height regardless of how many lines of data was in the row. Now I
need to figure out how to change these rows to a floating height without
doing each row/page manually. Does anyone have any suggestions on how to
change this without doing them one table at a time?

TIA
Walter Wood

Thanks Pat,

To create the macro I simply created a new one and pasted Klaus' language
into it. Word must have added that automatically. Removing that line did
the trick.

May thanks to both of you. You saved me hours of mouse clicks.
Walter
..
"Pat Garard" apgarardATbigpondDOTnetDOTau wrote in message
...
G'Day Walter,

Dialogs(wdDialogTableRowHeight).Show

You seem to have added a line to Klaus' macro......
--
Regards,
Pat Garard
Melbourne, Australia
_______________________

"Walter Wood" wrote in message
m...
Hi Klaus,

I am getting

Run TIme error '4065':
The method or property is not available because some or all of the
current selection is not in a table.

Below is what the macro looks like when I pasted in your code.

Sub TableRowHeight()
'
' TableRowHeight Macro
' Changes the height of the rows in a table
'
Dialogs(wdDialogTableRowHeight).Show
Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Rows.HeightRule = wdRowHeightAuto
Next myTable

End Sub

What am I doing wrong,

Thanks for the help.
Walter



"Klaus Linke" wrote in message
...
Hi Walter,

OCR programs often create really wild stuff, but I hope the macro below
should fix all tables (well, the row height anyway):

Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Rows.HeightRule = wdRowHeightAuto
Next myTable

Regards,
Klaus


"Walter Wood" wrote:
I am studying my family history and a distant cousin gave me over 150
family
group sheets with family history information. These sheets contain a
lot of
tabular data, generally one table per page with a title and closing at
the
top and bottom of each page.

I wanted to reprint the pages and also extract some of the data so I
scanned
these sheets. Unfortunately the OCR software set most table rows to a
fixed height regardless of how many lines of data was in the row. Now I
need to figure out how to change these rows to a floating height without
doing each row/page manually. Does anyone have any suggestions on how
to
change this without doing them one table at a time?

TIA
Walter Wood