Increase all font by 0.5 pt increment?

Question

Increase all font by 0.5 pt increment?

Anonymous

While working in Word 2003, I chose the "Shrink to Fit" option during print preview and unwittingly saved my changes. Now all of my text has shrunk by 0.5 points. I would like to undo this, but there doesn't seem to be any solution save going through the whole 130-page document and making the changes manually.

I know there is a keyboard shortcut for increasing or decreasing font by an increment of 1 pt, which enables one to change fonts of multiple sizes at once. But is there a way of increasing all of my text by 0.5 points?

Thanks in advance for the help.

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

0 additional answers

Answer 1

You could run the following macro, which uses brute force to increase each font size from 1 to 24 in steps of 0.5 by 0.5. It'll probably take some time to process a 130 page document.

Sub IncreaseFontsize()

Dim n As Long

Application.ScreenUpdating = False

With ActiveDocument.Content.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = ""

.Replacement.Text = ""

' 48 = twice the maximum font size to process

For n = 48 To 2 Step -1

.Font.Size = n / 2

.Replacement.Font.Size = (n + 1) / 2

.Execute Replace:=wdReplaceAll

Next n

End With

Application.ScreenUpdating = True

End Sub

Answer 2

Another option is to try using Find and Replace. Find each style, ie "normal" or "Heading 1" etc, and replace it with itself. That will reapply the base style, removing the manual formatting.

It may be simpler to display the Style and Formatting Pane, then right click on the desired style, click on the "select all" option, then click on the style itself to re-apply the base style.

Share via

Increase all font by 0.5 pt increment?

0 additional answers