[Office] Повторно, по вашей просьбе, макрос
Добрый день!
Отсылаю макрос еще один раз...
Если комментарии опять не читаются, можно их просто уничтожить
Впрочем я сейчас продублировал их на английском.
Sub DivideFile()
' разбивает файл : каждый абзац в отдельный файл dividing a file: each
paragraph into an individual file
Dim ParaNumber As Long
Selection.HomeKey Unit:=wdStory
ParaNumber = 1
1 Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.SaveAs FileName:=Str(ParaNumber) + ".doc", FileFormat:=wdFormatDocument,
_
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword
_
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=
_
False
ActiveWindow.Close
Selection.MoveDown Unit:=wdParagraph, Count:=1
If ActiveDocument.Range.End - Selection.End < 10 Then
MsgBox "Всё готово"
Exit Sub ' если конец файла - прекращаем in case of the last paragraph
Else
ParaNumber = ParaNumber + 1
GoTo 1
End If
End Sub
