Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
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 |
#2
![]() |
|||
|
|||
![]()
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 |
#3
![]() |
|||
|
|||
![]()
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 |
#4
![]() |
|||
|
|||
![]()
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 |
#5
![]() |
|||
|
|||
![]()
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 |
Reply |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Table AutoFormats vs. Table Styles confusion | Tables | |||
How Do I Know The Exact Width and Height of A Table? | Page Layout | |||
Word 2003 - Setting table row height to auto | Tables | |||
Row height problem with table in table | Tables | |||
Change cell height in one cell only in a table | Tables |