Shrink to fit long merged name

		Microsoft Office Forums > Microsoft Word > Mail Merge
Shrink to fit long merged name

FAQ

Thread Tools

Display Modes

09-14-2022, 05:59 AM

macropod

Windows 10 Shrink to fit long merged name

Office 2016

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,521

In which case, assuming it's in table 1:

Code:

        With ActiveDocument.Tables(1).Cell(12, 2).Range
            If .Characters.Last.Previous.Information(wdVerticalPositionRelativeToPage) <> _
              .Characters.First.Information(wdVerticalPositionRelativeToPage) Then
              .FitTextWidth = InchesToPoints(2.38)
            End If
        End With

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 03:29 PM.