Shrink to fit long merged name

macropod · #1 09-13-2022, 04:23 PM

You can indeed use the .FitText method in a post-merge macro, but restrict its application to cells in which text wrapping occurs. For example:

Code:

        With ActiveDocument.Tables(t).Cell(r, c).Range
            If .Characters.Last.Previous.Information(wdVerticalPositionRelativeToPage) <> _
              .Characters.First.Information(wdVerticalPositionRelativeToPage) Then
              .FitTextWidth = w
            End If
        End With

where:
• t is the table #

• r is the row #
• c is the column#
• w is the width in points

Marcia · #2 09-14-2022, 05:48 AM

Thank you Paul.
But, I do not know how to input the row number, column number and column width in the code. The row number is 12, column number 2 and the column width is 2.38 inches. My vba "expertise" is to record repetitive tasks. But editing organic a code stump me.
Marcia

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to unmerge all merged cell and fill them with the merged values?	Bumba	Excel Programming	1	11-10-2019 11:36 AM
Why my Docm file does not shrink in size?	eduzs	Word VBA	3	09-16-2018 04:13 AM
Does Word automatically shrink graphics?	jrasicmark	Drawing and Graphics	1	05-06-2014 04:38 PM
Custom Animation: Faded Shrink?	Dingeling	PowerPoint	2	12-14-2011 02:14 AM
Possible to shrink .DOC file?	uoficowboy	Word	0	06-09-2010 10:13 AM