VBNet - Форум - Два вопроса по Word

Вопрос: Два вопроса по Word Добавлено: 04.08.06 16:11

Автор вопроса: bi-lya

Два вопроса
1. Необходимо сохранять некоторую информацию (посредством кнопки
СОХРАНИТЬ), которая была внесена в TextBox'Ы, для того, что бы ее потом
можно было вставлять опять в TextBox'Ы кнопкой ЗАГРУЗИТЬ.
То есть, для этого необходимо выходить на диалоговые окна "Открыть" и
"Сохранить" и использовать какой-либо файл, где это будет сохраняться и как
можно проще выгружаться в форму
Подскажите, пожалуйста, как выходить на эти окна и какое лучше приложение
использовать для файла сохранения?
2. Есть необходимость "перескочить" от найденного в тексте символа ИЛИ на некоторое
количество символов вправо (при этом не затирая существующих символов) ИЛИ
также от найденного символа опуститься на строку ниже и вставить содержимое
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

Это не работает
Ответить

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

Номер ответа: 1 Автор ответа: cepreu-b Вопросов: 0 Ответов: 1	Профиль \| \| #1	Добавлено: 07.08.06 09:13
	Попробуй http://www.vbzero.narod.ru/loading.htm, это для VB6 вообще-то, может что-нибудь поправить нужно будет. А по второму не подскажу пока... Ответить

Номер ответа: 2 Автор ответа: bi-lya Вопросов: 1 Ответов: 125	Профиль \| \| #2	Добавлено: 07.08.06 11:03
	Спасибо, cepreu-b, по сохранению что нужно нашел, а вот со вторым не разобрался. Это я делаю в качестве доработки для вордовских файлов (смет, форм КС-2) сметной программулины "Барс", где приходиться привязываться к символу в верхней строке и вставлять значение ниже в строке (в КС-2, если кто в курсе). Ответить

Номер ответа: 3 Автор ответа: Alex ICQ: no Вопросов: 3 Ответов: 13	Web-сайт: no Профиль \| \| #3	Добавлено: 26.09.06 14:43
	попробуй так Selection.Find.ClearFormatting With Selection.Find .Text = "искомый текст" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=56 'перевод курсора в право на 56 символов от начала выделения. ' перед тем, как что-то делать дальше желательно снять выделение Selection.Collapse wdCollapseEnd 'иначе выделенный кусок затрется End Sub Переход ниже строчкой selection.MoveDown Unit:=wdLine, Count:=1 А поле из формы в документ я вставлял так Private Function VVedenie() Dim f1 As New frmTO 'Показать форму ввода f1.Show 'Ввести поле формы TextBox Selection.InsertAfter Text:=f1.ПолеКники.Text 'Вывести форму из памяти Set f1 = Nothing End Function Public Sub jkljkl() ... 'Помещаем курсор в нужное место как описывалось выше 'Вызов функции VVedenie()и помещаем значение поля TextBox после текста см.выше VVedenie 'снимаем выделение, чтобы не удалить вставленное значение Selection.Collapse wdCollapseEnd Ответить

Номер ответа: 4 Автор ответа: Alex ICQ: no Вопросов: 3 Ответов: 13	Web-сайт: no Профиль \| \| #4	Добавлено: 26.09.06 14:49
	попробуй так Selection.Find.ClearFormatting With Selection.Find .Text = "искомый текст" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=56 'перевод курсора в право на 56 символов от начала 'выделения. ' перед тем, как что-то делать дальше желательно снять 'выделение Selection.Collapse wdCollapseEnd 'иначе выделенный кусок затрется Переход ниже строчкой selection.MoveDown Unit:=wdLine, Count:=1 А поле из формы в документ я вставлял так Private Function VVedenie() Dim f1 As New frmTO 'Показать форму ввода f1.Show 'Ввести поле формы TextBox Selection.InsertAfter Text:=f1.ПолеКники.Text 'Вывести форму из памяти Set f1 = Nothing End Function Public Sub jkljkl() ... 'Помещаем курсор в нужное место как описывалось выше 'Вызов функции VVedenie()и помещаем значение поля TextBox после текста см.выше VVedenie 'снимаем выделение, чтобы не удалить вставленное значение Selection.Collapse wdCollapseEnd Ответить

Страница: 1 |