KLUCHICK, 25.04.2008 - 4:37
Может и есть такая, но не знаю... А чтобы форматирование не сбивалось, расставь сначала "Разрывы страниц" на редактируемом документе. Меню "Вставить" -Разрыв страниц - начать на следующем листе. В этом случае вся разметка в документе останется в целости и сохранности при добавлении нового фрагмента. Уж не обессудь - придётся немного ручками поработать
Legat, 25.04.2008 - 11:51
Цитата | Quote
меня есть курсовая. у неё каждый лист - отдельный файл
- убивать надо за такое
Берем Ворд создаем новый пустой документ. Создаем из него СОСТАВНОЙ документ (детали в хелпе на ворд) далее пофайлово добавляем в него в нужном порядке все что нужно. подчинятся это безобразие будет общим стилям и правилам основоного документа.
Вообще составной док используется когда конечный документ большой и состоит из глав,частей и тд..
Цитата | Quote
А чтобы форматирование не сбивалось, расставь сначала "Разрывы страниц"
только -разрывы разделов. Форматирование сохраняется внутри раздела
Creative, 26.04.2008 - 0:38
Недавно тоже сталкивался с похожей проблемой.
Пришлось написать макрос для этого.
Только все файлы должны иметь последовательную нумерацию.
Например
MyFile_001.doc, MyFile_002.doc, ... , MyFile_nnn.doc.Переименовать так все файлы, лежащие в папке можно легко с помощью
Total Commander например. Там есть специальная функция в меню Файлы - Групповое переименование.
После подготовки всех файлов в основной свой документ вставляешь этот вот макрос.
Для этого в Сервис-Макросы-Макрос делаешь "Создать макрос", вставляешь туда код макроса, подправив шаблоны имен и имя папки на свои и установив нужное тебе количество файлов.
Код макроса: Code
Sub Макрос1()
ChangeFileOpenDirectory "c:\МойКаталог\"
For i = 1 To 224
cFileName = "MyFile_" + Right(CStr(1000 + i), 3) + ".doc"
Documents.Open FileName:=cFileName, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
Selection.WholeStory
Selection.Copy
ActiveWindow.Close
Selection.EndKey Unit:=wdStory
Selection.Paste
Next
End Sub
здесь
МойКаталог - папка, в которой лежат твои файлы на диске С,
MyFile_nnn.doc - вид шаблона для имен файлов,
а в строке
For i = 1 To 224 - ставишь, начиная с какого и по какой номер добавлять, здесь с 1 по 224.
Само собой в настройках
Word в меню Сервис-Параметры надо "разрешить макросы" - для офиса 2003 - это Защита от макросов - Низкая.
Потом - запускаешь макрос в меню Макросы - Макрос1 - Выполнить, после чего наблюдаешь за процессом и получаешь удовольствие.