Взаимодействие Word и Excel

[rip.TM]

Здравствуйте! Я в написание макросов для office полный ноль, ибо этим не занимался совсем. Но сейчас появилась такая проблема: Есть форма (в ней содержятся поля для Ф.И.О., даты рождения, серии и номера паспорта и тд.) в формате документ wоrd и есть excel-евская таблица в которой содержатся эти данные. Нужно написать макрос (ну или что то такое ), что бы данные переносились в нужные формы и заполненная форма сохранялась как новый документ. И так для всех данных в таблицы. Пожалуйста помогите если не трудно или подкиньте ссылки на необходимую литературу. Заранее благодарен.

[Ципихович Эндрю]

для чего нужно скрещивание Экселя с Вордом?

[rip.TM]

Сообщение от Ципихович Эндрю

для чего нужно скрещивание Экселя с Вордом?

Я не собираюсь их скрещивать, суть задачи я обьяснил) Или в ручную загонять около 500 человек, или написать програмку, которая сама всё вставит и создаст)

[UMA]

Вам необъходимо поместитьв документ с формой закладки (Bookmarks) в те места, куда должны переносится данные из экселевской таблицы. затем сохранить документ как шаблон *.dot. На основе получившегося шаблона можно создавать документы с данными для каждой записи.

Вордовский документ нужно создать для всех подряд ф.и.о. или свозможностью выбора?

[Fairuza]

Надо сделать слияние. В справке Word достаточно подробно об этом написано.

[alex77755]

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

Или в ручную загонять около 500 человек

Для каждого из 500 человек создать одинаковые документы по шаблону?
Тогда слушай UMA
1. Из ексела открываешь шаблон ворда
2. В цикле по всему списку
4. Заполняешь по меткам
5. Сохранить как
6. Повторить
Отдельные операции можно записать макрос и посмотреть

Саму вставку я вынес в отдельную процедуру

Private Sub ВСТАВКА_ПО_МЕТКЕ(МЕТКА, ТЕКСТ)

Dim R2

On Error GoTo 13
DocWord.Bookmarks(МЕТКА).Select

If (DocWord.Bookmarks(МЕТКА).End - DocWord.Bookmarks(МЕТКА).Start) > 1 Then
Set R2 = DocWord.Range(DocWord.Bookmarks(МЕТКА).Start + 1, DocWord.Bookmarks(МЕТКА).End)
R2.Delete
End If
Selection.InsertBefore (" " & ТЕКСТ)
Exit Sub
13
MsgBox "METKA  " & МЕТКА & "  NE NAYDENA!!!!!", vbCritical, "VNIMANIE!!!"

End Sub

Вызов с передачей параметра:

ВСТАВКА_ПО_МЕТКЕ "GRUPP", ГРУП.Caption

Открытие шаблона:

Set WordApp = New Word.Application
WordApp.Visible = False
Set DocWord = WordApp.Documents.Open(App.Path & "\Primer_prog.doc")

[rip.TM]

Спасибо всем за помощь. Буду пробовать

[UMA]

alex77755, благодарю, я уже проделывала нечто подобное.

[AAP]

У меня примерно такая же задача, только вставка текста не по закладкам, а вместо другого текста. Требуется создать папку с именем из ячейки эксель, копировать туда вордовский файл, открыть его, найти в нем слова "nomer" и заменить их на число из ячейки эксель. сохранить изменения и закрыть документ. Для простоты, решил сначала заменить на число, заданное в самом макросе, но это пока тоже не удалось: выделяет текст, но не заменяет его.

Sub MDir()
Dim pathh As String, i As Integer
pathh = "С:\новая папка"
Dim pathhi As String
Dim WA As Object
Set WA = CreateObject("Word.Application")
For Each oCell In Range([B3], [B6])
    pathhi = pathh & "\" & oCell
    If Not IsEmpty(oCell) Then MkDir pathhi
    FileCopy pathh & "\doc_1.doc", pathhi & "\doc_1.doc"
    With WA
        .Visible = True
        .Documents.Open pathhi & "\doc_1.doc"
        .Selection.Find.ClearFormatting
        .Selection.Find.Replacement.ClearFormatting
        .Selection.Find.Text = "nomer"
        .Selection.Find.Replacement.Text = "НОМЕР"
        .Selection.Find.Execute Replace:=wdReplaceAll
    End With
Next
End Sub

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

[Step_UA]

AAP, как минимум excel не ведает о константе wdReplaceAll - замените на 2