VBNet - Форум - Перенос текста из Excel в Word. Как победить 256 с

Вопрос: Перенос текста из Excel в Word. Как победить 256 с Добавлено: 25.10.10 12:07

Автор вопроса: abv

Сделал первый раз программу для замены текста в шаблоне документа Word. Два дня читал книжки, наверное не понял или не нашел как сделать замену текста фрагментом превышающем 256 символов. Если у кого есть пример решения аналогичной задачи, подскажите пожалуйста.

Private Sub ЛевыйДоговор()
    Dim docFileName As String, docPath As String
    docPath = Workbooks(ActBook).Sheets("Set").Cells(14, 2).Value
    Dim oWord As New Word.Application
    oWord.Visible = True
    oWord.Documents.Open Filename:=Workbooks(ActBook).Sheets("Set").Cells(15, 2).Value
If Workbooks(ActBook).Sheets("Сумма").Cells(3, 2).Value = 1 Then
        Txt = Workbooks(ActBook).Sheets("Set").Cells(72, 2).Value
    Else
        Txt = Workbooks(ActBook).Sheets("Set").Cells(73, 2).Value
    End If
    With oWord.ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "[порядок оплаты]"
        With .Replacement
            .ClearFormatting
            .Text = Txt
        End With
        .Execute Replace:=wdReplaceAll
    End With
end sub

Ответить

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

Номер ответа: 1 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #1	Добавлено: 27.10.10 12:49
	В перемнную Тхт не можешь записать >256 симв. или в объект финд? зы: Неплохо бы сделать дим Тхт ас стринг. Ответить

Номер ответа: 2 Автор ответа: abv Вопросов: 4 Ответов: 16	Профиль \| \| #2	Добавлено: 27.10.10 17:09
	В перемнную Тхт не можешь записать >256 симв. или в объект финд? это одному Билу известно. Пробовал ас вариант, не помогло, ас стринг сейчас попробую и результат напишу. Ответить

Номер ответа: 3 Автор ответа: abv Вопросов: 4 Ответов: 16	Профиль \| \| #3	Добавлено: 27.10.10 17:42
	видимо объект финд (описание ограничения я ни где не встречал), ас стринг тоже по фигу. Наверное задача решается через буфер обмена, мысль о еще 2-х днях наедине с умными книжками вымораживает мой мозг. GDK, спасибо за участие Ответить

Номер ответа: 4 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #4	Добавлено: 29.10.10 12:16
	это одному Билу известно. А попробуй-ка Debug.Print сделать для тхт и для финд.репласемент.техт. Ну можно попробовать маленько по другому, финдом найти чё надо, find вроде возвращает объект as range. Ну а протом этот объект присвоить переменной и воспользоваться св-вом .техт. Ответить

Номер ответа: 5 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #5	Добавлено: 29.10.10 12:19
	С буфером обмена у меня был опыт - есть глюки. Какие не помню. Это по моему как то через не то место получится. Ответить

Номер ответа: 6 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #6	Добавлено: 29.10.10 12:23
	Просто надо понять в каком месте проблема. То ль с екселем, то ли с вордом. А мне неохота пробовать. Ответить

Страница: 1 |