Подскажите как автоматизировать работу в Word?

[dododo]

меется документ в word (Протокол дипломного проекта) нужно заполнить его для каждого студента - соответственно в протоколе будут меняться только фамилии названия и даты - как автоматизировать это процесс заполнение чтобы создавались протоколы с измененной информацией

Подскажите все варианты - и ссылки на программы или как это сделать. Можо ли создать таблицу exel или acses и сделать слияние с word-ом
PS - это жет пригодиться всем, не только мне!

[SAS888]

А использование Word обязательно?
Может создать шаблон в Excel и его использовать?

[EducatedFool]

Автоматизировать процесс заполнения протоколов можно и при помощи макросов - например, как в этой теме.

Но штатными средствами Word-а это делается проще и быстрее
(к сожалению, сейчас уже не вспомню, как это делается - давно это было, но делал я всё это, пользуясь только встроенной справкой Word-а)

[IgorGO]

В вопросе уже правильная идея написана: СЛИЯНИЕ. Это предназначение данного средства - написать одно и тоже письмо для разных получателей. Я так делал пропуска и поздравления с праздниками. Шаблон в ворде, база в экселе. Если в базе ввести колонку, где указывать пол, то еще и правильные обращения можно организовать, а еще колонку печатать/непечатать, то несколькими нажатиями кнопок все необходимое попадает и на печать сразу. Очень удобно. Ничего выдумывать не надо было.

[dododo]

а можете пожалуйста с этим документом (Скоблина) для примера показать с выдуманной фамилией и темой диплома

[dododo]

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

А использование Word обязательно?
Может создать шаблон в Excel и его использовать?

можно и Exel - покажите пожалуйста пример как это реализовать с одной фамилией

[dododo]

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

Автоматизировать процесс заполнения протоколов можно и при помощи макросов - например, как в этой теме.

Но штатными средствами Word-а это делается проще и быстрее
(к сожалению, сейчас уже не вспомню, как это делается - давно это было, но делал я всё это, пользуясь только встроенной справкой Word-а)

Спасибо за ответ - подскажите пожалуйста что нужно менять в ВАШЕМ скрипте .....Например у меня будут новые переменные (фамилия, тема диплома, и так далее (я этим названия придумаю краткие названия переменых как и у вас) fam , diplom , data) и что нужно делать в самом шаблоне протокола в месте вставки данных - как связать скрипт с {фио} и тд и что значит эти скобки (как создать эти места для связки со скриптом экселя я уже не русским языком пишу надеюсь поймете )

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 18.10.2008 (XTreme)
'
Dim sFIO As String, objWord As Word.Application, sDolg As String, A As Integer
Dim objDoc As Word.Document, sFile As String, sOtd As String, iOklad As Integer
'
'For a = 1 To 3
Range("C2").Select
sOtd = ActiveCell.Value
Range("A2").Select
sFIO = ActiveCell.Value
Range("B2").Select
sDolg = ActiveCell.Value
Range("D2").Select
iOklad = ActiveCell.Value
'Next A

sFile = "C:\Documents and Settings\Администратор\Рабочий стол\Тарифы\Test1.dot"
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open(sFile)
With objWord
.Visible = True
.Selection.InsertAfter Format(Now, "Long date")
End With
objDoc.Bookmarks("FIO").Select
objWord.Selection.InsertAfter sFIO
objDoc.Bookmarks("Dolg").Select
objWord.Selection.InsertAfter sDolg
objDoc.Bookmarks("Otd").Select
objWord.Selection.InsertAfter sOtd
objDoc.Bookmarks("Oklad").Select
objWord.Selection.InsertAfter iOklad
objWord.ActiveDocument.SaveAs "C:\Documents and Settings\Администратор\Рабочий стол\Тарифы\TestDoc", doc

Set objDoc = Nothing
Set objWord = Nothing
End Sub

[EducatedFool]

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

Начнём с того, что вы смотрели не тот макрос.
Тот, код которого Вы привели в сообщении, никакого отношения к формированию документов уже не имеет.

Там на листе Excel есть желтая кнопка СОЗДАТЬ ПИСЬМА, которая запускает другой макрос - CreateDocs:

Sub CreateDocs()
    Dim WA As New Word.Application
    Dim WD As Word.Document, ra As Word.Range
    Set WD = WA.Documents.Add(ThisWorkbook.Path & Application.PathSeparator & "шаблон.dot")
    With WA.Selection
        .HomeKey Unit:=wdStory: .EndKey Unit:=wdStory, Extend:=wdExtend
        .Copy
        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            .Paste
            .EndKey Unit:=wdStory: .HomeKey Unit:=wdStory, Extend:=wdExtend
            .Find.Execute "{дата}", False, , , , , , , , Format(Now, "dd mmmm yyyy г."), True
            .EndKey Unit:=wdStory, Extend:=wdExtend
            .Find.Execute "{фио}", False, , , , , , , , Cells(i, 1), True
            .EndKey Unit:=wdStory, Extend:=wdExtend
            .Find.Execute "{должность}", False, , , , , , , , Cells(i, 2), True
            .EndKey Unit:=wdStory, Extend:=wdExtend
            .Find.Execute "{отделение}", False, , , , , , , , Cells(i, 3), True
            .EndKey Unit:=wdStory, Extend:=wdExtend
            .Find.Execute "{оклад}", False, , , , , , , , Cells(i, 4), True
            .EndKey Unit:=wdStory
        Next i
    End With
    WD.SaveAs ThisWorkbook.Path & Application.PathSeparator & "письма.doc"
    WD.Close False: WA.Quit False
End Sub

В этом макросе строки типа .Find.Execute "{фио}", False, , , , , , , , Cells(i, 1), True
отвечают за замену текста.
В данной строке заменяется текст "{фио}" на значение ячейки Cells(i, 1), где i - номер строки (макрос перебирает все заполненные ячейки в первом столбце)

Но, опять же, повторюсь: гораздо быстрее и проще сделать это штатными средствами Word-a (слиянием)