Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
83 lines (70 sloc) 3.06 KB
Option Explicit
Sub Kaveh_ENChangeCitationColor()
'**************************************************************************
'Macro Name: Kaveh_ENChangeCitationColor()
'Version: 1.1
'
'Update 1.1:
'Update Notification has been added.
'Document Save question box is added.
'
'
'Description: This Macro marks (DarkBlue) the inline citations of EndNote.
'EndNote software does not have any built-in feature to change the color of in-line citations in a Word document.
'This macro changes the color of all citations made by EndNote, and makes the references in a document clear.
'
'This Macro is developed by Kaveh Bakhtiyari, and it is copyrighted.
'You can use this macro for free, but do not remove this copyright heading.
'www.bakhtiyari.com
'**************************************************************************
Dim CurrentVersion As Single
CurrentVersion = 1.1
On Error Resume Next
Dim LatestVersion As Single
Dim DownloadURL As String
Dim doc As MSXML2.DOMDocument60
Set doc = New MSXML2.DOMDocument60
doc.async = False
If doc.Load("http://www.bakhtiyari.com/version.xml") Then
LatestVersion = CSng(doc.SelectSingleNode("/AppData/KavehENChangeCitationColor/Version").Text)
DownloadURL = doc.SelectSingleNode("/AppData/KavehENChangeCitationColor/url").Text
If LatestVersion > CurrentVersion Then
If vbYes = MsgBox("Currently, you are running version " & CurrentVersion & "." & Chr(13) & "There is a new version " & _
LatestVersion & " available at " & DownloadURL & "." & Chr(13) & "Would you like to update?", vbYesNo, "Update available") Then
ActiveDocument.FollowHyperlink Address:=DownloadURL
End If
End If
End If
If Not ActiveDocument.Saved Then
If vbYes = MsgBox("Do you want to save your document?", vbYesNo, "Save document") Then
ActiveDocument.Save
End If
End If
Dim blnTrackChanges As Boolean
blnTrackChanges = ActiveDocument.TrackRevisions
ActiveDocument.TrackRevisions = False
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Color = Word.WdColor.wdColorDarkBlue
End With
With Selection.Find
.Text = "^19 ADDIN EN.CITE"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
ActiveDocument.TrackRevisions = blnTrackChanges
If vbYes = MsgBox("Would you like to check our website?", vbYesNo, "Do you like it?") Then
ActiveDocument.FollowHyperlink Address:="http://www.bakhtiyari.com"
End If
End Sub