Перенос большого количества данных из Excel в Word

[Ksardex]

Добрый день, уважаемые форумчане!
Необходимо перенести ОГРОМНЫЙ объем данных (порядка 900 наименований, встречаются в документе от 3 до 11 раз) в шаблон документа.
В VBA не разбираюсь, пользуюсь найденными наработками, редактируя под себя.

Sub Fill()

Dim WA As Object, WD As Object

Set WA = CreateObject("Word.Application")
Set WD = WA.Documents.Open("C:\shablon.docx")

WD.Range.Find.Execute FindText:="text", ReplaceWith:=Cells(3, 2)
WA.Visible = True
Set WA = Nothing

End Sub

В этом случае копируется только первое значение (и как я понял есть ограничение на 255 символов, что мало)

Sub FillingWordFile()
Dim WD
Dim XL As Excel.Application
    Set WD = CreateObject("Word.Application")
    WD.Visible = True
    WD.Documents.Open Filename:=Application.ThisWorkbook.Path & "\shablon.docx"
    
    Range(3, 2).Copy
    WD.ActiveDocument.Bookmarks.Item("text").Range.Paste
    
End Sub

В этом копируется ячейка и вставляется в виде таблицы (тоже только в 1 месте).

Задача тривиальная, но как оказалось решить ее не так просто.
Буду благодарен за помощь.

[IgorGO]

макрос должен быть такой:

for i = 1 to приблизительно 900
  данны_в_Excel.copy
  место_в_Word.paste
next

[Ksardex]

Сообщение от IgorGO

макрос должен быть такой:

for i = 1 to приблизительно 900
  данны_в_Excel.copy
  место_в_Word.paste
next

Видимо я не совсем четко описал задачу. В нужных местах шаблона Word стоят нечто вроде тегов типа "[переменная]". Общее количество таких тегов порядка 900 и встречаются они в документе по нескольку раз. Нужно их ВСЕ заменить данными из Excel из соответствующих ячеек, при этом без ограничения на количество символов и сохранением форматирования шаблона. Вариант с закладками не подходит, т.к. таким образом нужно создать более 3000 закладок. Простой copy-paste вставляет данные в виде таблицы.
Если возможно напишите полный пример замены 1 ячейки, дальше я справлюсь.

З.Ы. Еще раз подчеркну что данные нужно заменить во всем документе.
З.З.Ы. В VBA понимаю плохо, поэтому просьба изъясняться проще.

[maksim_serg]

используйте "найти и заменить" с параметром "заменить все". Форматирование сохраняется, а ограничение в 255 символов можно обойти разбив содержимое ячейки на несколько значений с длиной текста в 255 символов

[Ksardex]

Сообщение от maksim_serg

используйте "найти и заменить" с параметром "заменить все". Форматирование сохраняется, а ограничение в 255 символов можно обойти разбив содержимое ячейки на несколько значений с длиной текста в 255 символов

Вы говорите о функции замены в Word? Раньше так и делали, но я повторюсь, заменить нужно более 900 значений! На это уходит слишком много времени.

[maksim_serg]

неправда. у меня заменяет в 200 шаблонах с открытием каждого по очереди и сохранением по 46 замен в каждом примерно за 10 минут

[maksim_serg]

если у вас всего один шаблон, то это займет не более полуминуты думаю

[Ksardex]

Сообщение от maksim_serg

неправда. у меня заменяет в 200 шаблонах с открытием каждого по очереди и сохранением по 46 замен в каждом примерно за 10 минут

Так вы говорите о макросе или о встроенной в Word функции "найти и заменить"?
Если о макросе то разбиение текста на фрагменты совсем неудобно, учитывая что почти половина значений превышает 255 символов.

[maksim_serg]

я раньше заменял по закладкам, однажды надо было создать новый шаблон. я все проклял пока вставил 50 закладок. переписал свой макрос

[Ksardex]

Сообщение от maksim_serg

я раньше заменял по закладкам, однажды надо было создать новый шаблон. я все проклял пока вставил 50 закладок. переписал свой макрос

Как уже писал выше в моем случае закладок будет более 3000.
Можете поделиться макросом?