I have vba that takes data from an access table and does a find and replace in word. The issue is that depending on how much text, it will wrap to two or three lines. Is there some code that could determine if it exceeds two lines to reduce point size? Alternatively, can the access vba code pause or allow user to manually adjust point size in the event it can't be coded? Apparently, the text in question is in an object. It is Arial Black 24. Screenshots are before vba replace, after replace (showing 3 lines), last is showing after reducing size from 24 to 20 so that text takes no more than two lines.