KeyBindings not working

[ASkolnick]

I am looking to add KeyBindings to a word document, however the document will not be attached to the normal template since it uses an attached template. The KeyBinding itself has to be on the document since I need to remove the attached template prior to the file saving.

I have tried the following with CustomizationContext=ActiveDocument, but the problem is then the attached template does not load.
The code looks as follows:


Sub AutoOpen() ' AutoOpen for Word forms
Dim NameofRep As String
#If ExcelForm Then
#Else

Dim sRepositoryFile, sServerFilePath, CompName

Dim sMsg

CreateWordFormDocument ' ***** do this first of all

' must unprotect to add AddIn
If WordFormDocument.ProtectionType <> wdNoProtection Then WordFormDocument.Unprotect

' Stop AutoOpen for debugging (this will only debug the form -- not the repository)
If (PropertyRead(CP_STOP) <> "") Then Stop
If PropertyRead(CP_DOCWASSAVED) = "" Then DocumentIsNew = True
If AutoOpenSkip Then Exit Sub ' v05 check for DesignMode etc

gbRunMode = True

On Error Resume Next
If Environ("clientname") = "" Then
CompName = Trim(Environ("computername"))
Else
CompName = Trim(Environ("clientname"))
End If
sLocalFolderPath = LOCAL_PATH & CompName & "\" & Environ("username") & "\" & REPOSITORY_SUBFOLDER
'KillRepositoryFiles sLocalFolderPath

If FileNotFound(sLocalFolderPath) Then MkDir sLocalFolderPath
zCheckErr "MkDir " & sLocalFolderPath
sRepositoryFile = PropertyRead("Repository") ' eg Repository.dot
sServerFilePath = GetFormsXMLPath & REPOSITORY_SUBFOLDER & sRepositoryFile ' eg ...\FormsXML\Repository\Repository.dot
sLocalFilePath = sLocalFolderPath & sRepositoryFile ' eg C:\SRS\Repository\Repository.dot
WordFormDocument.AttachedTemplate = ""

' If server copy is newer than local copy or if local copy is not found, attempt
' to copy from ...\FormsXML\Repository to C:\srs\Repository
' (FileGetDateTime returns 1/1/1900 if files don't exist eg when testing with local folders)


If Application.Documents.Count > 1 Then
OpenMultipleCode sServerFilePath, sRepositoryFile
Application.OnTime Now + TimeSerial(0, 0, 0.5), "FormRunRepositoryAutoopen"
Exit Sub
Else
If FileGetDateTime(sServerFilePath) > FileGetDateTime(sLocalFilePath) Then
' can give 'file in use' if repository is attached to an open doc or was not properly released
FileCopy sServerFilePath, sLocalFilePath
zCheckErr "FileCopy to " & sLocalFilePath
End If

If FileNotFound(sLocalFilePath) Then
sMsg = "Code Repository not Found" & vbCr & ExplainXMLPath & vbCr & "Press OK to exit"
MsgBox sMsg, , MsgBoxTitle
Else
' there is a local repository but we were unable to update it
' give a warning but allow the form to load
If FileGetDateTime(sServerFilePath) > FileGetDateTime(sLocalFilePath) Then

sMsg = "Warning -- failed to update local Repository " & vbCr & msErrLog
MsgBox sMsg, , MsgBoxTitle
End If

On Error GoTo errlab
Application.DisplayAlerts = wdAlertsNone
WordFormDocument.AttachedTemplate = sLocalFilePath
End If

Application.OnTime Now + TimeSerial(0, 0, 0.5), "FormRunRepositoryAutoopen" 'Delay seems to be needed

End If
CustomizationContext = WordFormDocument
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyA), _
KeyCategory:=wdKeyCategoryMacro, _
Command:="SaveHere"
Exit Sub
errlab:
sMsg = "Error loading code repository"
MsgBox sMsg & vbCrLf & vbCrLf & Err.Number & " " & Err.Description, , MsgBoxTitle

#End If

End Sub

Any help is greatly appreciated.

[macropod]

You'll only be able to retain the keybindings in the document if: (a) it remains attached to the template; or (b) you add the code to the actual document, preferably before it is saved. For (b), that means all users who use this template will have to set Word to give trusted access to the VBA project model, something that severely compromises Word's security. Giving trusted access to the VBA project model is not something that can be done programmatically (with good reason) and a user changing it back to the default (no access) would break your process.

[ASkolnick]

Thanks for your information. We need to trust the VBA resource for various reasons anyway, so that is not a problem. What I am trying to do is from the attatched template, sendkeys to trigger something on the main template which runs a macro (SAVEHERE) on the main template because the attached template gets released prior to saving.

[fumei]

I am not sure what you mean by "main" template, and what you mean by "released".

There is ALWAYS an attached template for a document. You may unattach a template, but it is ALWAYS replaced by another, if not a specified template, then Normal.

So is your "main" template actually a global template, that is, a code container? If it is a global template (and it is loaded) then you can fire directly.

[ASkolnick]

No, here is the layout.

Main Form - That is where you see the code listed above. Also includes a procedure called SaveHere.
Repository - This is the attached template which gets released.

So the procedure is as follows:

1) Opens Main template
2) Attaches to Repository where most of the code is stored. There is a User Form part of the Repository which starts the save, but I need to release the Repository before actual saving.
3) The way I was getting around this was by having the User Form activate a SendKeys of "Ctrl-Shift-A", which should activate the macro SaveHere on the form.

This has worked in the past, but it is possible that there is a timing issue causing the repository to unattach and the sendkeys not to send.

[fumei]

I think there is some terminology confusion here.

1) "Open Main template". I do not know what you mean by this. Do you mean you open an actual template file (.dotm, or .dot)?
2) "Attaches to Repository". I do not know what you mean by this either. Again, I also do not know what you mean by "released". You can CHANGE an attached template, but the document still ALWAYS has some template attached to it. Do you mean you change the Repository template to another template (Main)?

I am wondering with your 3) that "Main template" is not a template at all, but a USERFORM. But I have no idea what attached to Repository means.

The bottom line is still what macropod states. SendKeys is a document level function, so it has to be in the document.

[fumei]

Hmmm. I do notice that your code has AutoOpen, which implies that you are in fact opening a file. If this is a template file that you open only to get the code, this is a mistake. LOAD the template file as a global template (it is NOT opened; the code is loaded only). Once loaded all the code there is available.

[ASkolnick]

I am not obviously using the terminology right.

Main Form - This is a .doc, not a template. The AutoOpen is in the doc.
Repository - This is the Attached template (a .dot). This is not a global template because multiple documents may need to attach, and it needs to know which one since global variables for each file is set.

Since this is an attached template, I want to detach the template prior to saving the file, but since most of the code is in the Repository (Attached Template) the way I had solved that problem is having the attached template use a Send Keys of (ctrl-Shift-A) to trigger the Subroutine SaveHere which has a keybinding on the Main Form.

[fumei]

Well, there is a simple solution. Use a global template for the code you wish to use.

[fumei]

Well, there is a simple solution. Use a global template for the code you wish to use.


Since this is an attached template, I want to detach the template prior to saving the file First of all, why? And replace it with what attach template? A different one? Normal?

But anyway, let me see if I follow this.

You open a document (Main form). The attached template for this document is Repository.dot.
In the document (Main form) is a sub SaveHere which has a keybinding.

If the DOCUMENT has a keybinding to a sub in the document, you do not actually need it. Code in the attached template can fire it directly.