Incorrect Row Height in Converted WordPerfect Table

WORKAROUND

To remove the exact line spacing, use one of the following methods:

Method 1: Use the following steps to change Line Spacing to for the new row to Single:

1. Position your insertion point in the new row.
2. On the Table menu, click Select Row.
3. On the Format menu, click Paragraph.
4. Select the Indents and Spacing tab.
5. Change Line Spacing to Single and click OK.
6. Repeat these steps for each new row in the table.

Method 2: Change Line Spacing to Single for the entire table:

1. Place the insertion point in the table.
2. On the Table menu, click Select Table.
3. On the Format menu, click Paragraph.
4. Select the Indents And Spacing tab.
5. Change Line Spacing to Single, and click OK.
   
   NOTE: This method will probably increase the spacing within each table cell. To fix this spacing, you can remove the first paragraph of each cell then apply Spacing Before to the first paragraph of each cell.

Method 3: Create a macro to remove the first paragraph mark of each cell.

This macro works best on documents where the default table margins were not changed in WordPerfect. After you create this macro, position the insertion point in the table and run the macro.

            Sub MAIN
            On Error Goto errorhandler
            TableSelectTable
            CharLeft 1
            Dim dlg As FormatParagraph
            GetCurValues dlg
            x$ = dlg.LineSpacing
            TableSelectTable
            EditFindPara .LineSpacingRule = 4, .LineSpacing = x$
            ' The next two lines should be entered as a single line of code
            EditReplace .Find = "^p", .Replace = "", .ReplaceAll,
               .Format = 1,.Wrap= 0
            CharLeft
            errorhandler:
            Select Case Err
               Case 509 : MsgBox "Move to a table and run the macro again."
               Case Else
            End Select
            Err = 0
            End Sub
				

NOTE: If each row has different margins, then change macro lines 3 and 8 from "TableSelectTable" to "TableSelectRow" and run the macro for each row of the table.

WARNING: ANY USE BY YOU OF THE OR MACRO CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.