4 Ways to Batch Change Superscript or Subscript Size in Your Word Document

In the following article, we would like to present you 4 ways to batch change superscript or subscript size in your Word document.

By default, when we set text or number as superscript or subscript, it takes the same font size as that of the normal texts. Then here is the problem. We find most of the time, these superscripts and subscripts are too small on screen. So some of us might think about enlarge the size.Batch Change Superscript or Subscript Size

Admittedly, it will be tiresome to change the font size by selecting each superscript or subscript individually. Thus, we recommend you 4 methods to process in batch.

Method 1: Change Font Type

Superscripts and subscripts take the same font type as that of the normal texts before or after. And you should know that words in the same size can appear differently in different font types.

So as an easy workaround, you can change the font type of the normal texts to another one which might enable you have a clearer vision of superscripts and subscripts, such as bellow:Change Font Type

Method 2: Use “Styles” Window to Find All Superscripts and Subscripts

Before all, we want to remind you of the fact that footnote and endnote references also belong to the superscript category. So never forget about them.

  1. Firstly, click “Home” tab and go to “Styles” group to click the arrow button to open “Styles” window.
  2. There you can see all styles currently used in the document. For example, move cursor to “Superscript” style and there will be an upside-down triangle button appearing. Click it.
  3. Next click “Select All XX Instance(s)”. Then you shall have all superscripts in the document in selection. And you can go to resize their font as required. Do the same thing to enlarge or reduce font size of subscripts, footnote or endnote references.Click the button->Click "Select All XX Instance(s)"
  4. Now there is another case. If you have modified the normal text style before, you may have difficulty finding, say, the “Superscript”. Instead, you may see things like this:Styles
  5. The steps are actually the same. But, you have to go through all the styles on the window to find all styles related to superscript and subscript.

Method 3: Use “Find and Replace” Function

  1. To start off, press “Ctrl+ H” to open “Find and Replace” box. Put cursor at “Find what” text box first.
  2. Next click “More” to open more options.
  3. Then click “Format” and choose “Font” on its menu.Click "Format"->Click "Font"
  4. In “Find Font” box, check “Superscript” box then click “OK”.Check "Superscript" Box->Click "OK"
  5. Now place cursor at “Replace with” text box and repeat step 3 and 4.
  6. Only this time, you need to choose a font size before hit the “OK” button.
  7. Then click “Replace All” in “Find and Replace” box.Click "Replace All"

Apply the same way to change the size of subscript, footnote and endnote references.

Method 4: Run Word Macro

  1. First and foremost, put cursor properly. Put cursor inside the main texts, then the macro will change the size of all superscripts and subscripts there but leave footnote and endnote references in footnote and endnote areas intact. Therefore, you may have to run the macro 3 times if you’ve inserted footnotes and endnotes in your document.
  2. Next press “Alt+ F11” to trigger the VBA editor.
  3. Insert a new module under “Normal” project by clicking “Normal” first.
  4. Then click “Insert” and choose “Module”.Click "Normal"->Click "Insert"->Click "Module"
  5. Next double click module to open it and paste the following macro there:
Sub ChangeSuperscriptAndSubscriptSize()
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
 
  With Selection.Find.Font
    .Superscript = True
    .Subscript = False
  End With
  With Selection.Find.Replacement.Font
    .Size = 16
    .Superscript = True
    .Subscript = False
  End With
  With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
 
  With Selection.Find.Font
    .Superscript = False
    .Subscript = True
  End With
  With Selection.Find.Replacement.Font
    .Size = 16
    .Superscript = False
    .Subscript = True
  End With
  With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub
  1. Lastly, click “Run”.Paste Codes->Click "Run"

Address Word Errors

It’s inevitable that Word will run into errors and break down at some time. So it’s of great importance to know the right actions once a tragedy happens. Among them, you should have the ability to choose an eligible Word fix tool to solve the problem.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including damaged Excel and pdf repair software products. For more information visit www.datanumen.com

Leave a Reply

Your email address will not be published. Required fields are marked *