Code Snippets

Sub ResizeTextToFitTextBox() If Selection.StoryType <> wdTextFrameStory Then Exit Sub Dim myTextRange As Range Dim myShape As Shape Set myShape =...