Если в вашем документе Word несколько страниц, теперь вам просто нужно сохранить только одну текущую страницу как новый файл Word. Обычно вы можете скопировать и вставить данные текущей страницы в новый файл Word, а затем сохранить его. Но в этой статье я расскажу о том, как сохранить текущую или каждую страницу как отдельные документы из файла Word.
Сохранить текущую страницу как новый документ Word с кодом VBA
Сохраняйте каждую страницу как отдельный документ Word с Kutools for Word
Сохранить текущую страницу как новый документ Word с кодом VBA
Следующий код VBA может помочь вам сохранить содержимое текущей страницы в новый файл Word, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.
Код VBA: сохранить текущую страницу как новый документ Word:
Sub SaveCurrentPageAsANewDoc()
Dim xDoc As Document
Dim xNewDoc As Document
Dim xFileName As String
Dim xFolderPath As Variant
Dim xDlg As FileDialog
Set xDoc = ActiveDocument
xFileName = InputBox("Enter file name here: ", "KuTools for Word")
If xFileName = "" Then Exit Sub
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFolderPath = xDlg.SelectedItems(1)
xDoc.Bookmarks("Page").Range.Select
Selection.Copy
Set xNewDoc = Documents.Add
Selection.Paste
xNewDoc.SaveAs xFolderPath & "" & xFileName & ".docx"
xNewDoc.Close
End If
End Sub
3. А затем нажмите F5 Чтобы запустить этот код, в появившемся диалоговом окне введите имя нового файла, см. снимок экрана:
4, Затем нажмите OK и во втором появившемся окне выберите папку для вывода нового файла, см. снимок экрана:
5. Нажмите OK , текущее содержимое страницы было сохранено как новый файл Word, вы можете перейти в папку, чтобы просмотреть результат.
Сохраняйте каждую страницу как отдельный документ Word с Kutools for Word
Если вы хотите сохранить каждую страницу всего документа в виде отдельных файлов, Kutools for WordАвтора Трещина функция может оказать вам услугу.
После установки Kutools for Word, выполните следующие действия:
1. Нажмите Кутулс Плюс > Трещина, см. снимок экрана:
2. В Разделить документ диалоговое окно:
(1.) Выберите страница из Разделить на раскрывающийся список;
(1.) Щелкните кнопка для выбора папки для вывода новых файлов;
(2.) Затем укажите нужный префикс для новых сохраненных файлов.
3. После завершения настройки нажмите OK кнопку, чтобы начать разделение, а затем все страницы документа Word были сохранены как отдельные файлы в определенной папке, как показано на следующем снимке экрана:
Нажмите, чтобы скачать Kutools for Word и бесплатная пробная версия прямо сейчас!
Рекомендуемые инструменты для повышения производительности Word
Kutools For Word — Более 100 расширенных функций для Word, сэкономьте 50% времени
- Сложные и повторяющиеся операции можно производить разово за секунды.
- Вставляйте сразу несколько изображений из папок в документ Word.
- Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
- Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
- Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Комментарии (2)
Оценок пока нет. Оцените первым!
Чтобы сохранить определённую часть текста внутри Microsoft Word в отдельном документе, не нужно знать никаких хитростей, касающихся работы с этим текстовым редактором. Просто выделяем блоком эту часть текста, копируем её в одном документе и вставляем в другом. Затем сохраняем новый DOCX-файл. Но что делать, если речь идёт о большом исходном документе? И нужно провести долгую, монотонную работу по его расформированию. Можно ли как-то упростить ручной труд по выделению разделов, подразделов или просто произвольных отрывков документа Microsoft Word в отдельные файлы? Не во многом, но можно. Ниже рассмотрим несколько таких способов.
В нашем случае имеем увесистый, тяжело открываемый Word-документ на почти что 150 тыс. слов. Он структурирован разделами и подразделами, и его необходимо расформировать на мелкие документы, содержащие текст отдельных подзаголовков. Проводить работу будем в среде Word актуальной версии пакета Microsoft Office 2016. Действия в старших версиях текстового редактора – 2010 и 2013 – будут аналогичны, каких-то принципиальных отличий в предлагаемых ниже операциях нет.
Чтобы было удобно расформировывать участки документа в отдельные файлы, клавишами Ctrl+F включаем панель навигации и для отображения структуры переключаемся на вкладку панели «Заголовки».
Содержание
- 1. Быстрая установка блока выделения на раздел или подраздел документа
- 2. Сохранение разделов или подразделов документа в PDF
- 3. Макрос копирования и вставки текста в новый документ
- Видео
1. Быстрая установка блока выделения на раздел или подраздел документа
Если у документа есть структура разделов и подразделов, возможности контекстного меню на панели навигации здорово упростят работу по установке блоков выделения. В контекстном меню на выбранном заголовке или подзаголовке, который нужно сохранить в отдельный файл, выбираем пункт «Выделить заголовок и его содержимое».
Блок выделения будет автоматически установлен на весь текст, относящийся к выбранному разделу или подразделу. Далее этот блок копируем или вырезаем, вставляем в новый текстовый документ, форматируем при необходимости и сохраняем.
2. Сохранение разделов или подразделов документа в PDF
В контекстном меню выбранного заголовка или подзаголовка есть ещё один пункт, с помощью которого можно упростить выведение их содержимого в отдельный документ – в файл PDF. Реализована такая возможность в составе опции печати текстового редактора.
В Windows 10 в качестве принтера выбираем «Microsoft Print to PDF» – штатный PDF-принтер этой версии системы.
Называем и сохраняем файл.
PDF-файл таким образом сохраняется не как картинка, а как текст. Его в любой момент позднее можно открыть внутри того же Word.
И при необходимости пересохранить в любом другом формате, поддерживаемом текстовым редактором.
В Windows 8.1 и 7 эта процедура проделывается таким же образом. Однако в этих версиях системы штатного PDF-принтера нет, и прежде его необходимо установить. Делается это с помощью сторонних программ, например, BullZip PDF Printer, PDFCreator, doPDF и т.п.
3. Макрос копирования и вставки текста в новый документ
Если расформировываемый документ не имеет структуры разделов, можно либо её сформировать, либо оставить всё как есть, и ставить блоки выделения вручную. Но даже в последнем случае какую-то часть работы всё равно можно автоматизировать. Копирование или вырезание из исходного документа текста и его вставку в новый Word-файл можно поручить макросам. А их задействование наряду с быстрой установкой блока на целый раздел (подраздел) и вовсе минимизирует труды.
Если макросы в приложении Word задействуются впервые, первым делом необходимо разрешить их использование. В меню «Файл» открываем «Параметры».
Запускаем параметры центра управления безопасностью.
Включаем макросы.
Далее отправляемся во вкладку «Вид» и кликаем «Запись макроса». В появившемся небольшом окошке записи макроса выбираем вариант его задействования в будущем – кнопка на панели быстрого доступа или горячие клавиши – и жмём «Ок».
- Теперь необходимо провести комплекс действий, которые макрос сначала запишет, а затем будет воспроизводить в дальнейшем:
- Выделяем заголовок, подзаголовок или произвольную область текста;
- Нажимаем кнопку (или горячие клавиши) вырезки или копирования;
- Нажимаем кнопку открытия нового документа (для удобства её можно вынести на панель быстрого доступа);
- Вставляем содержимое буфера в новый документ;
- Останавливаем запись макроса с помощью кнопки внизу окна.
Теперь этот макрос с помощью назначенной кнопки (или горячих клавиш) можно запускать для каждого нового блока выделения в исходнике. И всё само будет вырезаться и вставляться в новых документах. Их останется только сохранить потом. Сохранять файлы с нужными нам именами макросы, увы, пока что не умеют.
Видео
как … из документа Word каждую страницу сохранить в отдельный файлСкачать
Как в ворде выцепить все изображения в отдельные файлыСкачать
Как обьединить все документы в один ворде word?Скачать
Как в ворде выцепить все изображения в отдельные файлыСкачать
На чтение 3 мин. Просмотров 1k. Опубликовано 27.05.2021
При использовании документа Microsoft Word вы можете сохранять каждую страницу в виде отдельных файлов PDF один за другим с помощью встроенной функции «Сохранить как». Однако, если нужно разделить сотни страниц и сохранить в виде отдельных файлов PDF, как вы можете это сделать? В этой статье описан способ быстрого решения этой проблемы.
Сохраняйте каждую страницу в виде отдельных файлов PDF в большом количестве с кодом VBA
Содержание
- Сохраняйте каждую страницу как отдельные файлы PDF в большом количестве с кодом VBA
- Рекомендуемые инструменты повышения производительности Word
- Kutools For Word – Более 100 дополнительных функций для Word, сэкономьте 50% времени
Сохраняйте каждую страницу как отдельные файлы PDF в большом количестве с кодом VBA
Приведенный ниже код VBA помогает вы можете быстро сохранять каждую страницу документа как отдельные файлы PDF одновременно. Пожалуйста, сделайте следующее.
1. Откройте документ, в котором вы сохраните каждую страницу или отдельные страницы в виде файлов PDF, затем нажмите клавиши Alt + F11 , чтобы открыть Microsoft Visual Окно Basic для приложений .
2. В окне Microsoft Visual Basic для приложений нажмите Вставить > модуль, скопируйте ниже код VBA в окно модуля.
Код VBA: сохраните каждую страницу как отдельные файлы PDF одновременно в документе Word
3. Нажмите клавишу F5 , чтобы запустить код.
4. В окне Обзор выберите папку для сохранения файлов PDF и нажмите кнопку OK . См. Снимок экрана:
5. В первом диалоговом окне Kutools for Word введите номер начальной страницы вашего документа в текстовое поле и нажмите OK .
6. Во втором диалоговом окне Kutools for Word введите номер последней страницы вашего документа, затем нажмите ОК. См. Снимок экрана:
Примечание . Если вы просто хотите сохранить несколько непрерывно страницы в документе как отдельные файлы PDF, такие как страницы 4, 5 и 6, введите 4 и 6 отдельно в два вышеупомянутых диалоговых окна.
После запуска кода перейдите в указанную папку вы выбрали на шаге 4, вы увидите, что все страницы разделены и сохранены как отдельные файлы PDF, как показано на скриншоте ниже.
Разделить и сохранить каждую страницу документа как отдельные новые документы:
Разделить документ из Kutools for Excel может помочь вам легко разделить и сохранить каждую страницу текущего документа как отдельный новый документ сразу, как показано на скриншоте ниже. Загрузите и попробуйте прямо сейчас! (60-дневная бесплатная пробная версия)
Рекомендуемые инструменты повышения производительности Word
Kutools For Word – Более 100 дополнительных функций для Word, сэкономьте 50% времени
- Сложные и повторяющиеся операции могут быть выполнены единовременно за секунды.
- Вставьте сразу несколько изображений из папок в документ Word.
- Объедините и объедините несколько файлов Word в папках в одну в желаемом порядке.
- Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
- Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и так далее …
Подробнее Загрузить сейчас Купить
Как сохранить каждую страницу ворд документа в отдельный файл
Сообщение было отредактировано: 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:tempmr_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:tempoutput» & 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 страниц с удивительной функцией
- Нажмите Kutools Plus > Трещина, см. …
- В появившемся диалоговом окне установите следующие операции, как вам нужно, см. …
- После завершения настроек нажмите OK, и весь документ будет разделен на несколько файлов для каждой страницы, см.
Как правильно разделить страницы в Word?
Вставка разрыва страницы в Word
- Установите курсор там, где нужно завершить одну страницу и начать новую.
- Выберите Вставка > Разрыв страницы.
Как в Ворде вставить лист из другого документа?
- Щелкните или нажмите место, куда нужно вставить содержимое существующего документа.
- На вкладке «Вставка» выберите стрелку рядом с объектом .
- Выберите текст из файла.
- Найдите нужный файл и дважды щелкните его.
- Чтобы добавить содержимое других документов Word, повторите эти действия.
Как сохранить отдельные листы пдф?
Разделение файла PDF
- Откройте документ PDF в Acrobat DC.
- Выберите «Упорядочить страницы» > «Разделить».
- Выберите способ разделения для одного или нескольких файлов.
- Введите имя и сохраните файл. …
- Разделите файл PDF. …
- Сохраните документ как новый файл.
Как скопировать рамку в ворде на другую страницу?
Ведь любая рамка представляется в виде фигуры, поэтому ее можно вырезать и вставлять в другое место. Достаточно нажать на этот элемент правой кнопкой мыши и выбрать из выпадающего меню пункт «Вырезать» (или «Скопировать»). В данном случае рамка в «ворде» поступит в буфер обмена.
Как разделить файл ворд на 4 части?
Чтобы разделить страницу на 4 части, вы можете вставить таблицу для выполнения задания.
- Поместите курсор в левый верхний угол страницы, затем щелкните Вставить > Настольные, выберите Стол 2×2.
- Таблица была вставлена, затем перетащите правый угол таблицы, чтобы изменить ее размер по своему усмотрению.
Как правильно сохранить документ в ворде?
Чтобы сохранить определённую часть текста внутри Microsoft Word в отдельном документе, не нужно знать никаких хитростей, касающихся работы с этим текстовым редактором. Просто выделяем блоком эту часть текста, копируем её в одном документе и вставляем в другом. Затем сохраняем новый DOCX-файл.
Как сделать разделение страниц в Word Pad?
Добавление принудительного разрыва страницы
- Кликните левой кнопкой мышки по месту, в котором необходимо разделить страницу, то есть, начать новый лист.
- Перейдите во вкладку “Вставка” и нажмите на кнопку “Разрыв страницы”, расположенную в группе “Страницы”.
- Разрыв страницы будет добавлен в выбранном месте.
Как в ворде сделать расстояние между страницами?
Выполните следующие действия.
- Нажмите Кнопку Microsoft Office, а затем нажмите кнопку Параметры Word.
- В левой области нажмите кнопку настроить.
- В списке выбрать команды из выберите Все команды.
- Щелкните Пустое пространство между страницами, нажмите кнопку Добавитьи нажмите кнопку ОК.
Для чего разрыв страницы в ворде?
Применение разрыва страницы сделает главы в одном документе независимыми. Новая глава будет начинаться с новой страницы и правка предыдущей главы не повлияет на вторую. Она всегда будет начинаться с начала страницы.
Как вставить лист из одного документа в другой?
Копирование страницы в одностраничном документе
- Нажмите клавиши CTRL+A, чтобы выделить весь текст в документе. Совет: Для этого также можно установить курсор в левом поле и быстро щелкнуть левую кнопку мыши три раза подряд.
- Нажмите клавиши CTRL+C, чтобы скопировать весь выделенный фрагмент.
Как вставить лист из одного документа в другой Excel?
Перемещение и копирование листа Excel в другую книгу
- Щелчок правой кнопкой мышки по ярлычку листа вызываем контекстное меню.
- Выбираем опцию «Переместить или скопировать».
- 3 В появившимся диалоговом окне из выпадающего списка выбираем файл в который мы хотим скопировать лист. После чего нам доступен список его листов.
Как вставить свой титульный лист в ворде?
Добавление титульной страницы
- На вкладке Вставка в группе Страницы выберите элемент Титульная страница.
- Выберите макет титульной страницы из коллекции. Добавив титульную страницу, вы можете заменить текст образца собственным вариантом. Для этого щелкните, чтобы выделить определенную область страницы (например, заголовок), и введите своей текст.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 |
'-------------Begin----------------- Sub doc_splitter() ' Copyright by W. Polmann ' Use at your own risk origdoc = ActiveDocument.Name Dim Mldg, Titel, Voreinstellung, Batches Mldg = "Number of batches?" Titel = "Freeware by [url]www.ecm-e.de[/url], 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) Range.Select Selection.Copy 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 Next x ActiveDocument.Close End Sub '---------End--------------- |