Как сохранить каждую страницу ворд документа в отдельный файл

Обновлено: 07.07.2024

Как сохранить каждую страницу ворд документа в отдельный файл

Prozentsprung = 100 / Batches

For x = 1 To Batches

ActiveDocument.SaveAs FileName:="Teil_" & x & "_" & origdoc & ".doc", _
FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False

Selection.GoTo What:=wdGoToPercent, Which:=wdGoToNext, Count:=AnfangProzentsprung, Name:=""
Anfang = Selection.Start

Selection.Find.ClearFormatting
With Selection.Find
.text = "^p"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
Ende = Selection.End

Set Range = ActiveDocument.Range(Anfang, Ende)

Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Paste
ActiveDocument.Save
ActiveDocument.Close

Documents.Open FileName:=origdoc, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto

работает как надо но не копирует колонтитулы.. Что можно дописать?

[b][b]как можно в этом макросе [/b][/b]

[b][b]добавить такую функцию, которая сохраняла бы все файлы в тхт?[/b][/b]

Как сохранить отдельные страницы в Word?

Допустим, я хочу сохранить 3, 7 и 10 страницы. Ворд может распечатать эти страницы в файл, однако, только в формате prn. Можно ли сохранить определенный список страниц в doc или pdf?

можно сохранить отдельные страницы в Word путем самой программы Word, можно с помощью скринов, копированием отдельных документов и вставки их в вышеуказанную программу. Можно и сохранить в формате PDF, только вам следует обновить программу Word/

Скопируйте нужные листы в отдельный файл, выделив предварительно их. Можно и каждую в отдельном файле сохранить. Только смотрите на начало и конец текста на каждой странице, чтобы не было разорванных предложений.

Есть такая возможность в самом Ворде. Если это ворд 2003 года, то вкладка сервис и там статистика. Выскакивает отдельное окно, и там будет указано количество символов с пробелами и без. Если ворд 2007 или 2010, то данная функция находится на вкладке рецензирование, в левой части, где написано правописание. Кнопка с цифрами 1, 2, 3 и первыми английскими буквами. Это очень удобно при выполнении заказов на биржах (если требуется определенное количество символов без пробелов).

Как правило, никакой разницы между понятиям "документ Word" и "файл Word" нет. Хотя в программе Word можно готовить далеко не только документы, а также, письма, рассказы, схемы, фоторепортажи и т.п. — их все же принять условно называть документами, т.к. это самое распространенное применение программы. Документы Word хранятся в формате .DOC или .DOCX.

И все же Word может обрабатывать не только файлы с документами. В нем, например, можно готовит шаблоны документов (файлы с расширением .DOT), которые содержат описание стилей оформления документов. Это файлы являются файлами Word, но не называются документами.

Также Word может сохранять документы в форматах, отличных от .DOC и .DOCX, например, в .RTF. или .PDF. Это все равно документы, но их не вполне корректно называть "файлами Word" т.к. эти форматы разработаны не специально для него.

Для того, чтобы создать круг в Word, необходимо выбрать раздел "Вставка". Там, подразделе "Иллюстрации" есть пункт "Фигуры". Список фигур большой, и среди основных фигур находится Овал.

Его и выбираем. Для того, чтобы получился именно круг, а не овал, при растягивании объекта на листе удерживаем клавишу Shift. При изменении размера также стоит удерживать Shift, дабы пропорции были сохранены.

Как в ворде сохранить каждую страницу отдельно?

Как в ворде сохранить одну страницу?

Открыть «Файл»; Выбрать «Сохранить как»; Ввести имя файла, нажать «Сохранить»; В выпадающем списке указать расширение «Документ Word 97-2003» и изменить на «.

Как разбить Word файл на несколько частей?

Разделите документ Word на отдельные файлы каждые 10 или n страниц с удивительной функцией

Нажмите Kutools Plus > Трещина, см. …
В появившемся диалоговом окне установите следующие операции, как вам нужно, см. …
После завершения настроек нажмите OK, и весь документ будет разделен на несколько файлов для каждой страницы, см.

Как правильно разделить страницы в Word?

Вставка разрыва страницы в Word

Установите курсор там, где нужно завершить одну страницу и начать новую.
Выберите Вставка > Разрыв страницы.

Как в Ворде вставить лист из другого документа?

Щелкните или нажмите место, куда нужно вставить содержимое существующего документа.
На вкладке «Вставка» выберите стрелку рядом с объектом .
Выберите текст из файла.
Найдите нужный файл и дважды щелкните его.
Чтобы добавить содержимое других документов Word, повторите эти действия.

Как сохранить отдельные листы пдф?

Разделение файла PDF

Откройте документ PDF в Acrobat DC.
Выберите «Упорядочить страницы» > «Разделить».
Выберите способ разделения для одного или нескольких файлов.
Введите имя и сохраните файл. …
Разделите файл PDF. …
Сохраните документ как новый файл.

Как скопировать рамку в ворде на другую страницу?

Ведь любая рамка представляется в виде фигуры, поэтому ее можно вырезать и вставлять в другое место. Достаточно нажать на этот элемент правой кнопкой мыши и выбрать из выпадающего меню пункт «Вырезать» (или «Скопировать»). В данном случае рамка в «ворде» поступит в буфер обмена.

Как разделить файл ворд на 4 части?

Чтобы разделить страницу на 4 части, вы можете вставить таблицу для выполнения задания.

Поместите курсор в левый верхний угол страницы, затем щелкните Вставить > Настольные, выберите Стол 2×2.
Таблица была вставлена, затем перетащите правый угол таблицы, чтобы изменить ее размер по своему усмотрению.

Как правильно сохранить документ в ворде?

Чтобы сохранить определённую часть текста внутри Microsoft Word в отдельном документе, не нужно знать никаких хитростей, касающихся работы с этим текстовым редактором. Просто выделяем блоком эту часть текста, копируем её в одном документе и вставляем в другом. Затем сохраняем новый DOCX-файл.

Как сделать разделение страниц в Word Pad?

Добавление принудительного разрыва страницы

Как в ворде сделать расстояние между страницами?

Выполните следующие действия.

Нажмите Кнопку Microsoft Office, а затем нажмите кнопку Параметры Word.
В левой области нажмите кнопку настроить.
В списке выбрать команды из выберите Все команды.
Щелкните Пустое пространство между страницами, нажмите кнопку Добавитьи нажмите кнопку ОК.

Для чего разрыв страницы в ворде?

Применение разрыва страницы сделает главы в одном документе независимыми. Новая глава будет начинаться с новой страницы и правка предыдущей главы не повлияет на вторую. Она всегда будет начинаться с начала страницы.

Если в вашем документе Word несколько страниц, теперь вам просто нужно сохранить только одну текущую страницу как новый файл Word. Обычно вы можете скопировать и вставить данные текущей страницы в новый файл Word, а затем сохранить его. Но в этой статье я расскажу о том, как сохранить текущую или каждую страницу как отдельные документы из файла Word.

Сохранить текущую страницу как новый документ Word с кодом VBA

Следующий код VBA может помочь вам сохранить содержимое текущей страницы в новый файл Word, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модульи вставьте следующий код в окно модуля.

Код VBA: сохранить текущую страницу как новый документ Word:

3. А затем нажмите F5 Чтобы запустить этот код, в появившемся диалоговом окне введите имя нового файла, см. снимок экрана:

4, Затем нажмите OK и во втором появившемся окне выберите папку для вывода нового файла, см. снимок экрана:

5. Нажмите OK , текущее содержимое страницы было сохранено как новый файл Word, вы можете перейти в папку, чтобы просмотреть результат.

Сохраните каждую страницу как отдельные документы Word с помощью Kutools for Word

Если вы хотите сохранить каждую страницу всего документа в виде отдельных файлов, Kutools for WordАвтора Трещина функция может оказать вам услугу.

После установки Kutools for Word, выполните следующие действия:

1. Нажмите Kutools Plus > Трещина, см. снимок экрана:

2. В Разделить документ диалоговое окно:

(1.) Выберите страница из Разделить на раскрывающийся список;

(1.) Щелкните кнопка для выбора папки для вывода новых файлов;

(2.) Затем укажите нужный префикс для новых сохраненных файлов.

3. После завершения настройки нажмите OK кнопку, чтобы начать разделение, а затем все страницы документа Word были сохранены как отдельные файлы в определенной папке, как показано на следующем снимке экрана:

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

Примечание. Если вам необходимо разделить информацию в документе, которая занимает 1,5, 2 или большее количество страниц, то способ не поможет. Предложенный макрос разделяет лишь по 1 странице.

Алгоритм работы:

1. Скопировать многостраничный документ, который нужно разделить в отдельную папку. Открыть его. Дальше: «Вид → Макросы → Макросы».

2. Если у вас до сих пор не было макросов и в открывшемся окне они не отображаются, то нужно нажать «Создать». Если макросы уже присутствуют, то нужно выделить любой из них и нажать «Изменить» или нажать сочетание клавиш Alt + F11. Запустится окно программы Microsoft Visual Basic.

4. Найти где заканчивается последний макрос (если поле пустое, то просто вставить скопированный код нашего макроса) и вставить скопированный код. После этого можно закрыть окно Microsoft Visual Basic.

5. Далее перейти в «Вид → Макросы → Макросы» и найти только что добавленный (имя: РозбитиДокументНаСторінки), выделить его и нажать на кнопку «Выполнить».

6. После выполнения команд ваш документ будет разделен постранично (каждая страница на отдельном документе). Все документы будут добавлены в папку основного документа и будут иметь его название + номер страницы (смотрите снимок экрана ниже).

Макрос можно переименовать. Название макроса находится в начале и выделено полужирным: Sub РозбитиДокументНаСторінки(). Найдите его в коде, который показан выше и переименуйте если нужно. Имя не должно содержать пробелов.

Здравствуйте. Есть срочная необходимость разбить файл Word (состоящий из N-листов, например 10) на отдельные файлы, состоящие из 1 листа каждый. Подскажите пожалуйста, как решить такую "задачку"? Спасибо.

2 Ответ от Alex_Gur 19.05.2015 09:58:14

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3 Ответ от POLYARikSPb 19.05.2015 14:00:13

Спасибо, посмотрел Вашу ссылку, но не нашел ответа на свой вопрос. Может кто еще, что подскажет в решении данной задачки.

4 Ответ от Alex_Gur 19.05.2015 14:10:49

Алгоритм макроса может быть такой: Вы выделяете первую страницу, копируете ее, открываете новый документ, вставляете страницу в новый документ, сохраняете его под соответствующим именем и так далее со всеми страницами.
Напишете сами такой макрос?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5 Ответ от POLYARikSPb 19.05.2015 15:00:12

К сожалению не напишу сам. "Не дружу" я с макросами. Если поможете написать, буду очень благодарен Вам. Быть может еще кому из форумчан пригодится данный "кейс"

6 Ответ от Alex_Gur 19.05.2015 15:03:27

К сожалению не напишу сам. "Не дружу" я с макросами. Если поможете написать, буду очень благодарен Вам. Быть может еще кому из форумчан пригодится данный "кейс"

Попробую, если меня не обгонят другие эксперты.
Сейчас много работы.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

7 Ответ от POLYARikSPb 19.05.2015 15:23:50

ОК, буду с нетерпением ждать

8 Ответ от Alex_Gur 19.05.2015 15:41:36

Выложите, пожалуйста, пример файла, к которому нужно применить такой макрос.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

9 Ответ от POLYARikSPb 19.05.2015 16:06:58

Бланк уставок ШЭ2607 081_205 Л-111.doc 1005 Кб, 8 скачиваний с 2015-05-19

You don't have the permssions to download the attachments of this post.

10 Ответ от Alex_Gur 19.05.2015 16:47:57

Получилось что-то такое:

В процессе работы макроса оригинальный файл изменяется. Поэтому сохранять его после окончания макроса не надо.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

11 Ответ от Alex_Gur 19.05.2015 16:54:23

При разделении Вашего файла у меня получилось на одну страницу меньше (см. приложение).
Чтобы получилось точнее Вам нужно сделать следующее:
1) Убрать повторение заголовков таблиц. Повторение заголовков как часть следующей страницы все равно не распознается (фактически его на этой странице нет).
2) Для всех таблиц нужно установить режим Не разрешать перенос строк на следующую страницу (Свойства таблицы - вкладка Строка - снять флажок Разрешить перенос строк на следующую страницу).

doc.zip 508.46 Кб, 7 скачиваний с 2015-05-19

You don't have the permssions to download the attachments of this post.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

12 Ответ от POLYARikSPb 19.05.2015 22:09:46

Спасибо, вроде работает

13 Ответ от Boris_R 20.05.2015 00:26:06

Если после разбиения на одностраничные файлы отсутствует необходимость дальнейшего редактирования полученных одностраничных файлов, то самый надежный способ - это сохранить файл в формате PDF с последующим разбиением полученного PDF файла на отдельные страницы.
Во вложении результат такого разбиения, сделанного с помощью Foxit Phantom. Можно использовать и другие программы для редактирования PDF файлов.

PDF_split.7z 415.23 Кб, 3 скачиваний с 2015-05-20

You don't have the permssions to download the attachments of this post.

14 Ответ от POLYARikSPb 20.05.2015 08:38:04

Спасибо за овет. Этот способ я и сам знаю. Задача состоит именно в разбивке на листы ворд. В дальнейшем, которые нужно вставлять в автокад по-странично, так как при вставке файла ворд (состоящего из N-листов) вставляется только первый лист ворда. Вставлять в автокад в пдф формате мне не нужно.

Если после разбиения на одностраничные файлы отсутствует необходимость дальнейшего редактирования полученных одностраничных файлов, то самый надежный способ - это сохранить файл в формате PDF с последующим разбиением полученного PDF файла на отдельные страницы.
Во вложении результат такого разбиения, сделанного с помощью Foxit Phantom. Можно использовать и другие программы для редактирования PDF файлов.

15 Ответ от azur 07.09.2018 07:26:31

Приветствую!
Помогите, пожалуйста, решить пару проблем.
1) При работе найденного на просторах инета макроса после разбиения word-документа на отдельные документы в них добавляется вторая пустая страница?
Что в макросе подкрутить, чтобы пустая страница не добавлялась?

---------------
2. Ещё вопрос.
Планируется сделать паспорта ПК. Очень много.
Инфа из экселя сливается в word-форму через поля слияния (получается длинная простыня на много страниц), а вышеприведённым макросом разрезается на файлы и сохраняется. НО появились неудобство.
Документов после разбиения будет за 350 штук. Вышеприведённый макрос сохраняет нарезанные документы по шаблону "Название_исходного_файла+Номер". Придётся каждый файл открывать, копировать и/н ПК, закрывать, переименовывать файл . Есть большое желание, чтобы макрос перед сохранением "заглядывал в определённое место в сохраняемом документе, брал с оттуда текст и присваивал этот текст как имя сохраняемого документа (инвентарный номер ПК).
Подскажите, как это сделать?

16 Ответ от Fck_This 07.09.2018 11:41:29

Приветствую!
Помогите, пожалуйста, решить пару проблем.
1) При работе найденного на просторах инета макроса после разбиения word-документа на отдельные документы в них добавляется вторая пустая страница?
Что в макросе подкрутить, чтобы пустая страница не добавлялась?

Спасибо!

А по поводу "заглядывать в конкретное место - надо знать место. Это может быть ячейка таблицы или по маркеру искать (вроде Selection.find по знаку "№").

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

17 Ответ от azur 10.09.2018 02:26:22

- в какую строку добавить этот код?
--------

А по поводу "заглядывать в конкретное место - надо знать место. Это может быть ячейка таблицы или по маркеру искать (вроде Selection.find по знаку "№").

- приложил файл с первыми тремя листами результата слияния. Красным выделено место инвентарного номера.

Мысль пришла.
Изменить или добавить в другое место инвентарный номер нельзя (утверждённый бланка). "Это может быть ячейка таблицы" - если вдруг изменится таблица/бланк, то тогда макрос перестанет работать.
Быть может, добавить дополнительно мелким шрифтом и белого цвета поле слияния с и/н в верхний колонтитул (он свободен).
Так при изменении тела документа не затронется место, на которое будет "смотреть" макрос.

Читайте также: