Замена текста в объекте Word shape.TextFrame.TextRange.Text

[DolgopolovaOlga]

Здравствуйте!
Помогите с заменой текста в объекте надпись shape
Привожу пример кода:

For Each sec In oBook.Sections

                        For Each kolontitul In sec.Headers            'верхний колонтитул

                            For Each shp In kolontitul.Shapes

                                If shp.TextFrame.HasText = True Then
                                    Dim str As String = shp.TextFrame.TextRange.Text
                                    'Find text to replace
                                    If str.Contains(strWhat) Then
                                        'Replace exisitng text with the new text
                                        Dim idx As Integer = str.IndexOf(strWhat)
                                        Dim strStartText As String = str.Substring(0, idx)
                                        Dim strEndText As String = str.Substring(idx + strWhat.Length, str.Length - 1 - (idx + strWhat.Length - 1))
                                        shp.TextFrame.TextRange.Text = strStartText & strReplace & strEndText

                                        'If TypeOf shp Is TableLayoutPanel Then
                                        'Dim tfTbl As Microsoft.Office.Interop.Word.TextFrame

                                        'Dim tbl As Microsoft.Office.Interop.Word.Table


                                        'strNew

                                    End If

                                End If

                            Next shp
                        Next

Также не работает метод .Find.
Помогите кто сталкивался с этой проблемой. Я копаюсь уже неделю. Спасибо заранее.

[shanemac51]

Sub w111108_1308()
'в колонтитул вставила фигуру с текстом 1gggg
w111108_1308w "1", "2"
w111108_1308w "ggg", "www"
End Sub
Sub w111108_1308w(zstrWhat As String, zstrReplace As String)
'все объявления начала с z-буквы, чтобы СЛУЧАЙНО не попасть на зарезервированное слово
'-------ваш синтаксис операторов --явно не WORD-VBA------------
'''''''''гадать не стала---------------------------------------
Dim zsec As Section
Dim zobook As Document
Dim zkolontitul
Set zobook = Word.ActiveDocument
Dim zshp As Shape
Dim zstr As String, zstr2
Dim zidx As Integer
Dim zstrStartText As String
Dim zstrEndText As String


For Each zsec In zobook.Sections

For Each zkolontitul In zsec.Headers            'верхний колонтитул

For Each zshp In zkolontitul.Shapes

If zshp.TextFrame.HasText = True Then

zstr = "" & zshp.TextFrame.TextRange.Text
'Find text to replace

zidx = InStr(1, zstr, zstrWhat)
If zidx > 0 Then
'Replace exisitng text with the new text


zstrStartText = Mid(zstr, 1, zidx - 1)

zstrEndText = Mid(zstr, zidx + Len(zstrWhat))
zstr2 = zstrStartText & zstrReplace & zstrEndText
zshp.TextFrame.TextRange.Text = zstr2

'If TypeOf shp Is TableLayoutPanel Then
'Dim tfTbl As Microsoft.Office.Interop.Word.TextFrame

'Dim tbl As Microsoft.Office.Interop.Word.Table


'strNew

End If

End If

Next zshp
Next zkolontitul
Next zsec

End Sub

[DolgopolovaOlga]

я уже так пробовала.

[shanemac51]

Сообщение от DolgopolovaOlga

я уже так пробовала.

у меня все корректно отработало

[DolgopolovaOlga]

а у тебя надпись имеет другие элементы не текстовые?

[shanemac51]

Сообщение от DolgopolovaOlga

а у тебя надпись имеет другие элементы не текстовые?

я вставила автофигуры прямоугольник и стрелки-линии

[DolgopolovaOlga]

ты пишешь код в VS 2010?

[DolgopolovaOlga]

выложить свой пример редактируемого файла?

[shanemac51]

Сообщение от DolgopolovaOlga

выложить свой пример редактируемого файла?

мой или ваш

word-vba-2007

[DolgopolovaOlga]

а я пишу на VB.net внешнее приложение