I am working on a 200-300 page book using EndNote x7 and Chicago endnotes formatting style. My Notes will be at the end of the book, not at end of a page or chapter. The process works fine but is not productive. For example, if I am editing the document and need to add a new citation on page 3, I do the following: Insert footnote/endnote on the page I am editing, say page 3 Insert selected citation at end of document Scroll back to page 3 to continue editing. What I propose to do is create a macro that has three parts: 1. Prior to inserting a footnote, insert a bookmark named TEMP Insert the selected citation using Word/Tools/EndNote7/Insert selected citation Edit/Find/Goto/TEMP I created the macro, but I cannot get it to work. Is what I am trying to do reasonable and doable? It seems simple, but....

Everything is working exactly as it should. Thanks so much for the assistance. Here are the changes I made: A. Updated Word to 15.17.1 B. Changes suggested by Thomson Reuters support as follows: Quit Word. Browse to this folder on your computer: “Hard Drive Name]/Library/Application Support/Microsoft/ Office365/User Content/Startup/Word.” The folders name may vary depending on your system. Delete the “EndNote CWYW Word 2016.bundle” file if it is still present. Hold down the "option" key on your keyboard and go to the "Go" Menu and choose "Library". Go to Users:[your login name with the house icon]:Library:Application Support:EndNote. Delete “EndNote Cwyw Commands.dotm” and “EndNote Online Cwyw Commands.dotm” if present. Start the EndNote X7 Mac Beta 2. Please verify this is beta 2 by going to the EndNote menu and selecting About EndNote. The version should read “EndNote X7.5p2 (Bld 10976). Go to the EndNote menu and select "Customizer." Check the box in front of the "Cite While You Write" option. Click next until the Customizer is finished. Open a library in the EndNote X7.5 Beta. Open Word 2016 and check the Ribbon for EndNote X7. I also rename the Applescript from Option+Control+f to Option+Command+f. Rich, thanks very much for your great efforts in developing the macro and Applescript. This solution is a nice productivity booster for anyone writing long documents such as books or dissertations.

Perhaps I don't understand.... I also don't use EndNote so I'm confused by what seems to be an interchanging of the term citation & the term endnote . Are you going to all this trouble to create a Bookmark simply so you can return to that insertion point without having to scroll? If so, why not just double-click the endnote number or use one of the built-in keyboard shortcuts for the GoBack command: Option+Command+Z or Shift+F5 ? Either method takes you back to the spot where you inserted the endnote.

Here is the result of what I recorded. Sub InsertEndnote() ' ' InsertEndnote Macro ' ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="TEMP" .DefaultSorting = wdSortByName .ShowHidden = False End With With Selection With .EndnoteOptions .Location = wdEndOfDocument .NumberingRule = wdRestartContinuous .StartingNumber = 1 .NumberStyle = wdNoteNumberStyleArabic End With .Endnotes.Add Range:=Selection.Range, Reference:="" End With Selection.GoTo What:=wdGoToBookmark, Name:="TEMP" Selection.GoTo What:=wdGoToBookmark, Name:="TEMP" Selection.Find.ClearFormatting With Selection.Find .Text = "johnson" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With End Sub

Post the macro so we can take a look.

Macro to insert an endnote and an EndNote X7 citation

Anonymous

I am working on a 200-300 page book using EndNote x7 and Chicago endnotes formatting style. My Notes will be at the end of the book, not at end of a page or chapter. The process works fine but is not productive. For example, if I am editing the document and need to add a new citation on page 3, I do the following:

Insert footnote/endnote on the page I am editing, say page 3
Insert selected citation at end of document
Scroll back to page 3 to continue editing.

What I propose to do is create a macro that has three parts:

1. Prior to inserting a footnote, insert a bookmark named TEMP

Insert the selected citation using Word/Tools/EndNote7/Insert selected citation
Edit/Find/Goto/TEMP

I created the macro, but I cannot get it to work. Is what I am trying to do reasonable and doable? It seems simple, but....

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Anonymous

Everything is working exactly as it should. Thanks so much for the assistance. Here are the changes I made:

A. Updated Word to 15.17.1

B. Changes suggested by Thomson Reuters support as follows:

Quit Word.
Browse to this folder on your computer: “Hard Drive Name]/Library/Application Support/Microsoft/ Office365/User Content/Startup/Word.” The folders name may vary depending on your system.
Delete the “EndNote CWYW Word 2016.bundle” file if it is still present.
Hold down the "option" key on your keyboard and go to the "Go" Menu and choose "Library". Go to Users:[your login name with the house icon]:Library:Application Support:EndNote.
Delete “EndNote Cwyw Commands.dotm” and “EndNote Online Cwyw Commands.dotm” if present.
Start the EndNote X7 Mac Beta 2. Please verify this is beta 2 by going to the EndNote menu and selecting About EndNote. The version should read “EndNote X7.5p2 (Bld 10976).
Go to the EndNote menu and select "Customizer."
Check the box in front of the "Cite While You Write" option. Click next until the Customizer is finished.
Open a library in the EndNote X7.5 Beta.
Open Word 2016 and check the Ribbon for EndNote X7.

I also rename the Applescript from Option+Control+f to Option+Command+f.

Rich, thanks very much for your great efforts in developing the macro and Applescript. This solution is a nice productivity booster for anyone writing long documents such as books or dissertations.

0 comments

Answer accepted by question author

Anonymous

The issue is this piece of code:

'since the VBA SendKeys command does not work in Office 2011 I had to resort to AppleScript

Dim MyScript As String

MyScript = MyScript & "tell application ""System Events""" & Chr(13)

MyScript = MyScript & "keystroke ""f""" & " using (option down, command down)" & Chr(13)

'I assigned a custom keystroke to Option+Control+e that would insert a test AutoText

'If EndNote X7 overrides that built-in keystroke maybe it will work as you desire

MyScript = MyScript & "delay 0.1" & Chr(13)

MyScript = MyScript & "end tell" & Chr(13)

ActiveDocument.Activate

MacScript (MyScript) 'this executes the above MacScript

Under the new "sandboxing" rules of Apple if you want to be in their store with your "APP" you have to play by their ever changing hedonistic rules. Microsoft has decided to be their BITC@!

As I said previously, I can't take this on right now, in fact I'm only visiting the forum when I need a distraction from what is turning out to be a full time job trying to make Office 2016 for the Mac VBA work for everyone by reporting issues I'm finding directly to the product team. Right now I don't think I'm one of the more popular MVP's in their address book. :-)

What is required to get this working is someone to investigate AppleScriptTask, and figure out how to write and install the script into your machine and then interface it with this VBA code.

And no Dr. John, you never did send me a free copy of your book and I'm not about to pay for one, so... :-)

0 comments

50 additional answers

Bob Jones AKA CyberTaz MVP 437.7K Reputation points

2014-07-17T20:59:30+00:00

Perhaps I don't understand.... I also don't use EndNote so I'm confused by what seems to be an interchanging of the term citation & the term endnote.

Are you going to all this trouble to create a Bookmark simply so you can return to that insertion point without having to scroll? If so, why not just double-click the endnote number or use one of the built-in keyboard shortcuts for the GoBack command: Option+Command+Z or Shift+F5? Either method takes you back to the spot where you inserted the endnote.
Was this answer helpful?

0 comments No comments
Anonymous

2014-07-17T19:42:52+00:00

Here is the result of what I recorded.

Sub InsertEndnote()

'

' InsertEndnote Macro

'

'

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="TEMP"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

With Selection

With .EndnoteOptions

.Location = wdEndOfDocument

.NumberingRule = wdRestartContinuous

.StartingNumber = 1

.NumberStyle = wdNoteNumberStyleArabic

End With

.Endnotes.Add Range:=Selection.Range, Reference:=""

End With

Selection.GoTo What:=wdGoToBookmark, Name:="TEMP"

Selection.GoTo What:=wdGoToBookmark, Name:="TEMP"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "johnson"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

End Sub
Was this answer helpful?

0 comments No comments
Anonymous

2014-07-17T19:30:26+00:00

Post the macro so we can take a look.
Was this answer helpful?

0 comments No comments