Word: вставка текста в документ

[bi-lya]

Есть необходимость "перескочить" от найденного в тексте символа ИЛИ на некоторое количество символов вправо (при этом не затирая существующих символов) ИЛИ также от найденного символа опуститься на строку ниже и вставить содержимое TextBox'а

Пытался делать так:

Dim a as String * 10

a = TextBox1.Text

Selection.Find.ClearFormatting
With Selection.Find
.Text = "#1"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Text = a

Это не работает. Вставляется в зависимости от положения курсора

[RayShade]

Вопрос к автору - почему он думает что MoveLeft двигает селекшен вправо?

Это раз. И потом, надо после поиска делать Selection.Collapse wdCollapseEnd и будет счастье. Наверное.

[bi-lya]

RayShade, затем, что мне надо чтобы начало нижней строки (на которую пререхожу) должно быть четко под началом найденных символов

[RayShade]

Хм. Зачем - это ясно. Но MoveLeft, двигает селекшен все таки влево.

И потом, Selection ведет себя как курсор в Word. То есть, переход на новую строку всегда отправляет его в ее начало.

Попробуй тогда, считать расстояние от левого края до найденного символа и после сдвига на новую строку, делать MoveRight на это расстояние

[bi-lya]

Не получается ничего с Move' ми... Может есть такие функции, которыми можно определить номер строки, на котором находится найденный символ от начала текста, и затем вставить на следующую строку нужное выражение, или же вычислить номер найденного символа и к нему привязать вставляемое на строку ниже значение?

[GSerg]

Разбиение на строки чисто визуальное, и, хотя "такие функции" есть, надо не использовать их, потому что при изменении ширины страницы, к примеру...

[RayShade]

... случится что то настолько страшное, что об этом даже нельзя написать вслух ...

[bi-lya]

GSerg, дело в том, что у меня количество символов во всех строках одинаковое и в конце каждой строки стоит знак абзаца, поэтому можно было бы этим воспользоваться

[bi-lya]

Должен с удовлетворением заявить, что все получилось. Использовал метод Range.Move & wdCharakter & Left c Right'ом. Спасибо всем принявшим участие!!!