Thread: [Solved] Shrink to fit long merged name
View Single Post
 
Old 09-14-2022, 05:59 AM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
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]
Reply With Quote