И вновь из excel в word

@zmalyushitskiy · Регистрация: 24.03.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток. к моему глубокому сожалению, просмотрев кучу теми макросов не нашёл нужного мне, не уверен в существовании его вовсе, но попробую сформулировать вопрос:
есть два файла, word и excel.
Необходим макрос который подставлял бы значения из excel в нужные места файла word, при этом не загоняя весь файл word в переменную, поскольку в тексе есть тоже таблица.
я нашёл похожий макрос тут:

Visual Basic

Sub main()
 
Dim wdApp As Object
Dim wdDoc As Object
 
    HomeDir$ = ThisWorkbook.Path
    
    Set wdApp = CreateObject("Word.Application")
    
    ii% = 3
    
    Do
    
      If Cells(ii%, 1).Value = "" Then Exit Do
      
      IP$ = Cells(ii%, 1).Value
      Basket$ = Cells(ii%, 2).Value
      Position$ = Cells(ii%, 3).Value
      Adress$ = Cells(ii%, 4).Value
      NRI$ = Cells(ii%, 5).Value
      BS$ = Cells(ii%, 6).Value
      ID$ = Cells(ii%, 7).Value
      
      FileCopy HomeDir$ + "\SZ_Ericsson_Traffic_Node_Fish2.docx", HomeDir$ + "\SZ_Ericsson_Traffic_Node_" + Position$ + "_" + BS$ + ".docx"
 
      
      Set wdDoc = wdApp.Documents.Open(HomeDir$ + "\SZ_Ericsson_Traffic_Node_" + Position$ + "_" + BS$ + ".docx")
      
wdDoc.Range.Text = Replace$(wdDoc.Range.Text, "&IP", IP$)
wdDoc.Range.Text = Replace$(wdDoc.Range.Text, "&Basket", Basket$)
wdDoc.Range.Text = Replace$(wdDoc.Range.Text, "&Position", Position$)
wdDoc.Range.Text = Replace$(wdDoc.Range.Text, "&Adress", Adress$)
wdDoc.Range.Text = Replace$(wdDoc.Range.Text, "&NRI", NRI$)
wdDoc.Range.Text = Replace$(wdDoc.Range.Text, "&BS", BS$)
wdDoc.Range.Text = Replace$(wdDoc.Range.Text, "&ID", ID$)
 
      wdDoc.Save
      wdDoc.Close
      
      ii% = ii% + 1
      
    Loop
      
    wdApp.Quit
 
    MsgBox "Готово"
 
End Sub

Но этот макрос, как я понял не заменяет конкретное значение в шаблоне, а полностью весь шаблон загоняет в переменную, в которой места нет существующей в шаблоне таблице.
Заранее спасибо, и прошу прощения если не увидел такой темы.

@Surrogate · 25.03.2014, 16:37

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

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

ничего не понял
в кратце
1. тут в цикле создается копия файла из шаблона, который сохраняется с неким именем в соответствии со значением из определенного столбца. (см. строку 37-38)
2. открывается файл созданный в п. 1 (см. строку 27)
3. производится замена неких текстовых последовательностей на значения из соответствующих столбцов
таблицы эксель (см. строки 29-35)
4. Файл сохраняется и закрывается (см. строки 27)
5. И это будет повторяться пока в некоторой ячейке в первом столбце не будет пусто.

@zmalyushitskiy · 25.03.2014, 16:42 **[ТС]**

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

@Step_UA · 25.03.2014, 16:43

Замените

Visual Basic

1	wdDoc.Range.Text = Replace$(wdDoc.Range.Text, "&IP", IP$)

на

Visual Basic

1	wdDoc.Range.Find.Execute findtext:="&IP", replacewith:=IP$, Replace:=2

и так для всех замен ...

shanemac51 · 25.03.2014, 16:49

на форумах обычно применяют для формирования ворд --документа из аксесс/ексель
--слияние
--замена
--закладки

недостатки
--надо указать версию WORD
--БОЛЬШИЕ СЛОЖНОСТИ, если надо занести в шаблон таблицу-две-три-четыре
--жесткая привязка к каталогу

я же 99 процентов отчетов из ворд-аксесс-ексель формирую программно в формате НТМ в стандартных тегах

достоинства
--один и тот же отчет можно открыть
=====броузер --только просмотр
--------ворд --печать с автоподгоном ширины таблицы и высоты строки
--------ексель---при необходимости
--свободно открывается вордом 2003 и новее(бе ругани), екселем с небольшой руганью
--для слабовидящих можно варьировать шрифтом при просмотре или формировании
--ОПЕН ОФИС тоже открывает

недостатки
--надо разобраться в методике описания таблиц
--надо понять 2 десятка тегов

@zmalyushitskiy · 25.03.2014, 16:52 **[ТС]**

Step_UA, огромное, человеческое спасибо.
И вообще спасибо всем за участие. Действительно помогло.

@Surrogate Ушел с CyberForum совсем! 873 / 182 / 25 Регистрация: 04.05.2011 Сообщений: 1,020 Записей в блоге: 110
	25.03.2014, 16:37	2
	Сообщение от zmalyushitskiy Необходим макрос который подставлял бы значения из excel в нужные места файла word, при этом не загоняя весь файл word в переменную, поскольку в тексе есть тоже таблица. ничего не понял в кратце 1. тут в цикле создается копия файла из шаблона, который сохраняется с неким именем в соответствии со значением из определенного столбца. (см. строку 37-38) 2. открывается файл созданный в п. 1 (см. строку 27) 3. производится замена неких текстовых последовательностей на значения из соответствующих столбцов таблицы эксель (см. строки 29-35) 4. Файл сохраняется и закрывается (см. строки 27) 5. И это будет повторяться пока в некоторой ячейке в первом столбце не будет пусто. 1

@zmalyushitskiy 0 / 0 / 0 Регистрация: 24.03.2014 Сообщений: 3
	25.03.2014, 16:42 [ТС]	3
	Всё верно, но при этом файл шаблона содержит таблицу, которая после пункта 3. исчезает, все необходимые замены происходят, но форматирование шаблона полностью удаляется. Складывается впечатление, что весь файл становится одной большой переменной, в которой не может присутствовать таблица. 0

shanemac51 Модератор 12095 / 4955 / 791 Регистрация: 07.08.2010 Сообщений: 14,566 Записей в блоге: 4
	25.03.2014, 16:49	5
	на форумах обычно применяют для формирования ворд --документа из аксесс/ексель --слияние --замена --закладки недостатки --надо указать версию WORD --БОЛЬШИЕ СЛОЖНОСТИ, если надо занести в шаблон таблицу-две-три-четыре --жесткая привязка к каталогу я же 99 процентов отчетов из ворд-аксесс-ексель формирую программно в формате НТМ в стандартных тегах достоинства --один и тот же отчет можно открыть =====броузер --только просмотр --------ворд --печать с автоподгоном ширины таблицы и высоты строки --------ексель---при необходимости --свободно открывается вордом 2003 и новее(бе ругани), екселем с небольшой руганью --для слабовидящих можно варьировать шрифтом при просмотре или формировании --ОПЕН ОФИС тоже открывает недостатки --надо разобраться в методике описания таблиц --надо понять 2 десятка тегов 1

@zmalyushitskiy 0 / 0 / 0 Регистрация: 24.03.2014 Сообщений: 3
	25.03.2014, 16:52 [ТС]	6
	Step_UA, огромное, человеческое спасибо. И вообще спасибо всем за участие. Действительно помогло. 0

И вновь из excel в word

Решение