Всем привет, сегодня снова работаем с эксель таблицей и шаблоном в ворд, в этом видео я вам покажу как работать с большим текстом, если у нас допустим, в нашей ячейке будет содержаться текста значительно больше чем 255 символов.
С этим вы обычной можете столкнуться при создании шаблона, для экспорта данных из эксель в ворд, при замене текста, дополнительно я покажу как исправить еще одну ошибку.
Давайте возьмём пример из первого видео, перейдете по ссылке в описании на странице есть файл в архиве.
Давайте сделаем так что у нас в заголовке таблицы будет не адрес, а текст для примера. Будем практиковаться на основе ячейки C2
.
Давайте сделаем проверку длинны текста в ячейке, используя функцию ДЛСТР — длина строки. У нас здесь сейчас находится 15 символов.
Сделаем больше текста для этого я в Microsoft Word используя функцию LOREM()
, которая сформирует случайный текст.
Теперь я скопирую текст, нужен будет блокнот, вставлю текст из буфера обмена, уберу лишние отступы переносы.
Давайте посмотрим какой длины у нас получится сейчас этот текст. Так вот у нас даже не помещается текст на экране, поправим таблицу. Длина текста в ячейке 598 символов с пробелами.
Давайте перейдём в Редактор Visual Basic, alt+f11
и посмотрим код прошлого примера.
Исправим название переменной адрес на текст, здесь исправим на текст и посмотрим что у нас получится.
Теперь откроем шаблон и заменим Адрес на Текст и исправим конструкцию для замены на &text
.
Сохраним, закроем все лишнее, совместим для наглядности эксель файл и папку для вывода ворд файлов.
Посмотрим, что теперь получится, изменю масштаб, для доступа к кнопке запуска макроса.
Появляется ошибка № 5854 — слишком длинный строковый параметр.
И хотя бланк сформировался, произошло не то что ожидалось, ID
вывели, серийный номер не изменился, потому как по коду данного макроса, мы не дошли до номера мы остановились вот здесь, ошибка произошла выше.
Давайте откроем диспетчер задач, существует проблема которую мы сейчас решим, иначе у нас при любой ошибке в работе макроса в Диспетчере задач в фоне остается запущен экземпляр Microsoft Word в котором рухнул наш шаблон.
Давайте ещё раз попробуем сформировать посмотрим, что у изменится.
Опять ошибка, и сейчас в Диспетчере задач повис Microsoft Word, его нужно закрыть и так придется делать постоянно, будем снимать задачу иначе будут появляться новые ошибки.
Давайте теперь сделаем выход из нашей функции, где мои работаем, здесь у нас создание файла проходит нормально, этот кусок у нас нормально отрабатывает.
Вставим вот здесь следующий код:
On Error GoTo ErrorHadler
Это у нас метка перехода, если произойдет ошибка, мы перейдём в конец модуля, вот здесь мы сделаем Exit Sub
— Выход из модуля.
Ниже напишем ErrorHandler:
наша метка и здесь нам нужно будет вставить код сохранения, закрытия и выхода из Word.
wdDoc.Save wdDoc.Close wdApp.Quit
Также добавим сообщение
MsgBox "Не выполнено! " + Error
Вот теперь мы избавимся проблемы, когда у нас будет зависать в Диспетчере задач Microsoft Word, который мы не успеваем закрыть.
Давайте выполним макрос, появится сообщение — не выполнено слишком длинный строковый параметр, в принципе у нас документ сформировался, но он в целом не полностью отработал.
Сейчас мы исправим эту проблему, кстати гляну в диспетчер задач у нас Microsoft Word нигде не висит, и он нам не мешает. OK.
Теперь снова перейдём в редактор VBA. и разобьем переменную Text$
на фрагменты допустимой длины.
Ну кроме исправлю маленькую опечатку, тут естественно должен быть &text
.
Дайте я посмотрю, что изменится, хотя даже если мы исправили это значение, всё равно ничего не получилось.
Теперь удалим снова бланк, вернемся вот сюда, зададим переменную temp равно Left
возьмём от переменной Text$
255 символов, снова создадим переменную temp2, воспользуемся теперь функцией Mid
, мы возьмём начиная с 256 символа текст длиной 255 символов.
Теперь нужно будет продублировать здесь строку для замены значений, укажем переменные temp
, temp2
, здесь мы сделаем заменяемое значение text2
.
Сделаем с запасом, ещё разок скопирую и вставлю
temp3 = Mid(Text$, 512, 255).
Теперь мы шагнем от 256 + 255 равно 511, начиная с 512 символа мы опять шагнем на 255 символов.
Ещё продублирую строку замены, переменная temp3
, значение text3
.
Как нам указать в шаблоне заменяемые значения? А мы их ведем просто в наш шаблон, уже есть вот эта строка &text
, мы её скопируем и вставим несколько раз, дописав числа 2 и 3.
То есть у нас всякий раз вот этот фрагмент текст будет заменяться на значения из наших переменных temp
, temp2
, temp3
. Можно в коде VBA продолжать добавлять разбивку основного текста на части, но будьте внимательны, указывая смещение и длину символов. Соответствующе правки так же вносите в шаблон.
Давайте попробуем запустить и посмотрим, что получится, закрыли, свернули.
Впишемся ли мы в данное ограничение, О’кей, готово.
Так давайте наконец посмотрим, что у нас получилось, как видите текст у нас вместился полностью, единственное хочу заметить, что между предложениями появился квадрат со знаком вопроса, но это символ переноса строк, при подготовке текста в ячейке его нужно заменить пробелом.
Следующие файлы так же сформировались, но тут у нас все осталось как обычно.
Вот таким простым способом вы можете обойти эту условность, ограничение в 255 символов, в принципе сама строковая переменная Text$ может очень много вместить в себя значений, но при работе вот этой функции FindText замена текста, вот здесь, мы не можем производить большие какие-то преобразования, но вот с такой разбивкой большого текста на переменные в принципе можно это продолжать дальше.
То есть у нас 512 + 255 получается 767, следующий шаг в 255 символов можно делать с 768 знака.
У нас же есть ещё место и дальше можно продолжать опять там делать дальше разбивку, если у вас будет очень большой текст.
Исходный код из видео
Sub main() Dim wdApp As Object Dim wdDoc As Object HomeDir$ = ThisWorkbook.Path Set wdApp = CreateObject("Word.Application") i% = 2 Do If Cells(i%, 1).Value = "" Then Exit Do If Cells(i%, 1).Value <> "" Then NPP$ = Cells(i%, 1).Text ID$ = Cells(i%, 2).Text Text$ = Cells(i%, 3).Text SN$ = Cells(i%, 4).Text DataC$ = Date FileCopy HomeDir$ + "template.doc", HomeDir$ + "" + NPP$ + "_" + ID$ + "_" + DataC$ + ".doc" Set wdDoc = wdApp.Documents.Open(HomeDir$ + "" + NPP$ + "_" + ID$ + "_" + DataC$ + ".doc") On Error GoTo ErrorHandler temp = Left(Text$, 255) temp2 = Mid(Text$, 256, 255) temp3 = Mid(Text$, 512, 255) temp4 = Mid(Text$, 768, 255) wdDoc.Range.Find.Execute FindText:="&date", ReplaceWith:=DataC$ wdDoc.Range.Find.Execute FindText:="&id", ReplaceWith:=ID$ wdDoc.Range.Find.Execute FindText:="&text", ReplaceWith:=temp wdDoc.Range.Find.Execute FindText:="&text2", ReplaceWith:=temp2 wdDoc.Range.Find.Execute FindText:="&text3", ReplaceWith:=temp3 wdDoc.Range.Find.Execute FindText:="&text4", ReplaceWith:=temp4 wdDoc.Range.Find.Execute FindText:="&sn", ReplaceWith:=SN$ wdDoc.Save wdDoc.Close End If i% = i% + 1 Loop wdApp.Quit MsgBox "Готово!" Exit Sub ErrorHandler: wdDoc.Save wdDoc.Close wdApp.Quit MsgBox "Не выполнено! " + Error End Sub
Исходный код из видео — скачать архив с файлами
ZIP архив с файлами
Смотрите видео: Исправляем ошибку VBA № 5854 слишком длинный строковый параметр в шаблоне word из таблицы excel 255 символов
Понравилась статья? Поделитесь ею с друзьями и напишите отзыв в комментариях!
- Remove From My Forums
Copy data from Excel to Word Document — Run-time error ‘5854’ — String parameter too long
-
Question
-
Hello Everyone.
I need a help with the VBA macro.
I have one excel file & a word file. I need the data in the excel sheet to copy in to the word document. I’d worked on it and it’s run accordingly. But when I put a long sentences in the excel’s cell, it return error and says ‘String parameter too long’
Anyone have idea or a way to solve this? Help me..
Here my files
ZIP : http://www.uploadmb.com/dw.php?id=1356662678
Notes: You need to open the excel file, in ‘Summary’ Sheet, then press the «Process Data» button and you get what i mean
TQ
Answers
-
Do a little research on ‘DocVariables’ in MS Word. When you’ve added a couple DocVariables in your Word document, run this code (run the code from Excel):
Sub PushToWord()
Dim objWord As New Word.Application
Dim doc As Word.Document
Dim bkmk As Word.Bookmark
sWdFileName = Application.GetOpenFilename(, , , , False)
Set doc = objWord.Documents.Open(sWdFileName)
‘On Error Resume NextobjWord.ActiveDocument.variables(«BrokerFirstName»).Value = Range(«BrokerFirstName»).Value
objWord.ActiveDocument.variables(«BrokerLastName»).Value = Range(«BrokerLastName»).Value
objWord.ActiveDocument.variables(«Ryan»).Value = Range(«Ryan»).ValueobjWord.ActiveDocument.Fields.Update
‘On Error Resume Next
objWord.Visible = TrueEnd Sub
Of course, the ‘BrokerFirstName’ is a Named Range in Excel.
Try it and you’ll see how it works. Post back if you have specific questions.
Ryan Shuell
-
Edited by
Sunday, December 30, 2012 5:47 AM
-
Marked as answer by
Quist Zhang
Friday, January 4, 2013 7:41 AM
-
Edited by
Salomon Пользователь Сообщений: 8 |
#1 20.03.2017 17:31:19 Добрый день. Есть макрос, позволяющий переносить текст из ячеек excel в вордовский шаблон. Однако, если в ячейку добавить больше 255 символов, то офис ругается и выдает ошибку «Run-time error ‘5854’: Слишком длинный строковый параметр». В инете пишут, что для лечения этой заразы необходимо сделать цикл, что у меня никак не получается. Люди добрые, помогите глупцу понять, как сделать этот самый цикл, ибо уже два дня как онный у меня не получается. Сам код и файлы прикладываю.
Изменено: Salomon — 20.03.2017 17:40:29 |
||
Salomon Пользователь Сообщений: 8 |
Файлы Прикрепленные файлы
|
Борис13 Пользователь Сообщений: 81 |
Как то удалось в итоге решить данную проблему? у самого такой же вопрос. |
Борис13 Пользователь Сообщений: 81 |
#4 20.11.2020 13:14:59 Самостоятельно решил данный вопрос. Может быть кому будет полезно:
Изменено: Борис13 — 20.11.2020 13:15:24 |
||
Тимофеев Пользователь Сообщений: 1319 |
#5 20.11.2020 13:52:57 Борис13,. а можете файлик архив правильный скинуть сюда |
- Forum
- VBA Code & Other Help
- Word Help
- ComboBox «ERROR 5854 — String Parameter too long»
-
08-09-2015, 09:36 AM
#1
ComboBox «ERROR 5854 — String Parameter too long»
Hi VBA Enthusiasts
I am a novice with ok instincts, but truthfully, I really am flying by the seat of my pants on this work project. So, the project requires the execution of a macro that populates various content into the body of a letter. In some cases, this content must contain drop downs (ComboBoxes).
The problem I’m having is that I’ve built the code very basically as follows:
Sub combobox2()
‘
‘ Combobox Macro Example
‘ The following code yields the «ERROR 5854 — String Parameter too long» message.
‘
Selection.Range.ContentControls.Add (wdContentControlComboBox)
Selection.ParentContentControl.DropdownListEntries.Clear
Selection.ParentContentControl.DropdownListEntries.Add Text:= _
«Choose an item.», Value:=»»
Selection.ParentContentControl.DropdownListEntries.Add Text:= _
«The $XXX.XX fee listed on the billing statement was a broker’s price opinion, which is a market evaluation of the property. They are used to get an approximate value of the property and are acceptable per the terms of the Note and/or Mortgage/Deed of Trust.» _
, Value:= _
«The $XXX.XX fee listed on the billing statement was a broker’s price opinion, which is a market evaluation of the property. They are used to get an approximate value of the property and are acceptable per the terms of the Note and/or Mortgage/Deed of Trust.»
End SubThis code works well for instances where the desired drop down verbiage is shorter. So, I’m starting to think that the verbiage listed as drop down option is causing the String Parameter to exceed the 255 character limit. (I know that ComboBoxes allow for well over 255 characters when not executed using a macro.)Please help me find a workaround for this.
NOTE that,
- I’m working in Word 2010.
- I can’t alter the desired verbiage at all.
- I must keep all content within the document and the user must not be able to see the drop down options until executing the macro. (Because of how this document will be used, I can’t import from a secondary file like an external excel file.)
Ideas I’ve had include:
- If possible, import the drop-down content from an xml file (or schema that’s housed within the word document)
- Reconstruct the coding about to allow for more than 255 characters (but that’s beyond my scope of VBA understanding)
- The last resort would be to contact the content creators for the letter and tell them that they have to keep the drop down content below 255 characters. They expressed this concern early on and since I knew that the comboboxes themselves would accommodate, I promised that it shouldn’t be a problem. (It didn’t occur to me that there could be coding string character limitations.)
Thank you in advance for any input you VBA geniuses could provide
Steve
-
08-09-2015, 01:57 PM
#2
Steve,
I don’t really understand what you are trying to do. Why are you creating the comboboxes with code?
Regardless, you are not going to get around the string length issue. It is what is and since you text and values are greater than 255 you are SOL there.
You can map the CCs to an XML part and use the CC events to alter the CC value. I’ve attached a demo document.
I left out a critical line of code in the attached file. Here is the affected/modified procedure:
Private Sub Document_ContentControlBeforeContentUpdate(ByVal ContentControl As ContentControl, Content As String) Dim oNode As CustomXMLNode With ContentControl Select Case .Title Case "ComboBox_Demo" Set m_oXMLPart = ActiveDocument.CustomXMLParts.SelectByNamespace("http://gremaxey.mvps.org/demo").Item(1) 'Add this line Set oNode = m_oXMLPart.SelectSingleNode("/ns0:Mapped_ComboBoxes[1]/ns0:ComboBox[1]") Select Case .Range.Text Case "A" oNode.Text = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" _ & "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" _ & "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" Case "B" oNode.Text = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB" _ & "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB" _ & "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB" End Select End Select End With lbl_Exit: Exit Sub End Sub
Last edited by gmaxey; 08-09-2015 at 02:11 PM.
Tags for this Thread

Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
- BB code is On
- Smilies are On
- [IMG] code is On
- [VIDEO] code is On
- HTML code is Off
Forum Rules
-
Jun 20th, 2005, 09:11 PM
#1
Thread Starter
Member
error 5854 String Parameter too Long in VB6
Hi,
I need to replace text more than 255 characters in word using word application in VB6. It gives me an error 5854 String parameter too long… Please help….
-
Jun 21st, 2005, 05:05 AM
#2
Re: error 5854 String Parameter too Long in VB6
find (without replace) and select the text, then input the new string into the selection
if you want exact code do a search as i put it in 2 posts very recently
pete
-
Jun 21st, 2005, 07:34 AM
#3
Re: error 5854 String Parameter too Long in VB6
Pass a pointer to the string instead?
Is this VBA?
-
Jun 21st, 2005, 07:54 AM
#4
Re: error 5854 String Parameter too Long in VB6
yes it is vba
find and replace can only handle 255 characters in the replace string
pete
-
Jun 21st, 2005, 08:27 AM
#5
Re: error 5854 String Parameter too Long in VB6
Anything wrong with using the VBA Replace$? I just did a 100,000-char replace in about half a second.
-
Jun 21st, 2005, 08:45 AM
#6
Re: error 5854 String Parameter too Long in VB6
i am sure there are many ways to do it, but the .find.replacement.text in word 2000 is max lenght of 255 characters on my machine, over that it gives an error, same problem a few others have been having
VB Code:
With Selection.Find
.Text = "mytest"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Execute
End With
Selection = mytext1 ' where mytext1 can be in excess off 255 characters
is one way to replace the selection with a longer string
pete
Ограничение длинны строки |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |