View Single Post
Old 08-07-2022, 06:21 AM
BrianHoard BrianHoard is offline Windows 10 Office 2019
Advanced Beginner
Join Date: Jul 2022
Location: Haymarket, VA USA
Posts: 32
BrianHoard is on a distinguished road

Thanks Andrew, however this script doesn't seem to change the formatting. Still getting the same result when pasted. Running the following code to inspecting the style on each character after running your code shows as below. Not sure how to get rid of these pesky Endnote References

Sub formatCheck()
  Dim rng_character As Range
  For Each rng_character In ActiveDocument.Characters
    Debug.Print (rng_character.Text & " " & rng_character.Style)
  Next rng_character
End Sub
T Normal
e Normal
s Normal
t Normal
1 Endnote Reference
T Normal
e Normal
s Normal
t Normal
2 Endnote Reference
Reply With Quote