Как разделить главный документ Word на несколько документов Word без разрыва раздела в конце новых документов - PullRequest
Новая
       96

Как разделить главный документ Word на несколько документов Word без разрыва раздела в конце новых документов

0 голосов
/ 05 мая 2020

Я использую Word для создания документов слияния почты. Затем я использую макрос разделителя, созданный Дугом Роббинсом, который я скопирую ниже, для создания отдельных документов.

Новые одиночные документы имеют пустую страницу в конце, возможно, из-за автоматического добавления разрыва раздела. Когда я пытаюсь удалить эту страницу, изменяется полное форматирование моего документа.

Как мне это исправить? В идеале, как мне изменить этот макрос, чтобы решить эту проблему? Например, у меня есть документ в альбомном режиме. После использования этого макроса новые отдельные документы будут иметь последнюю пустую страницу в портретном режиме, и если я попытаюсь удалить это, все документы изменятся в портретном режиме.

Вот макрос, который я использую: 

Sub splitter()

' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
' as a separate file.

Dim Letters As Integer, Counter As Integer

Letters = ActiveDocument.Sections.Count
u = ActiveDocument.MailMerge.DataSource.Name
Selection.HomeKey Unit:=wdStory
Counter = 1

While Counter < Letters
  docName = "WRITE NAME OF SOURCE DOCUMENT" & LTrim$(Str$(Counter))
  ActiveDocument.Sections.First.Range.Cut
  Documents.Add
  Selection.PasteAndFormat wdPasteDefault
  ActiveDocument.Sections(2).PageSetup.SectionStart = wdSectionContinuous
  Set oRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range
  f = Documents(1).Sections(1).Footers(1).Range.Text
  n = Left(f, 40)

  ActiveWindow.Close
  Counter = Counter + 1
Wend

End Sub
...