| Name | Type | Description |
|---|---|---|
| Template |
String
|
|
| IncludeGraphics |
Boolean
|
Specifies whether to include graphics from the template in the new document. |
Sub Test() Dim d As Document Dim s As Shape Set d = CreateDocumentFromTemplate(Path & "Template\Web\webtemplate_001.cdt", True) For Each s In d.ActivePage.Shapes If s.Type = cdrTextShape Then s.Text.Contents = s.Name End If Next s End Sub