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.
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("") 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
End If
End If
Dim blnTrackChanges As Boolean
blnTrackChanges = ActiveDocument.TrackRevisions
ActiveDocument.TrackRevisions = False
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
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:=""
End If
End Sub