Mr_SMiT
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Заранее прошу прощения, но очень сомневаюсь, что в топике по Word-у мне помогут. Нашел на одном буржуйcком ресурсе макрос Ворда для разбивки документа на части. Устраивает почти всё, но! Можно ли его подправить, чтобы файлы сохранял с именем по умолчанию, т.е. первой строкой в тексте.
Вот код:
Код:
Option Explicit
Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
' delimiter & filename
SplitNotes "///", "Notes "
End Sub
|
|
Всего записей: 650 | Зарегистр. 18-07-2006 | Отправлено: 20:15 05-11-2010 | Исправлено: Mr_SMiT, 20:16 05-11-2010 |
|
