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

@staer · Регистрация: 30.09.2011

Студворк — интернет-сервис помощи студентам

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

Visual Basic

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

т.к. пишут ошибку что msoTextBox не объявлен, то я через обозреватель объектов забиваю в поисковик msoTextBox и добавляю строку:

Visual Basic

1	Dim msoTextBox As Microsoft.Office.Core.MsoShapeType = 17

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

SoftIce · 05.10.2011, 17:20

Конечно ты обратился не по теме, тут нужно или в vba или в net. Но я бы тебе посоветовал убрать Option Explicit. Пока. На время.

@staer · 05.10.2011, 22:31 **[ТС]**

А что такое Option Explicit?

SoftIce es geht mir gut 11264 / 4746 / 1183 Регистрация: 27.07.2011 Сообщений: 11,438
	05.10.2011, 17:20	2
	Конечно ты обратился не по теме, тут нужно или в vba или в net. Но я бы тебе посоветовал убрать Option Explicit. Пока. На время. 0

@staer 0 / 0 / 0 Регистрация: 30.09.2011 Сообщений: 7
	05.10.2011, 22:31 [ТС]	3
	А что такое Option Explicit? 0

Опции темы