tables: fit only long lines to avoid line break

Marco · #1 04-01-2015, 02:15 AM

Dear all, I am new to this forum.

I ask your help for the following question.
I have a table produced by mail marge from an access DB.
The column width is fixed and quite fitting that of the lines it will contain. However some lines may be a little longer and break, which is not wanted.

Since I guess there's no other way to get the result, I would like to add a VBA code to shrunk lines too long in the column width I chose.
The result is similar to the option "fit text" in the cell options, but this will also stretch short lines, while I only want to shrunk long ones.

Any suggestion?

Thanks, Marco

gmayor · #2 04-01-2015, 05:23 AM

The following will probably do the trick.

Code:

Sub ShrinkCellTextToFit()
Dim orng As Range
Dim i As Long
Const iCol As Integer = 2        'the column to process

    If Not Selection.Information(wdWithInTable) Then
        MsgBox "Put the cursor in the table and try again"
        GoTo lbl_Exit
    End If
    For i = 1 To Selection.Tables(1).Rows.Count
        Set orng = Selection.Tables(1).Cell(i, iCol).Range
        orng.End = orng.End - 1
        Do Until orng.ComputeStatistics(wdStatisticLines) = 1
            orng.Font.Shrink
        Loop
    Next i
lbl_Exit:
    Exit Sub
End Sub

Marco · #3 04-02-2015, 06:18 AM

Thanks gmayor, almost working

However I did not mention the following relevant notes

1) The cells do have more lines (number not fixed), so it is necessary to change the control alowing to exit the loop.
2) font size in each cell is not the same for all lines.

What I want is to avoid the break of originary lines. The final lines of my cell should be those broken by enter, and not those broken by their excessive length.
If easier to do, a proxy for this is result is avoiding the breaking of a word, since 99% of problematic lines are composed by a single word.

is it possible to get this?

Thanks

Marco

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
keep several lines & images together without a page-break interfering	lyle	Word	1	02-11-2014 03:57 AM
Asian typography in text boxes - how to avoid lines starting with periods	markpete	Word	0	11-17-2012 01:45 PM
Is there a way of keeping words together so that they don't break over two lines?	Mayla	Word	2	06-04-2012 07:37 AM
Break Pivot Into Multiple Tables	Pramalot	Excel	0	05-22-2012 05:21 AM
Avoid merging tables	b0x4it	Word	4	06-14-2011 10:01 PM