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

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

Сообщение было отредактировано: 27 июл 07, 01:00

автор
‘————-Begin——————
Sub doc_splitter()
‘ Copyright by W. Polmann
‘ Use at your own risk

Dim Mldg, Titel, Voreinstellung, Batches
Mldg = "Number of batches?"
Titel = "Freeware by www.ecm-e.de, W. Polmann."
Voreinstellung = "1" ‘ Voreinstellung festlegen.
‘ Meldung, Titel und Standardwert anzeigen.
Batches = InputBox(Mldg, Titel, Voreinstellung)

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

EndeProzentsprung = Prozentsprung * x
AnfangProzentsprung = EndeProzentsprung — Prozentsprung

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

Selection.GoTo What:=wdGoToPercent, Which:=wdGoToNext, Count:=EndeProzentsprung, Name:=""
‘ Bis zur nächsten Absatzmarke hoch

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

Sub mr_ZM()
Dim wrd As Object, doc As Object, x As Range, y As Range
Set wrd = CreateObject("word.application")
‘wrd.Visible = True
For Each x In Range(Range("A2"), Range("A1").End(xlDown))
Set doc = wrd.Documents.Open(Filename:="c:\temp\mr_ZM шаблон1.doc", ConfirmConversions:= _
False, ReadOnly:=True)
For Each y In Range(x, x.End(xlToRight))
With doc.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "#" & y.End(xlUp) & "#"
.Replacement.Text = y
.Forward = True
.Wrap = 1 ‘wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.Execute Replace:=2 ‘wdReplaceAll
End With
Next
doc.SaveAs "C:\temp\output\" & x & "_" & x.Offset(0, 1)
doc.Close 0
Next
wrd.Quit

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

Сообщение было отредактировано: 10 май 15, 10:20

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

Модератор: Учимся использовать тэги оформления кода — FAQ

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

Сообщение было отредактировано: 12 май 15, 16:47

Как сохранить отдельные страницы в 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, дабы пропорции были сохранены.

Затем, выбрав круг, мы видим в левой верхнем меню кнопку — "Изменить текст". Нажимаем на нее и можно писать текст в фигуре. В последствии полученный текст можно редактировать и выравнивать по центру/краям. При необходимости текст можно и повернуть.

Создать отдельный текстовый файл с нужным вам содержанием и отправить. Зачем же себе жизнь усложнять? Или я как-то неправильно понял ваш вопрос? Тогда опишите вашу ситуацию поподробнее пожалуйста и я постараюсь помочь.

Когда копируют текст из интернета в Microsoft Word многие удивляются, почему получается "кривой" документ — в нем присутствуют большие пробелы между словами, невозможно применить команды по форматированию параграфа, да и ссылки на сайты тоже не плохо было бы удалить. Для того, чтобы это все удалить, необходимо включить в закладке Home/главная команду Показать/скрыть (show/hide). эта команда покажет на экране все скрытые символы. Следующее действие — удалить эти символы. Как это сделать — в этом видео.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1. Кликните левой кнопкой мышки по месту, в котором необходимо разделить страницу, то есть, начать новый лист.
  2. Перейдите во вкладку “Вставка” и нажмите на кнопку “Разрыв страницы”, расположенную в группе “Страницы”.
  3. Разрыв страницы будет добавлен в выбранном месте.

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

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

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

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

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

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

Копирование страницы в одностраничном документе

  1. Нажмите клавиши CTRL+A, чтобы выделить весь текст в документе. Совет: Для этого также можно установить курсор в левом поле и быстро щелкнуть левую кнопку мыши три раза подряд.
  2. Нажмите клавиши CTRL+C, чтобы скопировать весь выделенный фрагмент.

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

Перемещение и копирование листа Excel в другую книгу

  1. Щелчок правой кнопкой мышки по ярлычку листа вызываем контекстное меню.
  2. Выбираем опцию «Переместить или скопировать».
  3. 3 В появившимся диалоговом окне из выпадающего списка выбираем файл в который мы хотим скопировать лист. После чего нам доступен список его листов.

Как вставить свой титульный лист в ворде?

Добавление титульной страницы

  1. На вкладке Вставка в группе Страницы выберите элемент Титульная страница.
  2. Выберите макет титульной страницы из коллекции. Добавив титульную страницу, вы можете заменить текст образца собственным вариантом. Для этого щелкните, чтобы выделить определенную область страницы (например, заголовок), и введите своей текст.
Ссылка на основную публикацию