excel update superscript by 1

macropod · #1 12-08-2014, 05:45 PM

Assuming the numbers are superscripted text (not footnote/endnote references and the like), you could use a macro like:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[0-9]@>"
    .Font.Superscript = True
    .Replacement.Text = ""
    .Format = True
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    .Text = CLng(.Text + 1)
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see: http://word.mvps.org/Mac/InstallMacro.html

htownpaper · #2 12-08-2014, 06:03 PM

quick question,

how could I set the increment the superscript based upon the value of the preceeding superscript.

for example

x^1
x^32
x^66

would become

x^1
x^2
x^3

htownpaper · #3 12-08-2014, 06:12 PM

got it!

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[0-9]@>"
    .Font.Superscript = True
    .Replacement.Text = ""
    .Format = True
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    If .Text = "0" Then
      .Text = CLng(.Text + 1)
      i = 1
    Else
      .Text = CLng(i + 1)
      i = i + 1
      .Collapse wdCollapseEnd
      .Find.Execute
    End If
  Loop
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to custom Date Picker CC format with Ordinal and superscript it!	areriff	Word VBA	5	08-21-2022 04:28 PM
Insert superscript into a textbox	Deltaj	Word VBA	3	11-30-2014 04:23 PM
Replace with superscript in Word 2013	docbike	Word	4	04-07-2014 05:23 PM
Combining Files--Superscript problem	lindajacques	PowerPoint	0	01-06-2011 01:20 PM
Inserting Date, formatting to superscript and subscript	louq	Word	1	10-22-2009 09:29 AM