рызрыв страницы

[АлёнаP]

Как сделать, чтобы перед первым найденным словом вставить разрыв страницы?

[viter.alex]

Алёна, ваше условие слишком неопределенное. А что, в документе так мало слов?
Можно вот так вставить разрыв страницы перед каждым словом

Sub InsertBreakBeforeEveryWord()
  Dim oWord As Range
  With ThisDocument
    .Range(.Words.First.Start, .Words.First.Start).InsertBreak wdPageBreak
    Set oWord = .Words.First.Next(wdWord).Next(wdWord)
    Do
      .Range(oWord.End, oWord.End).InsertBreak wdPageBreak
      Set oWord = oWord.Next(wdWord).Next(wdWord).Next(wdWord).Next(wdWord)
    Loop Until oWord Is Nothing
  End With
End Sub

Этот макрос работает с коллекцией Words, поэтому кавычки, знаки препинания воспринимаются как отдельные слова, какими они по сути и являются.

Кроме того, Алёна, вы не указали какой разрыв вам нужно вставлять. Разрывов в Word несколько:

1. Разрыв строки (3 типа)
2. Разрыв колонки
3. Разрыв раздела (4 типа)
4. Просто разрыв страницы
5. Разрыв с перетеканием.

Если приложите документ и напишите, что вам нужно, то помощь будет более существенной.

[АлёнаP]

Мне нужен простой разрыв страницы.
т.е. бейсиком я окрываю документ word, и уже в этом документе необходимо сделать первую страницу пустой. Хотела разрывом страницы.

[viter.alex]

Ну вот видите, если правильно сформулировать задачу, то все гораздо проще.

ActiveDocument.Range(0,0).InsertBreak wdPageBreak

Если ваш документ сохранен в переменной, то вместо ActiveDocument ставьте эту переменную.

Поясню, что делает эта строка. Она вставляет разрыв страницы, но не куда попало, а в самую первую позицию в документе. Объект Range (диапазон) хранит в себе все содержимое документа. А Range(0,0) — это самое начало документа.

[АлёнаP]

Спасибо! Спасибо! Спасибо!

У меня получилось вот так:
Set w = CreateObject("Word.application")
......
w.Selection.InsertBreak 7 'wdPageBreak
.......
.......

[viter.alex]

Сообщение от АлёнаP

Спасибо! Спасибо! Спасибо!

У меня получилось вот так:
Set w = CreateObject("Word.application")
......
w.Selection.InsertBreak 7 'wdPageBreak
.......
.......

Ну, в общем-то правильно, но работать через Selection не удобно. Вам придется постоянно следить, где находится ваш курсор, чтобы не вставить то, что не нужно, туда, куда не нужно. Рекомендую сделать так:

Set oDoc = w.Documents.Add 'Добавляем новый документ
oDoc.Range(0,0).InsertBreak 7 'wdPageBreak

И в дальнейшем работайте через этот объект, в котором хранится ваш документ.
Минимум, что это вам дает — скорость работы. Раза в полтора быстрее, чем при работе с Selection

Например, у вас в коде. Откуда вы знаете, что курсор находится в начале документа? Тем более, что при CreateObject само приложение не видно, если не установить его свойство Visible. Да и документа в нем нет открытого, значит, вы все равно документ окрываете. Поэтому советую работать с Range.

Шепотом
Я этот Range сам не понимал довольно продолжительное время, и работал через Selection. Но когда понял…

[АлёнаP]

Ведь когда мы добавляем документ или открываем его, курсор находится в начале документа. Я проверила.
Я учту замечания
Спасибо!!!

[viter.alex]

Сообщение от АлёнаP

Ведь когда мы добавляем документ или открываем его, курсор находится в начале документа. Я проверила.
Я учту замечания
Спасибо!!!

Я же говорю, нужно постоянно это проверять. Тем более не факт, что документ находится в начале документа при его открытии. Можно так настроить, чтобы курсор был в последнем месте редактирования. Вручную это Shift+F5.
Успехов.