Вставка в текст объекта WordArt

[Максикок]

Создание нового документа MS Word. Вставка в текст объекта WordArt с текстом, введенным пользователем. Изменение текста объекта WordArt. Сохранение документа в формате веб-страницы в одном файле. Сохранение документа в формате DOC с указанным пользователем именем.
с созданием документа проблем нет

Set NewDoc = Documents.Add(DocumentType:=wdNewBlankDocument)
Windows(NewDoc).Activate

проблема со вставкой объекта WordArt, и его дальнейшем изменением

ActiveSheet.Shapes("WordArt 6").Select
Selection.ShapeRange.TextEffect.Tex t = TextBox1

пробовал так но не работает,помогите пожалуйста

[Максикок]

ActiveSheet.Shapes.AddTextEffeet(msoTextEffect4,"бла бла", "Impact",18,msoTrue,msoFalse, 166.5, 105).Select
Selection.ShapeRange.IncrementLeft lilt
Selection.ShapeRange.IncrementTop -100.5

сделал так но выдает ошибку,run-time error '424' object required,в чем может быть проблема?

[AndVGri]

Вы ничего не напутали? Activesheet - это из Excel.

    Dim pShape As Shape
    Set pShape = ThisDocument.Shapes.AddTextEffect(msoTextEffect4, "bla bla bla", "Impact", 24, msoTrue, msoFalse, 166.5, 105)