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