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
Default

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

Code:
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
Normal
T Normal
e Normal
s Normal
t Normal
2 Endnote Reference
Reply With Quote