Создание скрина документа Word

@iproger · Регистрация: 09.06.2013

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

Нужно сделать скрин, к примеру, первой страницы файла .docx.
Программе желательно бы быть в фоне и делать там все свои дела, но это не самое главное.

Есть идея в использовании com/ole (точно не помню различий, но вроде com отображается на форме, а ole - нет).

Для ole нашел код открытия документа:

Delphi
1
2
3
Word := CreateOleObject('Word.Application');
Word.Documents.Open('C:\test.docx');
Word.Application.Quit;

Подскажите, пожалуйста, что использовать, com или ole, и какой метод служит для создания скрина?

Спасибо.

@alexan0308 · 04.07.2013, 23:08

Сообщение от iproger

Подскажите, пожалуйста, что использовать, com или ole, и какой метод служит для создания скрина?

Это по моему одно и тоже. просто есть еще VB объект.
По-моему, нет такого метода у Word... Придется делать обычный скриншот. О фоновой работе не может быть и речи...

@iproger · 05.07.2013, 00:00 **[ТС]**

Понял.

В семерке есть просмотр окна (если навести на него в панели задач), может как-то можно воспользоваться этим, или это "недокументированное api"?

@alexan0308 · 24.07.2013, 14:00

Сообщение от alexan0308

По-моему, нет такого метода у Word... Придется делать обычный скриншот. О фоновой работе не может быть и речи...

По ходу, я был неправ! Вот, случайно наткнулся на макрос

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub SaveToBMP()
  Dim ADODB As Object
  Set ADODB = CreateObject("ADODB.Stream")
  With ADODB
    .Type = 1 ' adTypeBinary
    .Open
    .Write (ActiveWindow.Panes(1).Pages(1).EnhMetaFileBits)
    .SaveToFile ("Страница " & Selection.Information(wdActiveEndPageNumber) & ".bmp")
    .Close
  End With
  Set ADODB = Nothing
End Sub

Хочу переделать под Delphi, но увы не получается

Добавлено через 55 минут

Сообщение от alexan0308

Хочу переделать под Delphi, но увы не получается

Получилось!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
 
straniza : integer; // номер страницы
  fname: string;   Word : Variant;
  bytes:Tbytes;    Mstream: TMemorystream;
 
begin
 
Word := CreateOleObject('Word.Application'); Word.visible:=true;
Word.Documents.Open('E:\test.doc');
straniza:= 12;
  bytes:= Word.ActiveWindow.Panes.Item(1).Pages.Item(straniza).EnhMetaFileBits;
  Mstream:= TMemorystream.Create;
  Mstream.Write(bytes, length(bytes));
  Fname := 'E:\' + inttostr(straniza) + '.bmp';
  MStream.SaveToFile(Fname); MStream.Free;
Word.ActiveDocument.Close;
Word.Application.Quit;
 
end;

Добавлено через 7 минут
PS: в Delphi 7 типа Tbytes нету, там как-то по другому нужно.

@iproger · 25.07.2013, 11:22 **[ТС]**

Понял, спасибо!

@alexan0308 · 25.07.2013, 11:28

Фоновой работы правда все равно не будет. При

Delphi
1
Word.visible:=false;

код вызывает ошибку...

@iproger · 25.07.2013, 11:29 **[ТС]**

Ну, это не страшно)

@NotBeginner · 25.07.2013, 15:13

Сообщение от alexan0308

Tbytes нету,

а что вам мешает обьявить его??
Tbytes : array of byte

@alexan0308 · 25.07.2013, 15:21

Сообщение от NotBeginner

а что вам мешает обьявить его??
Tbytes : array of byte

Можно, но картинки не будет. Что то еще может тогда нужно поменять

@syava · 29.03.2016, 17:51

А у меня всё равно ошибку выдает. Сделал 1 в 1 как в примере (естественно фаил test.doc положил в корень Е)

Delphi
1
First chance exception at $759B5B68. Exception class EAccessViolation with message 'Access violation at address 00404430 in module 'Project5.exe'. Read of address 00194000'. Process Project5.exe (5348)

Добавлено через 54 минуты
Ошибка при выполнении Mstream.Write(bytes,length(bytes)); Подскажите пожалуйста что не так ?

@alexan0308 · 29.03.2016, 18:07

>PS: в Delphi 7 типа Tbytes нету, там как-то по другому нужно.
Какое дельфи у вас? ) я в хе 3 делал, в семерке не смог )

@syava · 29.03.2016, 18:28

У меня стоит Delphi 2010, я пробовал на 7 обявлял переменную вместо типа Tbytes ставил array of byte та же фигня

@alexan0308 · 29.03.2016, 18:29

Ставь XE )

@syava · 29.03.2016, 18:53

Тоже самое

@alexan0308 · 29.03.2016, 18:59

Тогда не знаю

@syava · 30.03.2016, 10:37

А у тебя какой офис стоял ?

Добавлено через 15 часов 37 минут
Разобрался. )) переменные объявил глобальными ошибка пропала, фаил создается bmp но открываться не хочет пишет что фаил поврежден (

@alexan0308 · 30.03.2016, 11:12

Эх =)

@syava · 30.03.2016, 11:37

Не знаешь чем беда ? Можешь свои исходники скинуть ?

@alexan0308 · 30.03.2016, 12:02

Поищу вечером )

@syava · 31.03.2016, 21:16

Извинюсь ха настойчивость. Нет мыслей как помочь ? Или в какую сторону смотреть

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@iproger 32 / 1 / 1 Регистрация: 09.06.2013 Сообщений: 75 Записей в блоге: 1
	05.07.2013, 00:00 [ТС]
	Понял. В семерке есть просмотр окна (если навести на него в панели задач), может как-то можно воспользоваться этим, или это "недокументированное api"? 0

@iproger 32 / 1 / 1 Регистрация: 09.06.2013 Сообщений: 75 Записей в блоге: 1
	25.07.2013, 11:22 [ТС]
	Понял, спасибо! 0

@iproger 32 / 1 / 1 Регистрация: 09.06.2013 Сообщений: 75 Записей в блоге: 1
	25.07.2013, 11:29 [ТС]
	Ну, это не страшно) 0

@alexan0308 106 / 82 / 15 Регистрация: 07.06.2011 Сообщений: 588 Записей в блоге: 2
	29.03.2016, 18:07
	>PS: в Delphi 7 типа Tbytes нету, там как-то по другому нужно. Какое дельфи у вас? ) я в хе 3 делал, в семерке не смог ) 0

@syava 0 / 0 / 0 Регистрация: 02.01.2015 Сообщений: 41
	29.03.2016, 18:28
	У меня стоит Delphi 2010, я пробовал на 7 обявлял переменную вместо типа Tbytes ставил array of byte та же фигня 0

@alexan0308 106 / 82 / 15 Регистрация: 07.06.2011 Сообщений: 588 Записей в блоге: 2
	29.03.2016, 18:29
	Ставь XE ) 0

@syava 0 / 0 / 0 Регистрация: 02.01.2015 Сообщений: 41
	29.03.2016, 18:53
	Тоже самое Миниатюры 0

@alexan0308 106 / 82 / 15 Регистрация: 07.06.2011 Сообщений: 588 Записей в блоге: 2
	29.03.2016, 18:59
	Тогда не знаю 0

@syava 0 / 0 / 0 Регистрация: 02.01.2015 Сообщений: 41
	30.03.2016, 10:37
	А у тебя какой офис стоял ? Добавлено через 15 часов 37 минут Разобрался. )) переменные объявил глобальными ошибка пропала, фаил создается bmp но открываться не хочет пишет что фаил поврежден ( 0

@alexan0308 106 / 82 / 15 Регистрация: 07.06.2011 Сообщений: 588 Записей в блоге: 2
	30.03.2016, 11:12
	Эх =) 0

@syava 0 / 0 / 0 Регистрация: 02.01.2015 Сообщений: 41
	30.03.2016, 11:37
	Не знаешь чем беда ? Можешь свои исходники скинуть ? 0

@alexan0308 106 / 82 / 15 Регистрация: 07.06.2011 Сообщений: 588 Записей в блоге: 2
	30.03.2016, 12:02
	Поищу вечером ) 0

@syava 0 / 0 / 0 Регистрация: 02.01.2015 Сообщений: 41
	31.03.2016, 21:16
	Извинюсь ха настойчивость. Нет мыслей как помочь ? Или в какую сторону смотреть 0