' doesn't work in initialise() when addExternalFunctions() is also called WindowSelectionChange) doing on refreshDocument as it If Not isDocumentLinkedToCurrentUser ThenĭocumentState = startUpdatingDocument(ActiveDocument)Ĭall beginUndoTransaction( "Format Mendeley Citations and Bibliography" )Ĭall setCitationStyle(getCitationStyleId()) If launchMendeleyIfNecessary() CONNECTION_CONNECTED Then Set ComboBox2 = getCitationStyleComboBox()ĬomboBox2.Text = getStyleNameFromId(getCitationStyleId()) ' called whilst opening a new document or false if refreshingįunction refreshDocument( Optional openingDocument As Boolean = False ) As BooleanĬurrentDocumentPath = activeDocumentPath() ' openingDocument Set to true if the refresh is being
#Mendeley word plugin update
' Refresh the citations in this document and update the MsgBox errorDescription + " in " + errorSource, Title:= "Mendeley Word Plugin Problem"Ĭall mendeleyApiClient().setWordProcessor( "WinWord", Application.Version) ' If Mendeley has focus, ask it to allow Word to steal focusĬall mendeleyApiClient().allowSetFocus(processId)
' This requires that either Word or Mendeley Desktop currently ' Attempt to bring Word to the foreground ProcessId = mendeleyApiClient().mendeleyProcessId()ĪllowMendeleyToSetForeground = AllowSetForegroundWindow(processId) ' Gives Mendeley Desktop permission to set the foreground window.įunction allowMendeleyToSetForeground() As Boolean IsMendeleyInstalled = (Dir(executablePath) "" ) Set myWS = CreateObject( "WScript.Shell" )ĮxecutablePath = myWS.RegRead( "HKEY_CURRENT_USER\Software\Mendeley Ltd.\Mendeley Desktop\ExecutablePath" ) Private Declare Function SetForegroundWindow Lib "User32" ( ByVal hwnd As Long ) As BooleanīuildingPlugin = Left(ActiveDocument.Name, Len(TEMPLATE_NAME_DURING_BUILD)) = TEMPLATE_NAME_DURING_BUILDįunction isMendeleyInstalled() As Boolean Private Declare Function GetActiveWindow Lib "User32" () As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare Function AllowSetForegroundWindow Lib "User32" ( ByVal processId As Long ) As Boolean Private Declare PtrSafe Function SetForegroundWindow Lib "User32" ( ByVal hwnd As LongPtr) As Boolean Private Declare PtrSafe Function GetActiveWindow Lib "User32" () As LongPtr Private Declare PtrSafe Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare PtrSafe Function AllowSetForegroundWindow Lib "User32" ( ByVal processId As Long ) As Boolean
#Mendeley word plugin license
' See the License for the specific language governing permissions and ' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. ' distributed under the License is distributed on an "AS IS" BASIS,
#Mendeley word plugin software
' Unless required by applicable law or agreed to in writing, software
' You may obtain a copy of the License at ' you may not use this file except in compliance with the License. ' Licensed under the Educational Community License, Version 1.0 (the "License") Learn more about bidirectional Unicode characters To review, open the file in an editor that reveals hidden Unicode characters. This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below.
0 kommentar(er)
