Как разбить документ Word на несколько файлов

@Al_Sha · Регистрация: 03.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте Уважаемые!
Подскажите.
Имеется документ Word, состоящий из "n" страниц.
Как разбить его на "n" файлов, в каждом из которых соответствующая страница?
Заранее благодарен
Al_Sha

@conn · 14.10.2009, 10:14

Могу предложить такой вариант, сам недавно задавался этим вопросом, другого ничего не придумал:

Используем OLE.
Открываем исходный файл, выделяем в нем первую страницу (от начала документа до конца первой страницы), копируем в буфер, создаем новый документ, вставляем в него буфер, сохраняем новый документ, закрываем новый документ. В исходном удаляем выделенное и оказываемся в начале оставшегося текста. Повторяем процедуру n раз (n-количество страниц в исходном док-те) и закрываем исходный документ без сохранения.

Вот что у меня получилось (за образец брал макрос на Visual Basic поэтому такой вот код)):

Delphi
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
unit Word_open;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const    
  wdPropertyPages = $0000000E;
const
  AWordDoc = 'C:\Test.doc';
  wdSaveChanges = $FFFFFFFF;
  wdGoToPage = 1;
  wdStory = 6;
  wdExtend = 1;
  wdCharacter = 1;
var
  WordApp, WordAppDest: OLEVariant;
  SaveChanges: OleVariant;
  intPage, intNumberOfPages: integer;
 
begin
  try
    WordApp := CreateOleObject('Word.Application');
  except
    // Error....
    ShowMessage('Ошибка открытия документа');
    Exit;
  end;
  try
    WordApp.Visible := True;
    WordApp.Documents.Open(AWordDoc);
    sleep(10000);//чтобы успел открыться полностью документ
    //иначе неправильно считает intNumberOfPages, нужно заменить на что-то более правильное
    intNumberOfPages := WordApp.ActiveDocument.BuiltInDocumentProperties[wdPropertyPages].Value;
    For intPage:= 1 to intNumberOfPages do
    If intPage = intNumberOfPages then
      WordApp.Selection.EndKey(wdStory)
    else
    begin
      WordApp.Selection.GoTo(wdGoToPage, 2);
      WordApp.Selection.MoveLeft(Unit:=wdCharacter, Count:=1);
      WordApp.Selection.HomeKey(wdStory, wdExtend);
      WordApp.Selection.Copy();
//создаем новый документ и вставляем в него скопрированный текст постранично
      WordAppDest:= CreateOleObject('Word.Application');
      WordAppDest.Visible := True;
      WordAppDest.Documents.Add;
      WordAppDest.Selection.Paste();
      WordAppDest.ActiveDocument.SaveAs('c:\NewFile'+IntToStr(intPage)+'.doc');
      WordAppDest.Quit(SaveChanges, EmptyParam, EmptyParam);
      WordApp.Selection.GoTo(wdGoToPage, 2);
      WordApp.Selection.HomeKey(wdStory, wdExtend);
      WordApp.Selection.Delete();
//      ShowMessage('Go on?');
    end;
  finally
//тут не знаю как сделать чтобы закрывался без сохранения и без запроса
    SaveChanges := false;//wdSaveChanges;
    WordApp.Quit({SaveChanges}EmptyParam, EmptyParam, EmptyParam);
  end;
end;
 
end.

Позже допилю.. Сейчас не обрабатывается последняя страница. Нужно убрать запрос сохранения (сохранять не надо). Вставил sleep после открытия исходного файла, иначе неверное значение кол-ва страниц, может только у меня.. Что бы страницы не мелькали можно установить WordAppDest.Visible и WordApp.Visible в False и прикрутить счетчик или прогрессбар какой-нибудь..

@Mawrat · 14.10.2009, 12:06

Спасибо, Conn! - Очень полезный пост!
Немного добавлю. В коде можно отказаться от Selection - перейти к Range, тогда можно сделать работу независимой от того видимо ли окно Word и является ли обрабатываемый документ в данный момент активным. И запуск второго экземпляра Word тогда тоже не потребуется - достаточно создавать/сохранять/закрывать новый документ в том-же экземпляре, где открыт исходный документ (это особенно полезно, когда в документе много листов - может, например, несколько сотен).

@conn · 14.10.2009, 14:49

исправил, последнюю страницу теперь обрабатывает и закрывает без запроса..
Mawrat, действительно, с Range должно быть быстрее, попробую

Delphi
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
unit Word_open;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj, ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  wdPropertyPages = $0000000E;
const
  AWordDoc = 'C:\Test.doc';
  wdSaveChanges = $FFFFFFFF;
  wdGoToPage = 1;
  wdStory = 6;
  wdExtend = 1;
  wdCharacter = 1;
var
  WordApp, WordAppDest: OLEVariant;
  SaveChanges: OleVariant;
  intPage, intNumberOfPages: integer;
 
begin
  try
    WordApp := CreateOleObject('Word.Application');
  except
    // Error....
    ShowMessage('Error!');
    Exit;
  end;
  try
    WordApp.Visible := False;
    WordApp.Documents.Open(AWordDoc);
    sleep(1000);//
    intNumberOfPages := WordApp.ActiveDocument.BuiltInDocumentProperties[wdPropertyPages].Value;
    Form1.ProgressBar1.Max:=intNumberOfPages*10;
    For intPage:= 1 to intNumberOfPages do
    begin
      Form1.ProgressBar1.Position:=intPage*10;
      If intPage = intNumberOfPages then
        begin
          WordApp.Selection.EndKey(wdStory, wdExtend);
          WordApp.Selection.Copy();
        end
      else
        begin
          WordApp.Selection.GoTo(wdGoToPage, 2);
          WordApp.Selection.MoveLeft(Unit:=wdCharacter, Count:=1);
          WordApp.Selection.HomeKey(wdStory, wdExtend);
          WordApp.Selection.Copy();
        end;
//создаем новый док-нт и вставляем в него clipboard
      WordAppDest:= CreateOleObject('Word.Application');
      WordAppDest.Visible := False;
      WordAppDest.Documents.Add;
      WordAppDest.Selection.Paste();
      WordAppDest.ActiveDocument.SaveAs('c:\NewFile'+IntToStr(intPage)+'.doc');
      WordAppDest.Quit(SaveChanges, EmptyParam, EmptyParam);
      WordApp.Selection.GoTo(wdGoToPage, 2);
      WordApp.Selection.HomeKey(wdStory, wdExtend);
      WordApp.Selection.Delete();
//      ShowMessage('Go on?');
    end;
 
  finally
    SaveChanges := false;
    WordApp.Quit(SaveChanges, EmptyParam, EmptyParam);
    ShowMessage('Complete!');
  end;
end;
 
end.

@Al_Sha · 15.10.2009, 07:31 **[ТС]**

СПАСИБО ВСЕМ!!!!!
Если будут еще идеи отпишитесь...

С уважением
Al_Sha

08.08.2011, 16:31

Мужики, а где задать кол-во страниц, а то нужно делить документы по 3 странички?

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@Al_Sha 1 / 1 / 0 Регистрация: 03.04.2009 Сообщений: 38

	Как разбить документ Word на несколько файлов 13.10.2009, 21:00. Показов 34336. Ответов 5 Метки нет (Все метки) Здравствуйте Уважаемые! Подскажите. Имеется документ Word, состоящий из "n" страниц. Как разбить его на "n" файлов, в каждом из которых соответствующая страница? Заранее благодарен Al_Sha 0

@Mawrat 13113 / 5894 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	14.10.2009, 12:06
	Спасибо, Conn! - Очень полезный пост! Немного добавлю. В коде можно отказаться от Selection - перейти к Range, тогда можно сделать работу независимой от того видимо ли окно Word и является ли обрабатываемый документ в данный момент активным. И запуск второго экземпляра Word тогда тоже не потребуется - достаточно создавать/сохранять/закрывать новый документ в том-же экземпляре, где открыт исходный документ (это особенно полезно, когда в документе много листов - может, например, несколько сотен). 2

@Al_Sha 1 / 1 / 0 Регистрация: 03.04.2009 Сообщений: 38
	15.10.2009, 07:31 [ТС]
	СПАСИБО ВСЕМ!!!!! Если будут еще идеи отпишитесь... С уважением Al_Sha 0

Kitovsky
	08.08.2011, 16:31
	Мужики, а где задать кол-во страниц, а то нужно делить документы по 3 странички?

Как разбить документ Word на несколько файлов

Решение