Upgrade to DeskSite 9 / Office 2013 - Issue with custom footer
Hello there - I am in need of some assistance please! I am not very familiar with DeskSite, but I am a web developer and also am in charge of maintaining our custom WORD templates and ribbon.
We are currently using Office 2010 and DeskSite 8.5 - but are in the process of getting ready to upgrade to DeskSite 9.0 and Office 2013.
In WORD, we currently use the custftClassic_Standard07.dotm template to apply a custom footer to our documents after saving them into DeskSite: Library/Doc#/v# format.
While testing my templates in the new environment, (DeskSite 9/Office 2013) the footer is not being updated in the document after intial Save into DeskSite. If you close the document and reopen from DeskSite, the footer update is applied then. It's just after intial Save that it is not working. There is no error and I have not found anything while trying to debug.
I did try using the new custft_classic_standard(85SP3U2-9x).dotm template file and still haven't had any luck.
Has anyone else experienced this issue? Is there a new sink object call for the inital Save into DeskSite for version 9 / Office 2013?
Any ideas / suggestions would be greatly appreciated!
Thanks, Terri
Comments
-
Hi,
8.5 Sp3 Update 4 has a new .Net interface for Worksite in VBA, but there is a backwardly compatiable COM object in 9, so it should work. Judging by the fact it connects to worksite on Open makes it harder to diagnose without seeing the code, as you must be concting to the legcy com object if it works.
I'd avoid macros these days, go for a VSTO addin, Microsoft planning to drop VBA soon. We have a addin we can sell, but id doesn't take long to develop
0 -
I've narrowed the issue down - the sink PostOnOK events are not firing, which it what calls my footer code.
For example this sink event fires:
Private Sub objExtensibilitySink_OnCreateNewProfile( _
ByVal objImportCmd As Object)
Dim objActiveNRTDocument As IManage.NRTDocument
Set objActiveNRTDocument = _
objExtensibilitySink.GetDocumentFromPath(Word.ActiveDocument.FullName)
If Not objActiveNRTDocument Is Nothing Then
objActiveNRTDocument.Refresh
End If
Set objImportCmdSink = objImportCmd
End SubBut then this is NOT firing:
Private Sub objImportCmdSink_PostOnOK(ByVal pMyInterface As Object)
Dim objDocument As IManage.NRTDocument
Set objDocument = objImportCmdSink.Context("ImportedDocument")
FootActiveDocument objDocument, "Import"
End SubSame thing with the OnCreateNewVersion and objNewVersionCmdSink_PostOnOK -- first sub runs but then the PostOnOK does not.
Any idea why the PostOnOK events would not fire?
Thanks, Terri
0
Categories
- All Categories
- 117 Developer Announcements
- 52 Articles
- 145 General Questions
- 133 Services
- 56 OpenText Hackathon
- 35 Developer Tools
- 20.6K Analytics
- 4.2K AppWorks
- 9K Extended ECM
- 912 Cloud Fax and Notifications
- 81 Digital Asset Management
- 9.3K Documentum
- 29 eDOCS
- 167 Exstream
- 39.8K TeamSite
- 1.7K Web Experience Management
- 4 XM Fax
- Docker Automation
- LiveSite Content Services (LSCS) REST API
- Single Page Application (SPA) Modules
- TeamSite Add-ons
If you are interested in gaining full access to the content, you can register for a My Support account here.