April 9, 2024
Contribute to the Microsoft 365 and Office forum!
Click here to learn more 💡
May 10, 2024
Word Forum Top Contributors:
Convert word citations/bibliography to endnotes
Report abuse
Thank you.
Reported content has been submitted
I developed a macro that converted End Notes to "Text Notes" at the end of a document and I daresay that something similar could be done with citations.
If you can send me a document containing some citations, I will see what can be done with it.
You can decipher my email address from my signature or obtain it from my profile at:
http://answers.microsoft.com/en-us/profile/5846a56b-3e92-46d7-b5bf-4f65922e1f56?sort=lastreplydate&dir=desc&tab=qna&forum=&filter=All&page=1&tm=1374543937262
Doug Robbins - MVP Office Apps & Services (Word)
dougrobbinsmvp@gmail.com
It's time to replace ‘Diversity, Equity & Inclusion’ with ‘Excellence, Opportunity & Civility’ - V Ramaswamy
Report abuse
Thank you.
Reported content has been submitted
Was this reply helpful?
Sorry this didn't help.
Great! Thanks for your feedback.
How satisfied are you with this reply?
Thanks for your feedback, it helps us improve the site.
How satisfied are you with this reply?
Thanks for your feedback.
Try:
Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range
With ActiveDocument
For i = .Fields.Count To 1 Step -1
With .Fields(i)
If .Type = wdFieldCitation Then
Set Rng = .Result
.Cut
With Rng
.Endnotes.Add Rng
.MoveEnd wdCharacter, 1
.Endnotes(1).Range.Characters.Last.Previous.Paste
End With
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
Paul Edstein
(Fmr MS MVP - Word)
Report abuse
Thank you.
Reported content has been submitted
Was this reply helpful?
Sorry this didn't help.
Great! Thanks for your feedback.
How satisfied are you with this reply?
Thanks for your feedback, it helps us improve the site.
How satisfied are you with this reply?
Thanks for your feedback.
Question Info
Last updated September 30, 2021 Views 707 Applies to: