Shrink to fit long merged name

macropod · #2 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

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