Вопрос : 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
     
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us