Pasting superScripts from Word problem

BrianHoard · #9 08-07-2022, 09:35 AM

I think I've got it worked out. I saw mention on another forum from 2021 (sorry, didn't save the link) that there is a bug in Word when trying to modify character styles through a find. Of course, since this has to process every character in the document, is too slow to use on large docs. I'll continue to work on this so I don't have to check every character individually.
So I did this and it fixed it. The previous Endnote Reference is now Normal.

Code:

Sub test()
  ' Remove Endnote Reference character style
  
  Dim rngDoc As Range
  Dim rngChar As Range
  
  Set rngDoc = ActiveDocument.Range
  
  For Each rngChar In rngDoc.Characters
    If rngChar.Style = "Endnote Reference" Then
      rngChar.Font.Reset
      rngChar.Font.Superscript = True
     End If 'rngChar.Style
  Next rngChar

  For Each rngChar In ActiveDocument.Range.Characters
    Debug.Print (rngChar.Text & ", " & rngChar.Style)
  Next rngChar
End Sub

Result:
T, Normal
e, Normal
s, Normal
t, Normal
1, Normal
Pastes as superScript into website's rich text editor.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Problem with copying/pasting from web to word 2016	cricket1001	Word	2	07-20-2020 07:00 PM
Extract words which has superscripts and the corresponding superscript value in footnotes in word	sai	Word VBA	12	05-11-2020 04:29 AM
Problem pasting mixed content from webpage into Word 2007	silverman166	Word	0	02-17-2020 03:46 AM
Word 2000--Problem with format retention when pasting	JerryL	Word	2	01-05-2014 07:20 PM
Copy and pasting problem Word 2010	Sarah262	Word	3	08-16-2012 03:46 PM