1

Тема: Разбивка файла .docx на равные части

Как разб. файл Word на равные части.
1) Разбить его внутри (т.е. чтобы были куски текста и перед ними написано, например, "день 1", "день 2"?)
2) Разбить его просто на несколько файлов. С равным количеством строк/предложений.
Не суть важно то, что содержание текста будет терять смысл.
Поясню:
День 1 Худощавый,  слабый  на  вид  старичок,  полковой  командир, с  приятною
  улыбкой,  с  веками, которые больше чем наполовину закрывали его  старческие
  глаза, придавая  ему кроткий вид, подъехал к князю  Багратиону и принял его,
  как хозяин дорогого гостя.
День 2 Он доложил князю Багратиону, что против его полка
  была конная  атака  французов, но что,  хотя атака эта  отбита, полк потерял
  больше  половины  людей.
День 3 Полковой командир сказал, что  атака  была  отбита,
  придумав  это  военное название тому,  что  происходило в  его полку;  но он
  действительно  сам не знал, что  происходило в эти полчаса  во вверенных ему
  войсках, и  не мог с достоверностью  сказать,  была ли отбита атака или полк
  его был разбит атакой. В начале действий он знал только то, что по всему его
  полку стали летать ядра и гранаты и  бить людей, что потом  кто-то закричал:
  "конница", и наши стали стрелять. И стреляли  до  сих пор уже  не в конницу,
  которая  скрылась, а  в  пеших  французов,  которые показались  в  лощине  и
  стреляли по нашим.
День 4 Князь  Багратион наклонил голову в знак того, что все это
  было совершенно так, как он желал и предполагал. Обратившись к адъютанту, он
  приказал ему привести с горы два баталиона 6-го егерского,  мимо которых они
  сейчас проехали. Князя Андрея поразила в эту  минуту перемена, происшедшая в
  лице  князя Багратиона. Лицо  его выражало  ту сосредоточенную и  счастливую
  решимость,  которая бывает  у человека,  готового в жаркий день броситься  в
  воду и берущего последний разбег. 
День 5 Не было ни невыспавшихся тусклых глаз, ни
  притворно-глубокомысленного   вида:   круглые,  твердые,   ястребиные  глаза
  восторженно и несколько презрительно смотрели вперед, очевидно, ни на чем не
  останавливаясь,  хотя  в  его  движениях  оставалась прежняя  медленность  и
  размеренность.
______________
Что-то вроде этого.
Только кол-во предложений одинаковое. И каждый день с абзаца начинается. Либо в новом файле.(либо в 1м файле 10-ть дней) во втором (10-ть след-х дней (т.е. с 10 по 20-й)
Ну и так далее.
Заранее благодарен. Что непонятно–спрашивайте.

2

Re: Разбивка файла .docx на равные части

Думаю, можно это сделать с помощью макроса.
Отсчитываем предложения с помощью поиска точек.
Копируем в новый файл.
Сохраняем под определенным именем.

Макрос получится не очень простой. Может быть есть желающие написать этот макрос?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

Re: Разбивка файла .docx на равные части

здесь очень многое зависит от структуры файла
--некая книга без рисунков, формул и таблиц, колонок --это одно
--книга с рисунками/формулами/таблицами/колонками/надписями --совсем другое

4

Re: Разбивка файла .docx на равные части

Спасибо Вам!
Alex_Gur, я не знаю что такое макрос и не умею.( Вы объясните или покажите как.
shanemac51, текст простой, но с рисунками, но они роли не играют. Их как-то можно же все сразу убрать? Всего остального нет (формул/таблиц/колонок/надписей)

5

Re: Разбивка файла .docx на равные части

Afanasij пишет:

Спасибо Вам!
Alex_Gur, я не знаю что такое макрос и не умею.( Вы объясните или покажите как.

Если Вы никогда этом не занимались, то такой макрос самостоятельно Вы сразу написать не сможете.
Даже убрать все рисунки из файла - и то непростая задача.
Например, их можно убрать путем глобальной замены ^g на пустую строку или следующими операторами:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^g"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

6

Re: Разбивка файла .docx на равные части

Afanasij пишет:

Alex_Gur, я не знаю что такое макрос и не умею.( Вы объясните или покажите как.

Афанасий, если Вы желаете познакомиться с работой макросов в Word, посмотрите, пожалуйста, здесь:
http://wordexpert.ru/forum/viewtopic.php?id=1342

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.