![]() |
#4
|
||||
|
||||
![]()
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] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Bumba | Excel Programming | 1 | 11-10-2019 11:36 AM |
![]() |
eduzs | Word VBA | 3 | 09-16-2018 04:13 AM |
![]() |
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 |