Добрый день, прошу прощения, что вопрос не по Эксель, но может кто-то сможет помочь:
У меня есть многостраничный документ ворд, который нужно порезать с шагом 2 страницы и сохранить. Есть макрос, который это делает, но есть и небольшая проблема - новые документы (2-страничные) получаются другого форматирования чем исходный документ (шрифт, междустрочный интервал, выравнивание). Может в моем макросе чего-то не хватает?
У меня есть многостраничный документ ворд, который нужно порезать с шагом 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 |