Thread: [Solved] corrupted source list?
View Single Post
 
Old 09-29-2015, 03:47 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

It's in post #2...

Do note that it's only designed for importing references in the xml format Word uses - which is what the SourcesExport macro produces.

The following macro converts a document’s Citations & Bibliography to static text. Note the use of WordBasic ! for this. Note also that converting a Bibliography to static text does not remove it’s building block container – a form of content control. A trivially-simple alternative is to save the file in Word's doc format.
Code:
Sub References_Unlink()
Dim Fld As Field, FtNt As Footnote, EndNt As Endnote
With ActiveDocument
  For Each Fld In .Fields
    If Fld.Type = wdFieldCitation Then
      Fld.Select
      WordBasic.BibliographyCitationToText 
    ElseIf Fld.Type = wdFieldBibliography Then
      Fld.Select
      WordBasic.BibliographyCitationToText
    End If
  Next
  For Each FtNt In .Footnotes
    For Each Fld In FtNt.Range.Fields
      If Fld.Type = wdFieldCitation Then
        Fld.Select
        WordBasic.BibliographyCitationToText
      End If
    Next
  Next
  For Each EndNt In .Endnotes
    For Each Fld In EndNt.Range.Fields
      If Fld.Type = wdFieldCitation Then
        Fld.Select
        WordBasic.BibliographyCitationToText
      End If
    Next
  Next
End With
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote