Вставить разрыв страниц между параграфами

[Serg1986]

Добрый день. Пишу скрипт для копирования данных из одного документа в другой:

PHP код:

Sub MySelection()

Dim start_r As Long
Dim end_r As Long
Dim rng As Range
Dim doc As Document
Dim text_r As String
Dim counter As Long
counter = 0
Selection.HomeKey Unit:=wdStory

 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "[0-9]/[0-9]"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    Set doc = Application.Documents.Add
    Application.Documents.Item(2).Activate
    
While Selection.Find.Execute = True
If (Selection.text <> "") Then

//функция ищет начало квитанции
SubGetStart
start_r = Selection.start
SubGetEnd
end_r = Selection.End
Selection.SetRange start_r, end_r
Selection.Copy

Application.Documents.Item(1).Activate

doc.Paragraphs(doc.Paragraphs.Count).Range.Paste

counter = counter + 1
If ((counter Mod 2) = 0) Then
//doc.Paragraphs(doc.Paragraphs.Count).Range.InsertBreak 7
End If
//Почему этот кусок кода не вставляет разрыв в документ?
doc.Paragraphs(doc.Paragraphs.Count).Range.InsertBreak 7


Application.Documents.Item(2).Activate

SubFindChar
Selection.SetRange end_r, end_r
End If
Wend
End Sub 


Алгоритм такой: ищем в документе квитанции у которых в суммах есть символ (/) и копируем эти квитанции во второй документ, на странице должно быть две квитанции, т.е после каждой второй ставим разрыв страниц. Почему у меня не работает строчка doc.Paragraphs(doc.Paragraphs.Count ).Range.InsertBreak 7 и вместо разрыва вставляется перевод каретки? Спасибо.

[garik64]

Похоже, Вы где-то раньше указали, что .InsertBreak Type:=wdLineBreak. Попробуйте явно указать, что Вам нужен wdPageBreak.

[Serg1986]

Я думал что строчка
doc.Paragraphs(doc.Paragraphs.Count ).Range.InsertBreak wdPageBreak
указывает на то что InsertBreak Type=wdPageBreak.
Только вместо разрыва вставляется перевод каретки, почему-то, может Paragraphs не может содержать разрыв?