Вопрос : Split документ и спасение слова основанные на бирках

Hi,
Im в настоящее время исследуя как разделить документ слова в множественные архивы основанные на бирках через мир бирки document.

The что-то как

The было бы нужно разделить каждый раздел в отдельно документ и за исключением его using filename в tag.

If любое, котор одно имеет любые предложения на самой лучшей дороге сделать это угодите препятствуйте мне know.

Ive найти немного ресурсов на стержне но ничего окончательное yet.
class=

Ответ : Split документ и спасение слова основанные на бирках

Кодим ниже будет Кодий VBA выполнило бы вы попросили. Для этого будет нужно быть сохраненным как макрос в документе, котор нужно сохранить. Выходной файл находится в таком же курсе как активно документ, показанный именем doc внутри бирки.

Здесь будет где я нахожу ресурс для того чтобы сделать его:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=140

Понадейтесь что это помогает!
зашейте

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49:

Sub SplitDocs () Затемните TotalLines как длиной Затемните x как длиной Затемните группы () как длиной Затемните против как длиной Затемните y как длиной Затемните FilePath как шнур Затемните FileName () как шнур FilePath = ActiveDocument.Path Selection.GoTo: =wdGoToLine, которое: =wdGoToAbsolute, отсчет: =1 Сделайте TotalLines = Selection.Range.Information (wdFirstCharacterLineNumber) Блок Selection.MoveDown: =wdLine, отсчет: =1 Закрепите петлеть пока TotalLines <> Selection.Range.Information (wdFirstCharacterLineNumber) Selection.GoTo: =wdGoToLine, которое: =wdGoToAbsolute, отсчет: =1 Для x = 1 к TotalLines Блок Selection.EndKey: =wdLine, удлиняет: =wdExtend Тусклые intStartPos, intEndPos intStartPos = InStr (Selection.Text, "") Если intStartPos > 0 после этого Счетчик = встречное + 1 Группы заповедника ReDim (1 к счетчику) FileName заповедника ReDim (1 к счетчику) Группы (встречные) = x Блок Selection.EndKey: =wdLine, удлиняет: =wdExtend FileName (встречный) = средний (Selection.Text, intStartPos + 10, intEndPos - (intStartPos + 10)) Блок Selection.HomeKey: =wdLine, удлиняет: =wdExtend Закончитесь если Блок Selection.HomeKey: =wdLine Блок Selection.MoveDown: =wdLine, отсчет: =1 Затем Счетчик = встречное + 1 Группы заповедника ReDim (1 к счетчику) Группы (встречные) = TotalLines Для x = 1 к UBound (группам) - 1 y = группы (x + 1) - группы (x) Selection.GoTo: =wdGoToLine, которое: =wdGoToAbsolute, отсчет: =Groups (x) Блок Selection.MoveDown: =wdLine, отсчет: =y, удлините: =wdExtend Selection.Copy Documents.Add Selection.Paste ActiveDocument.SaveAs FilePath & «\» & FileName (x) & «.doc» ActiveDocument.Close Следующий x Подводная лодка конца