вопрос по формированию квитков в Word 2007

[Сергуняяя]

У меня вопрос по формированию данных с помощью макросов.
Есть вот такой документ.
Это зарплатные квитки, представлен в одном варианте. Каждый квиток расположен на отдельном листе.Как сделать чтобы макрос учитывал длину всего листа и переносил квиток, расположенный на следующем листе на предыдущий лист, но при этом еще учитывал влезет ли этот весь полностью квиток на этот лист ?

[shanemac51]

выложите 2-3 квитка в текстовом виде(не рисунке)

[Сергуняяя]

Предварительно нужно выделить весь текст поставить размер шрифта 6 и сделать УЗКИЕ поля, А вот потом уже ?

[shanemac51]

''Основано на свойстве ---НЕ РАЗРЫВАТЬ АБЗАЦ
''
Sub w111110_1418()

    Selection.WholeStory
    Selection.Font.Name = "Courier New"
    Selection.Font.Size = 6
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^l"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^lМБУ"
        .Replacement.Text = "^pМБУ"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphLeft
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = True
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
    End With
    With ActiveWindow.ActivePane.View.Zoom
        .PageColumns = 2
        .PageRows = 1
    End With
End Sub

[shanemac51]

результат таков

[Сергуняяя]

Всё получилось как надо Спасибо