Изменение текста WordArt в колонтитулах

У меня вот такое получилось с нарисованными самим автофигурой и объектом Wordart в нем:

  
    Selection.HeaderFooter.Shapes(1).Select
    Selection.InlineShapes(1).TextEffect.Text = "тут изменененный текст"

Как я понимаю, для вас важно именно это?.
Приведенным кодом осуществляется выбор первой автофигуры (можно вместо цифры ее имя в кавычках) и изменение текста объекта WordArt (TextEffect.Text).
Так как сам еще не умею выбирать автофигуры, могу только такой вариант предложить.
Вполне вероятно, что в последнюю строку тоже нужно будет вносить изменение.. Но с тем, что я нарисовал, это работает!!!!

Вот что еще нашел в инете по этому поводу:

Обычно вы ссылаетесь на элемент управления в документе по его кодовому имени - так же, как если бы этот элемент управления находился на форме. Однако в документах Word существует еще одна возможность доступа к элементам управления - через коллекции InlineShapes и Shapes. Элемент управления, помещенный в текстовый слой, содержится в объекте InlineShape, а элемент управления из слоя рисования - в объекте Shapes.

andrkar, Этот вариант я использовал. Для этого необходимо переводить документ в режим редактирования колонтитулов, а этого хотелось бы избежать. Но все равно спасибо.

viter.alex, да спасибо, код срабатывает. А если усложнить задачу до сгруппированных автофигур?
Для примера прилагаю файл.

viter.alex, большое спасибо. Код вполне отвечает конкретному примеру. Что касается справки по VBA, то никогда не читал ее с особой скурпулезностью. Что касается приведенного Вами образца справки, то мне кажется, что в данном случае TextEffect Property ни как не связано с msoTextEffect. Перефразировав этот пример с использованием InlineShape мы можем поставить в условие любое другое выражение, например то же WdInlineShapeType.

Прошу прощения, я говорил про справку VBA, которую вы выложили после кода примера и про пример в этой справке, а там меняется не текст а шрифт. Я думаю, что можно в этом примере спокойно заменить Shapes на InlineShapes и условие проверки выбрать соответствующее.
К стати, при проверке тип объекта WordArt выдает равный 3, что соответствует wdInlineShapePicture

Да, здесь вы правы. Остается только непосредственно в компанию обращаться.
К стати, по ходу подскажите, какие вообще есть функции для проверки положения курсора в конце документа.

Я попытаюсь написать подробнее о работе с графическими объектами, а пока ограничусь фрагментом со страницы
внешняя ссылка
(я перевел вступительную фразу и комментарий в тексте программы)

Sub Test48800()
  Dim oShpNrm As Shape ' обычная фигура
  Dim oShpInl As InlineShape
  Dim strTemp As String
  For Each oShpNrm In ActiveDocument.Shapes
    If oShpNrm.Type = msoTextEffect Then
      oShpNrm.Select
      MsgBox "WordArt Shape"
    End If
  Next
  For Each oShpInl In ActiveDocument.InlineShapes
    If oShpInl.Type = wdInlineShapePicture Then
      oShpInl.Select
      On Error Resume Next
      strTemp = ""
      strTemp = oShpInl.TextEffect.Text
      If strTemp <> "" Then
        MsgBox "WordArt Inlineshape"
      End If
    End If
  Next
End Sub

На странице внешняя ссылка я выложил небольшую статью
Обработка графики в Microsoft Word средствами VBA, содержащей предварительные сведения об объектах Shape и InlineShape и набор учебных макросов с подробным описанием, демонстрирующих перебор графических объектов в документе Microsoft Word. 
В прилагаемом файле GraphProc.rar  сжат документ
GraphProc02.doc (465 408 байт) с текстом этой страницы и VBA-модулями с описанными на ней макросами.

Отредактировано Марк (01.04.2010 22:15:51)

Марк, большое спасибо и за помощь и за статью.