люди, помогите мне пожалуйста. У меня есть курсовая. у неё каждый лист - отдельный файл. Ctrl+C, Ctrl+V не вариант. слишком много страниц, плюс всё форматирование сбивается нафиг.. (((( Нет ли какой-нибудь проги, которая могла бы "склеить" их в один в нужном порядке?
Может и есть такая, но не знаю... А чтобы форматирование не сбивалось, расставь сначала "Разрывы страниц" на редактируемом документе. Меню "Вставить" -Разрыв страниц - начать на следующем листе. В этом случае вся разметка в документе останется в целости и сохранности при добавлении нового фрагмента. Уж не обессудь - придётся немного ручками поработать 
Цитата | Quote
меня есть курсовая. у неё каждый лист - отдельный файл
- убивать надо за такое Берем Ворд создаем новый пустой документ. Создаем из него СОСТАВНОЙ документ (детали в хелпе на ворд) далее пофайлово добавляем в него в нужном порядке все что нужно. подчинятся это безобразие будет общим стилям и правилам основоного документа.
Вообще составной док используется когда конечный документ большой и состоит из глав,частей и тд..
Цитата | Quote
А чтобы форматирование не сбивалось, расставь сначала "Разрывы страниц"
только -разрывы разделов. Форматирование сохраняется внутри раздела Меню "Вставка" -> "Объект" -> "Документ"
И указываешь путь. Документ вставляется в позицию курсора.
И указываешь путь. Документ вставляется в позицию курсора.
Недавно тоже сталкивался с похожей проблемой.
Пришлось написать макрос для этого.
Только все файлы должны иметь последовательную нумерацию.
Например MyFile_001.doc, MyFile_002.doc, ... , MyFile_nnn.doc.
Переименовать так все файлы, лежащие в папке можно легко с помощью Total Commander например. Там есть специальная функция в меню Файлы - Групповое переименование.
После подготовки всех файлов в основной свой документ вставляешь этот вот макрос.
Для этого в Сервис-Макросы-Макрос делаешь "Создать макрос", вставляешь туда код макроса, подправив шаблоны имен и имя папки на свои и установив нужное тебе количество файлов.
Код макроса:
MyFile_nnn.doc - вид шаблона для имен файлов,
а в строке For i = 1 To 224 - ставишь, начиная с какого и по какой номер добавлять, здесь с 1 по 224.
Само собой в настройках Word в меню Сервис-Параметры надо "разрешить макросы" - для офиса 2003 - это Защита от макросов - Низкая.
Потом - запускаешь макрос в меню Макросы - Макрос1 - Выполнить, после чего наблюдаешь за процессом и получаешь удовольствие.
Пришлось написать макрос для этого.
Только все файлы должны иметь последовательную нумерацию.
Например 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
здесь МойКаталог - папка, в которой лежат твои файлы на диске С,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 - Выполнить, после чего наблюдаешь за процессом и получаешь удовольствие.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке: Как "склеить" файлы Word?
SoftoRooM © 2004-2024