Разделение каждой страницы документа на отдельные документы?

267
Arthur Poleyeff

Есть ли способ разбить документ Word на 85 страниц на 85 отдельных документов?

Adobe Acrobat может сделать это с помощью функции «разделить документ».

0

1 ответ на вопрос

0
Rich Michaels

В Word нет встроенной функции для этого, но вы можете использовать макрос.

Sub MakeSepDocs() Dim doc As Word.Document, rng As Word.Range Dim newDoc As Word.Document, fName As String Dim sep As String, nbr As Integer, sNbr As String sep = Application.PathSeparator  Set doc = ActiveDocument Selection.HomeKey Word.WdUnits.wdStory fName = Mid(doc.FullName, InStrRev(doc.FullName, sep) + 1, _ InStrRev(doc.FullName, ".") - InStrRev(doc.FullName, sep) - 1) On Error Resume Next Repeat: Set rng = doc.Bookmarks("\page").Range rng.Select Set newDoc = Documents.Add nbr = nbr + 1 sNbr = Format(nbr, "00") newDoc.Content.FormattedText = rng.FormattedText newDoc.SaveAs2 doc.path & sep & fName & sNbr, Word.WdSaveFormat.wdFormatXMLDocument newDoc.Close DoEvents doc.Activate Selection.Collapse Word.WdCollapseDirection.wdCollapseEnd If Selection.Range.Start = doc.Bookmarks("\EndOfDoc").Range.Start Then Exit Sub GoTo Repeat End Sub 
Благодарю. Как мне создать этот макрос? Через Visual Basic? Arthur Poleyeff 6 лет назад 0
Чтобы выполнить процедуру создания макроса, выполните следующие действия, описанные в следующей статье: https://wordmvp.com/FAQs/MacrosVBA/CreateAMacro.htm. Rich Michaels 6 лет назад 0

Похожие вопросы