auto change font szie to make content fit the cell in word table?

[JerryLee80]

I have a fixed size cell in word table, so i should program to automatically
change font size of contents in that cell, but how?
I have tried to find some helpful infomation , but nothing i found. Anyone
can help me?

 

[Doug Robbins - Word MVP]

Use the following:

Dim flag As Boolean, arange As Range, i, j, k

Set arange = Selection.Cells(1).Range
k = arange.Font.Size
flag = False
Do While flag = False
arange.End = arange.End - 1
arange.Select
i = arange.Information(wdVerticalPositionRelativeToPage)
arange.Collapse wdCollapseEnd
j = arange.Information(wdVerticalPositionRelativeToPage)
If j > i Then
Set arange = Selection.Cells(1).Range
arange.Font.Size = k - 0.5
k = arange.Font.Size
Else
flag = True
End If
Loop


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP