Вопрос по слиянию полей Word и Excel.

[Sanek_81]

Здравствуйте.
Имеем вордовский документ который использует поля слияния, которые в свою очередь беруться из екселевского документа. При нажатии на "слияние в новый документ", программа размножает "шаблон" столько раз, сколько строк содержит экселевская таблица. Можно ли как-нибудь сделать исполнение данной операции (скриптом или макросом), в результате которой всё не в один документ бы складывалось а создавался отдельно новый документ под каждый "шаблон", и затем либо каждый в новом окне бы открывался, либо же чтобы автоматически сохранялось сразу всё это количество созданных документов в одной папке?

[Sanek_81]

Может хотябы как-нибудь можно сделать, чтобы просто из готового документа каждая страница сохранялась в отдельный .doc файл?


------------ добавлено модератором ----------------
Можно сделать. Например, при помощи этой программы:

Программа для заполнения документов данными из таблицы Excel (из Excel в Word)

--------------------
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:

• документы Word (расширения DOC, DOCX, DOCM)
• шаблоны Word (расширения DOT, DOTX, DOTM)
• книги Excel (расширения XLS, XLSX, XLSM, XLSB)
• шаблоны Excel (расширения XLT, XLTX, XLTM)
• текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено
--------------------------------
В каких случаях вам может пригодиться эта надстройка:

• если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
• если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
• подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
• и т.д. и т.п. - надстройку можно применять для создания любых документов на основе данных из Excel

--------------------------------

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments

[shanemac51]

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

Может хотябы как-нибудь можно сделать, чтобы просто из готового документа каждая страница сохранялась в отдельный .doc файл?

вопросы

-каждый лист --независим
-сколько их(порядок)
-может стоило формировать сразу по-штучно

[Aent]

http://www.sql.ru/forum/actualthread...300911&hl=word
http://wordexpert.ru/page/slijanie-m...nyh-dokumentov
Почему бы вам не генерировать ваши документы как письма ?

[Sanek_81]

-каждый лист --независим
-сколько их(порядок)
-может стоило формировать сразу по-штучно

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

[shanemac51]

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

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

может тогда и формировать ворд-док в формате НТМ , если конечго у вас не очень сложное оформление ворд- дока

хотя на днях давала совет, как
-сформировать ворд-док с местами вставки типа [фамилия]
-преобразовать в НТМ
-в НТМ искать место вставки и заменять [фамилия] на Иванов И.П.
-там тоже требовалось много файлов на основе сложного шаблона

я же предпочитаю прямое формирование ворд-дока в формате НТМ с таблицами, полями и прочее

[Sanek_81]

Да в принципе подобное решение вполне устраивает:

Sub each_sheet_into_new_document()
'помещает каждый лист в отдельный документ
Dim word_App As New Word.Application
Dim word_Doc As Word.Document
Dim word_Shape As Shape
Selection.HomeKey Unit:=wdStory

pages_count = ActiveDocument.Range.ComputeStatistics(wdStatisticPages)
For i = 1 To pages_count
    Set word_Doc = word_App.Documents.Add
    With word_Doc
    If i = pages_count Then
        Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Else
        Selection.ExtendMode = True
        Selection.GoToNext wdGoToPage
        Selection.MoveLeft wdCharacter, 1, False
                
    End If
        text_for_input = Selection
        Selection.ExtendMode = False
        Selection.MoveRight wdCharacter, 2, False
        .StoryRanges(wdMainTextStory) = text_for_input
        word_App.Visible = True

        
        If i < 10 Then
            p = "0" & i
        Else
            p = i
        End If
        
        .SaveAs "C:\Лист-" & p & ".doc"
    End With
Next i

'этот кусок кода переносит shapes в новый документ
        For Each word_Shape In ActiveDocument.Shapes
            'MsgBox ActiveDocument.Shapes.Count
            word_Shape.Select
            p = Selection.Information(wdActiveEndPageNumber)
            If p < 10 Then
                p = "0" & Selection.Information(wdActiveEndPageNumber)
            End If
            Selection.Copy
            word_App.Documents("Лист-" & p & ".doc").Activate
            word_App.Selection.Paste
        Next word_Shape
        
        For Each doc In word_App.Documents
            doc.Save
        Next doc

Set word_App = Nothing
End Sub

Как переменной "P", которая берётся в роли заголовка файла призвоить значение которое содержится в одном из полей слияний, взятого из экселя, и заодно всё-таки сделать процесс в фоновом режиме, не открывая при этом кучу вордовых окон - возможно ли?

[Sanek_81]

Так, как сделать в фоновом режиме, доехал сам, за это отвечает строка word_App.Visible = True. Однако если отключить видимость, то по окончанию всей процедуры памяти остаётся висеть процесс WINWORD.EXE и блокирует созданные файлы. Не подскажете как завершить этот процесс? Также остался вопрос, как мне значение поля присвоить переменной?

[shanemac51]

word_app.quit
Set word_App = Nothing
End Sub

[Sanek_81]

Ага, спасибо, разобрался. Ещё бы допилить задачу с названием документа.
Логически я себе представляю так: открыть в фоновом режиме excel-документ, получить объект типа recordset наипростейшим sql- запросом из таблицы по одному полю (выбрать все значения), и в дальнейшем подставить эти значения в вышеуказанный цикл переменной "p". Подскажите мне основные команды как это всё сделать, так как очень не силён в этом всём программировании под офис.