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
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