VBNet - Форум - Замена текста в объекте Shape.TextFrame.TextRange

Вопрос: Замена текста в объекте Shape.TextFrame.TextRange Добавлено: 08.11.11 17:08

Автор вопроса: OLGA | ICQ: 444555666

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

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.
Помогите кто сталкивался с этой проблемой. Я копаюсь уже неделю. Спасибо заранее.
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #1	Добавлено: 10.11.11 14:09
	1. http://www.cyberforum.ru/vba/thread379852.html http://www.programmersforum.ru/showthread.php?s=85b5ac78deec7e2062792a6fcafbf487&p=910650 2. Смотри: http://forum.codenet.ru/threads/11211-%D0%9F%D0%BE%D0%B8%D1%81%D0%BA-%D0%B8-%D0%B7%D0%B0%D0%BC%D0%B5%D0%BD%D0%B0-%D1%82%D0%B5%D0%BA%D1%81%D1%82%D0%B0-%D0%B2-%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D0%B5-Word http://www.vbrussian.com/Article.asp?ID=99 Ответить

Страница: 1 |