Change superscripts to regular text except footnote marks without using 'Selection.'

vivka · #6 09-30-2023, 10:16 AM

The code in post 4 should change superscripts in the main text leaving footnotes intact. And this is the fastest way (as far as I know).
But (just in case) try this one. It doesn't use With...End With block:

Code:

Sub Superscripts_To_Regular_MainTxt()
 'Change all superscripts to normal text only in wdMainTextStory (1).

   For Each aStory In ActiveDocument.StoryRanges
     If aStory.StoryType = wdMainTextStory Then aStory.Font.Superscript = False
   Next aStory
 End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Loop through Footnote Reference Marks	Ramses505	Word VBA	6	09-21-2023 12:10 AM
Macro to change font size of Footnote Reference in Footnote Text	TheBigBoss	Word VBA	5	06-10-2022 06:14 AM
Need to change superscripts to regular text but also add parentheses	DCabby	Word VBA	4	11-13-2019 09:43 AM
Convert endnote/footnote to regular text	Cobb78	Word	5	07-11-2016 06:23 AM
Regular (roman) character style doesn't change text to roman	kcbenson	Word	2	10-16-2014 01:31 PM