Страницы: 1
RSS
Макрос - разделить страницы для Ворд
 
Добрый день, прошу прощения, что вопрос не по Эксель, но может кто-то сможет помочь:

У меня есть многостраничный документ ворд, который нужно порезать с шагом 2 страницы и сохранить. Есть макрос, который это делает, но есть и небольшая проблема - новые документы (2-страничные) получаются другого форматирования чем исходный документ (шрифт, междустрочный интервал, выравнивание). Может в моем макросе чего-то не хватает?
Код
Sub Split()
'
' Split Макрос
' 
'
    Dim src As Document
    Dim dst As Document
    Dim i As Integer
    
    Set src = ActiveDocument
    For i = 1 To src.Sections.Count - 2
        src.Sections(i).Range.Copy
        Set dst = Documents.Add
        dst.Range.Paste
        dst.Sections(2).PageSetup.SectionStart = wdSectionContinuous
        dst.SaveAs "d:\Мои документы\Письмо\" & i & "_letter.docx"
        dst.Close
    Next
End Sub
Страницы: 1
Наверх