A Sincere and Permanent Attachment

Tags: Office

Our goal for today is automatically attaching a Smart Document to a document - hopefully from a button or a COM add-in or something.

Well, my pre-2003 Office skills are a bit rusty, so I haven't gotten around to making a COM add-in for this - and I think VSTO deployment these days is still too clunky and awkward to be convenient, but for now, this bit of VBA code will attach our manifest to the active document:

[Note: Some of my actions here might be superfluous. I am not entirely sure as to what is necessary. If you can refine this - please do.]

Sub AttachManifest()

    Dim Namespace As XMLNamespace
    Set Namespace = ActiveDocument.Application.XMLNamespaces.Add(“C:\Projects\SD\my.xsd, “My Schema“, “my“, True)
    Namespace.AttachToDocument (ActiveDocument)
    ActiveDocument.Application.XMLNamespaces.InstallManifest "C:\Projects\SD\manifest_signed.xml", True
    
     ActiveDocument.SmartDocument.SolutionURL = "C:\Projects\SD\manifest_signed.xml"
    ActiveDocument.SmartDocument.SolutionID = "My Schema"
   
End Sub


 

No Comments