Перевожу код программы из VBA worda на VB 2010 "автозамена текста в колонтитулах":

<sub>Sub test2()
For Each w In ActiveDocument.Sections(1).Footers(1).Shapes
w.Select
Debug.Print w.Name
If w.Type = msoTextBox Then
Debug.Print w.Name, w.TextFrame.TextRange.Text

With Selection.Find
.Text = "111"
.Replacement.Text = "222"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

' If InStr(1, w.TextFrame.TextRange.Text, "111") Then
' Selection.TypeText Text:="222"
' End If
End If
Next
End Sub</sub>

т.к. пишут ошибку что msoTextBox не объявлен, то я через обозреватель объектов забиваю в поисковик msoTextBox и добавляю строку:
^{Dim msoTextBox As Microsoft.Office.Core.MsoShapeType = 17}

но после этого он мне выдает, такую ошибку: "MsoShapeType" в пространстве имен "Microsoft.Office.Core" является неоднозначным...

Konst_One,

О спасибо огромное!) Не знал, что еще можно таким способом заменять:))