произошла исключительная ситуация microsoft word слишком длинный строковый параметр

Исправляем ошибку VBA № 5854 слишком длинный строковый параметр в шаблоне word из таблицы excel 255 символов

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

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

Давайте возьмём пример из первого видео, перейдете по ссылке в описании на странице есть файл в архиве.

Теперь я скопирую текст, нужен будет блокнот, вставлю текст из буфера обмена, уберу лишние отступы переносы.

Давайте посмотрим какой длины у нас получится сейчас этот текст. Так вот у нас даже не помещается текст на экране, поправим таблицу. Длина текста в ячейке 598 символов с пробелами.

Давайте перейдём в Редактор Visual Basic, alt+f11 и посмотрим код прошлого примера.

Исправим название переменной адрес на текст, здесь исправим на текст и посмотрим что у нас получится.

Сохраним, закроем все лишнее, совместим для наглядности эксель файл и папку для вывода ворд файлов.

Посмотрим, что теперь получится, изменю масштаб, для доступа к кнопке запуска макроса.

И хотя бланк сформировался, произошло не то что ожидалось, ID вывели, серийный номер не изменился, потому как по коду данного макроса, мы не дошли до номера мы остановились вот здесь, ошибка произошла выше.

Давайте откроем диспетчер задач, существует проблема которую мы сейчас решим, иначе у нас при любой ошибке в работе макроса в Диспетчере задач в фоне остается запущен экземпляр Microsoft Word в котором рухнул наш шаблон.

Давайте ещё раз попробуем сформировать посмотрим, что у изменится.

Опять ошибка, и сейчас в Диспетчере задач повис Microsoft Word, его нужно закрыть и так придется делать постоянно, будем снимать задачу иначе будут появляться новые ошибки.

Давайте теперь сделаем выход из нашей функции, где мои работаем, здесь у нас создание файла проходит нормально, этот кусок у нас нормально отрабатывает.

Вставим вот здесь следующий код:

Ниже напишем ErrorHandler: наша метка и здесь нам нужно будет вставить код сохранения, закрытия и выхода из Word.

Также добавим сообщение

Вот теперь мы избавимся проблемы, когда у нас будет зависать в Диспетчере задач Microsoft Word, который мы не успеваем закрыть.

Сейчас мы исправим эту проблему, кстати гляну в диспетчер задач у нас Microsoft Word нигде не висит, и он нам не мешает. OK.

Теперь снова перейдём в редактор VBA. и разобьем переменную Text$ на фрагменты допустимой длины.

Дайте я посмотрю, что изменится, хотя даже если мы исправили это значение, всё равно ничего не получилось.

Сделаем с запасом, ещё разок скопирую и вставлю

Теперь мы шагнем от 256 + 255 равно 511, начиная с 512 символа мы опять шагнем на 255 символов.

Давайте попробуем запустить и посмотрим, что получится, закрыли, свернули.

Впишемся ли мы в данное ограничение, О’кей, готово.

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

Следующие файлы так же сформировались, но тут у нас все осталось как обычно.

Вот таким простым способом вы можете обойти эту условность, ограничение в 255 символов, в принципе сама строковая переменная Text$ может очень много вместить в себя значений, но при работе вот этой функции FindText замена текста, вот здесь, мы не можем производить большие какие-то преобразования, но вот с такой разбивкой большого текста на переменные в принципе можно это продолжать дальше.

То есть у нас 512 + 255 получается 767, следующий шаг в 255 символов можно делать с 768 знака.

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

Исходный код из видео

Смотрите видео: Исправляем ошибку VBA № 5854 слишком длинный строковый параметр в шаблоне word из таблицы excel 255 символов

Источник

Произошла исключительная ситуация microsoft word слишком длинный строковый параметр

Есть функция:

Procedure FindAndReplaceInWordDoc(WD:TWordDocument;Const oStr,nStr:string);
Var
oldString, newString, Replace:OleVariant;
Begin
//Замена всех строк oStr на строку nStr в открытом документе Word2000
Replace :=wdReplaceAll; oldString:=oStr; newString:=nStr;
WD.Range.Find.Execute(oldString, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, newString, Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
End;

В случае если длина строки больше 255 символов получаем надпись «Слишком длинный строковый параметр». Что делать?

Не подскажите ли, как обойти данное ограничение?

← →
MBo © ( 2004-12-07 20:20 ) [1]

>В случае если длина строки больше 255 символов получаем надпись «Слишком длинный строковый параметр». Что делать?

составлять строку из нескольких с помошью «+»

Можно ли каким-нибудь ИНЫМ образом произвести замену строки на другую в открытом документе MS Word?

С уважением.
P.S. Может быть, я Вас неправильно понял? Что значит «составлять строку из нескольких с помошью «+»»? Она у меня и так составляется из нескольких с помощью «+», а потом результат передается указнной выше функции.

YUKLA © (07.12.04 20:12)

Procedure FindAndReplaceInWordDoc(WD:TWordDocument;Const oStr,nStr:string);

Вот скажи мне, уважаемый, ведь этот вопрос был же размещен
в rsdn? И уже там он оброс некоторыми подробностями.
Например, автор знает как сделать оное на VBA, но
не знает как на дельфи.

Ну, а зачем скрывать эти сведения от людей, которые
могут знать как это сделать на дельфи (хотя они могут
даже плохо представлять, что такое VBA).

Ты скажи, ты скажи, что ты хочешь, что ты хочешь 😉

Вот, например, с сайта Microsoft предлагается такое решение:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q181110

Что касается публикации в других форумах, то это вопрос был размещен и в Delphi Kingdom.

Вопрос срочный, а ответов по существу нет.

> YUKLA © (07.12.04 21:06) [4]

> Вот, например, с сайта Microsoft предлагается такое решение:
> http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q181110

Ну, и, что мешает оному воплощению?

Пробовал, не получается. 😉

Не уж то никто не сталкивался? Я весь Гугль перерыл с Альтавистой в придачу. Нигде ничего внятно не написано. Вариант Микрософт я, увы, на Delphi адекватно перевести не смог. Может быть, кто-нибудь поможет?

← →
Cobalt © ( 2004-12-07 22:28 ) [7]

2 YUKLA © (07.12.04 22:19) [6]
И что же конкретно у тебя не получилось?
Давай разберёмся вместе.

Чисто банально это решается разделением заглушек на часть (типа «@Up1», «@Up2» и т.д.). Но это некузяво и к тому же потребует как переписывать сами программы, так и переделывать шаблоны.

> YUKLA © (07.12.04 22:19) [6]
> Пробовал, не получается. 😉

Вот отсюда и нужно подробнее.

> YUKLA © (07.12.04 22:41) [8]

Гы. Что нужно чтобы вскипятить чайник?
1. Налить воду
2. Включить чайник.

Что нужно, чтобы вскипятиь полный чайник? Вылить воду
и далее по инструкции.

Ну замени свои слова на поля, а далее по прописи.
Если уж не можешь сделать свою FindAndReplace.

Вариант, который я пробовал «преевести в Delphi»

How to set the result of a text formfield using VBA, if the string is longer then 256 characters

Article contributed by Dave Rado

If you use:

Dim FmFld As FormField, Str1 As String
Str1 = (a long string > 256 characters)

Set FmFld = ActiveDocument.FormFields(1)
FmFld.Result = Str1

You get an error: “String too long” (a ridiculous “design” feature, given that you can do it manually without problems!).

Same if you use:

ActiveDocument.Formfields(«Text1»).Result = Str1

You can get round this by using:

ActiveDocument.Unprotect
FmFld.Range.Fields(1).Result.Text = Str1
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

Or if you»re referring to the formfield by name:

ActiveDocument.Unprotect
ActiveDocument.Bookmarks(«Text1»).Range.Fields(1).Result.Text = Str1
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

Пусть мы ищем строку «@Up» как Bookmark
Т.е. пишем

Это уже ошибка, а как иначе сделать? Т.е., как работать с свойсвтом Bookmarks? Т.е. как внятно перевести приведенный выше код в Delphi?

> YUKLA © (07.12.04 23:12) [11]
> Вариант, который я пробовал «преевести в Delphi»
..
Пусть мы ищем строку «@Up» как Bookmark

Вот пример из хелпа ВБ, как искать

With Selection.Find
.Forward = True
.ClearFormatting
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindContinue
.Execute FindText:=»Microsoft»
End With

Ежели слово найдено и выделено, что мешает его заменить,
т.е. TypeText?

Блин. Кто, интересно, издевется!

МНЕ VB НЕ НУЖЕН! Я В НЕМ НЕ РАЗБИРАЮСЬ.

Мне бы пример как сделать АНАЛОГ Range.Find.Execute в Delphi

Кто-нибудь может ПОМОЧЬ ПО СУЩЕСТВУ? Без «пальцев»?

> YUKLA © (07.12.04 23:57) [13]

> МНЕ VB НЕ НУЖЕН! Я В НЕМ НЕ РАЗБИРАЮСЬ.

Ну, раз сам не знаешь, найми кого-нибудь знающего.

Итого. Решение проблемы «стока длинее 255 байт».
— Встречаем в шаблоне строку для замены (например, «@Up»)
— В случае, если длина строки ЗАМЕНЫ более 255 байт выполняем предварительную замену строки «@Up» на «@Up#1@Up#2. @Up#N»
— Делим строку ЗАМЕНЫ на куски

Источник

Nicholas Mikuslas

You are here

Трудовой договор в формате MS Word

Для большенства организаций стандартная печатная форма трудового договора в программе 1С:Зарплата и управление персоналом не подходит. Фирма 1С, в восьмой версии своей программы, любезно предусмотрела возможность добавлять дополнительные печатные формы для документов и других объектов. Воспользуемся данной возможностью и создадим трудовой договор, который будет открываться в Microsoft Word.

Сведения о подключенных обработках хранятся в справочнике «Внешние обработки». Чтобы подключить новую внешнюю обработку, нужно зарегистрировать ее в указанном справочнике.

Технические требования к внешней печатной форме

Внешняя обработка должна содержать:

Также внешняя печатная обработка может иметь в своем составе макет «Параметры_Авторегистрации», используемый для автоматического заполнения принадлежности печатной формы в справочнике «Внешние обработки» и состоящий из двух колонок: «Полное имя метаданного» и «Имя табличной части».

Создание внешней обработки

Создадим реквизит «СсылкаНаОбъект». Для этого нажимем кнопку «Добавить» или клавишу «Insert» и заполним свойства. В зависимости от того, для каких объектов будет использоваться эта печатная форма, нужно выбрать тип. В нашем случае, внешняя печатная форма будет использоваться только для справочника «Сотрудники организации», поэтому укажем соответствующий тип «СправочникСсылка.СотрудникиОрганизаций».

Прежде чем написать тело этой функции, создадим макет, который она будет возвращать.

Макет трудового договора в формате Microsoft Word

Существует, по меньшей мере, три способа создания шаблона.

Первый. В тексте документа содаются метки особого формата, например, «м_НомерДоговора», затем, в модуле обработки производится поиск и замена значений.

Второй способ. В документе Word создаются закладки, к которым потом можно обращаться по имени. Минус этого способа в том, что метка должна быть уникальна, т.е., например, если нужно вставить фамилию сотрудника в каждый абзац текста, то придется сделать несколько закладок с разными именами.

Способ три. В шаблон добавляются служебные поля, например, «DocVariable» или «Author». Используя DocVariable можно обращаться к переменной по имени, например, «ДокументВорд.Variables.Add(ИмяПеременной, ЗначениеПеременной);», но ее не видно в шаблоне. Поле «Author» отображается в шаблоне, но обращаться к нему придется в цикле по индексу: «ДокументВорд.Fields.item(Индекс).Result.Text = Значение;».

На мой взгляд, первый способ является самым оптимальным. Шаблон документа легко редактируется, метки видны в тексте, для создания меток не нужны сложные вставки. Поэтому будем делать шаблон именно этим способом.

Откроем программу Microsoft Office. Для примера добавим лишь одну строку: «Трудовой договор № [НомерДоговора]».

Добавим получившийся шаблон в нашу обаботку. Для этого выбираем «Макеты» и нажимаем кнопку «Добавить» или клавишу «Insert».

Откроется конструктор запроса, в котором выберем тип «Active Document» и файл шаблона.

Функция Печать()

Вернемся к функции, которую мы создали ранее. Настало время написать ее тело.

// Предопределенная функция для внешних печатных форм
//
Функция Печать () Экспорт

// Получим объект Microsoft Word из макета
ОбъектВорд = ПолучитьМакет ( «ТрудовойДоговор» ). Получить ();

Из кода видно, что в файле шаблона производится поиск строки «[НомерДоговора]» и ее замена на строку «007».

Параметры авторегистрации

Для автоматического заполнения принадлежности печатной формы к объектам конфигурации, добавим еще один макет «Параметры_Авторегистрации». Это будет табличный документ, содержащий одну колонку с именами объектов метаданных, к которым будет принадлежать печатная форма. В нашем случае таблица будет выглядить следующим образом.

Сохраним получившуюся внешнюю обработку.

Подключение дополнительных внешних печатных форм

Нажмем кнопку «Добавить», затем зарегистрируем новую печатную форму, нажав «Заменить файл внешней обработки». Автоматически заполнится принадлежность печатной формы справочнику «Сотрудники». Выберем «Трудовой договор» в колонке «Заменяемая печатная форма» чтобы стандартная печатная форма более не использовалась.

В итоге справочник будет выглядить следующим образом.

Проверка результата

Дальнейшее описывать не имет смысла. Думаю, не составит большого труда доработать функцию Печать() и макет договора.

Источник

Слишком длинный строковый параметр.

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 2 ]

1 Тема от Денис 18.02.2012 01:08:42

Тема: Слишком длинный строковый параметр.

Прошу подскажите, что делаю не так.
Имеется текст, имеется таблица замен: в 1 ст. что искать во 2 ст. на что заменять.
Вот макрос поиска и замены

На определенных строках выдает ошибку 5954 «Слишком длинный строковый параметр»
Пример такой строки:
«не было у бабы хлопот (забот), (так) купила баба порося@не знала баба горя, (так) купила (баба) порося@не было у бабы хлопот (забот), (так) купила (баба) порося@не было у бабы забот, (так) купила (баба) порося@не было у бабы забот (хлопот), (так) купила (баба) порося@не знала баба горя, (так) купила(баба) порося@не было у бабы хлопот, (так) купила (баба) порося»

Это ограничения with selection find? Как быть?
Заранее благодарен.

2 Ответ от Денис 18.02.2012 01:39:33

Re: Слишком длинный строковый параметр.

Решил проблему, изменив метод замены: selection.typetext.

Сообщений [ 2 ]

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

Слишком длинный строковый параметр.

Большинство пользователей владеет начальными знаниями по работе с текстом в Microsoft Word. Но как невозможно делать сложные расчеты без высшей математики, так и работать с большим объемом текста, обладая только базовыми знаниями, это сизифов труд. На портале о Microsoft Office Word вы узнаете про: как убрать большой пробел между словами в ворде 2003 при выравнивании по ширине. Поэтому, овладев основами, стоит расширять и углублять свои навыки.

Тут хорошим подспорьем служат специализированные сайты. Наш сайт о Microsoft Office Word даст ответ про: как редактировать размер текста в ворде. Один из лучших русскоязычных – Ворд Эксперт. На сайте вы найдете необходимую информацию, на форуме сайта можете тренировать свои практические навыки, разобраться с возникающими проблемами. На портале о Microsoft Office Word вы узнаете про: рамки для текста в формате ворд.

На форуме имеются разделы, посвященные оптимизации и автоматизации работе в Ворде, также вы можете оставить заявку и получить готовое решение проблемы. Наш сайт о Microsoft Office Word даст ответ про: где устанавливается интервал в ворде.

Источник

Произошла исключительная ситуация microsoft word слишком длинный строковый параметр

Сообщений: 41

открываю документ, ищу фразу «tc.x», заменяю ее значением «tc.x» (из таблицы «tc» полем «x»)

все работает, но при большом количестве символов ошибка: Исключение OLE IDispatch, код 0 из ms word, слишком длинный строковой параметр

вопрос 1: как заменить искомую вразу на оч. длинную запись из поля?

вопрос 3: можно ли как то скопировать tr.a, tr.b, tr.c в какой ни будь каждое значение в новой строчке, т.е., что бы в буфере обмена было:
не

заранее благодарю за советы

P.S. всех поздравляю с прошедшим днем програмера

Сообщений: 41

ну, если спросил невозможное скажите что это так

Сообщений: 1656

все работает, но при большом количестве символов ошибка: Исключение OLE IDispatch, код 0 из ms word, слишком длинный строковой параметр

вопрос 1: как заменить искомую вразу на оч. длинную запись из поля?

вопрос 3: можно ли как то скопировать tr.a, tr.b, tr.c в какой ни будь каждое значение в новой строчке, т.е., что бы в буфере обмена было:
не

заранее благодарю за советы

P.S. всех поздравляю с прошедшим днем програмера

P.S. комментарии после команд помечаются парой символов &&, а не символом *.

Сообщений: 41

1. магическая собачка не сработала. задам ламерский вопрос: как задать цикл по замене?

2. ну «запись». ляпнул не то, опечатка ) в смысле поле из таблички. т.е. я так понял надо так:

3. спасибо огромное, как гора с плеч. в теме аналогичной этой решения не нашел

Сообщений: 285
Откуда: Озерск

Сообщений: 1656

2. ну «запись». ляпнул не то, опечатка ) в смысле поле из таблички. т.е. я так понял надо так:

3. спасибо огромное, как гора с плеч. в теме аналогичной этой решения не нашел

1. Все зависит от конкретных данных. Вырезаете очередные из шаблона замены 255 символов и заменяете. Потом следующие 255 или остаток. Не забудьте давать нужную строку поиска для вставки. А цикл организуется через известные команды: DO While, For и т.п.
1+. ThisForm.Text1.MaxLenght=255
2. Зачем в данном случае буфер? Можно просто через переменную или само поле поставить(если оно не длинное). Но если надо, то надо не «^c», а писать _cliptext (у меня опИска в прошлом сообщении)

Сообщений: 34238

Сообщений: 41

или если тема та, о которой я подумал, думаю я не понял где написано решение

можно ли скопировать содержимое ячейки в виртуальный текстовый файл, потом скопировать содержимое текстового файла, закрыть текстовый файл, и вставить ОДНИМ куском в ворд, в нужное мне место?

Исправлено: Maxmadera, 16.09.10 22:27

Сообщений: 34238

Источник