Problem with digitaly signed VBProject

O

Ol

Hi all,

I have a template with digitally signed VBProject. The problem is that the
second statement in the sub fails. I had noticed that if "Normal.dot" also
digitally signed the problem disappears. But signing "Normal.dot" for certain
reasons is unacceptable.

The possible solution could be to make Word to create embedded Microsoft
Word Document based on digitally signed template altered from "Normal.dot".
But I didn’t found the way to do it still.



Security level: high
Trust all installed add-ins and templates: unchecked

Sub CreateDocument()

Dim doc As Document

Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8", _
FileName :="", LinkToFile:=False, DisplayAsIcon:=True,
IconFileName:= _
"iwb3.ico", IconIndex:=0, IconLabel:=""

Set doc = ActiveDocument.InlineShapes(1).OLEFormat.Object

End Sub
 
Top