You might not receive an email informing you that there is a new reply in a thread you are following. We are working on fixing this as fast as possible. Please make sure to periodically check the conversation to see if there are any updates.
October 31, 2024
Please note, the notification system in the Community is partially broken
You might not receive an email informing you that there is a new reply in a thread you are following. We are working on fixing this as fast as possible. Please make sure to periodically check the conversation to see if there are any updates.
October 14, 2024
Word 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 July 22, 2024 Views 718 Applies to: