Как можно получить максимум информации о вордовском файле

@Zefir · Регистрация: 09.06.2009

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

Подскажите пожалуйста, как можно получить максимум информации о вордовском файле используя asp ну и все что может пригодится, а то я честно говоря не знаю с чего начать. Спасибо

@Zefir · 09.06.2009, 13:04 **[ТС]**

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

@bazile · 09.06.2009, 14:34

Сначала имеет смысл попробовать сделать эту задачу написав макрос для Word. Предварительно надо изучить справку по VBA для Word чтобы узнать какие объекты и какая информация доступна о документе.
Потом перенести это в ASP труда не составит. Т.е. создаешь объект Word.Application, загружаешь нужный doc файл и далее код из макроса.

@Zefir · 09.06.2009, 16:20 **[ТС]**

Попробую, надо тогда в vba разобраться. Спасибо

@Zefir · 14.06.2009, 15:14 **[ТС]**

Вроде разобрался как это делать в VBA, не пойму как это теперь вставить в ASP, может проще было бы через какуюто компоненту или еще чтото (если знаете линки, киньте пожалуйста)

@bazile · 15.06.2009, 13:56

Code
1
2
3
4
5
6
7
8
Dim oWordApp
Set oWordApp = Server.CreateObject('Word.Application')
oWordApp.Documents.Open('file.doc')
' код получения информации о документе
.....
' -------------------------
oWordApp.Quit
Set oWordApp = Nothing

@bazile · 15.06.2009, 14:01

Если документ открывается только для получения метаинформации, то можно открывать его только на чтение. Возможно, Word меньше ресурсов будет потреблять ну и дополнительная мера защиты от самого себя.

@Zefir · 16.06.2009, 12:08 **[ТС]**

Вот что выдает:

Тип ошибки:
Microsoft Word (0x800A175D)
Не удается открыть банк макросов.
/word/word.asp, line 10

Dim objWord
Set objWord = Server.CreateObject('Word.Application')

objWord.visible=True
'this is to open an existing file

objWord.Documents.Open 'c: est.doc' (10)

Все что идет через .Documents. выдает ошибку эту. Это может зависеть от версии ворда ? Он у меня XP.

@bazile · 16.06.2009, 13:08

Покопался в инете и нашел статью на сайте Microsoft где для чтению свойств документов Office предлагают использовать специальную DLLку
http://support.microsoft.com/default.aspx?scid=KB;en-us;224351

В своем примере выше я допустил пару ошибок, кстати говоря. Исправляюсь:

Code
1
2
3
4
5
6
7
8
Dim oWord
Set oWord = CreateObject('Word.Application')
' Нет смысла показывать окно Word'a на сервере
oWord.Application.Visible = False
' Открыть файл только на чтение
oWord.Documents.Open('file.doc', False, True)
oWord.Application.Quit
Set oWord = Nothing

@Zefir · 16.06.2009, 13:50 **[ТС]**

Microsoft Word (0x800A175D)
Не удается открыть банк макросов.
/word/new.asp, line 7

<%
Dim oWord
Set oWord = CreateObject('Word.Application')
' Нет смысла показывать окно Word'a на сервере
oWord.Application.Visible = False
' Открыть файл только на чтение
oWord.Documents.Open 'C: est.doc', False, True (7)
oWord.Application.Quit
Set oWord = Nothing
%>

после open () не надо
Спасибо за ссылку, щас посмотрю

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Zefir 0 / 0 / 0 Регистрация: 09.06.2009 Сообщений: 6

	Как можно получить максимум информации о вордовском файле 09.06.2009, 12:15. Показов 1748. Ответов 9 Метки нет (Все метки) Подскажите пожалуйста, как можно получить максимум информации о вордовском файле используя asp ну и все что может пригодится, а то я честно говоря не знаю с чего начать. Спасибо 0

@Zefir 0 / 0 / 0 Регистрация: 09.06.2009 Сообщений: 6
	09.06.2009, 13:04 [ТС]
	Хочу уточнить что подразумевается под максимумом информации - это размер файла его название , автор, когда создан, сколько символов в нем, есть ли рисунки и т.д., все что возожно. 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	09.06.2009, 14:34
	Сначала имеет смысл попробовать сделать эту задачу написав макрос для Word. Предварительно надо изучить справку по VBA для Word чтобы узнать какие объекты и какая информация доступна о документе. Потом перенести это в ASP труда не составит. Т.е. создаешь объект Word.Application, загружаешь нужный doc файл и далее код из макроса. 0

@Zefir 0 / 0 / 0 Регистрация: 09.06.2009 Сообщений: 6
	09.06.2009, 16:20 [ТС]
	Попробую, надо тогда в vba разобраться. Спасибо 0

@Zefir 0 / 0 / 0 Регистрация: 09.06.2009 Сообщений: 6
	14.06.2009, 15:14 [ТС]
	Вроде разобрался как это делать в VBA, не пойму как это теперь вставить в ASP, может проще было бы через какуюто компоненту или еще чтото (если знаете линки, киньте пожалуйста) 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	15.06.2009, 14:01
	Если документ открывается только для получения метаинформации, то можно открывать его только на чтение. Возможно, Word меньше ресурсов будет потреблять ну и дополнительная мера защиты от самого себя. 0

@Zefir 0 / 0 / 0 Регистрация: 09.06.2009 Сообщений: 6
	16.06.2009, 12:08 [ТС]
	Вот что выдает: Тип ошибки: Microsoft Word (0x800A175D) Не удается открыть банк макросов. /word/word.asp, line 10 Dim objWord Set objWord = Server.CreateObject('Word.Application') objWord.visible=True 'this is to open an existing file objWord.Documents.Open 'c: est.doc' (10) Все что идет через .Documents. выдает ошибку эту. Это может зависеть от версии ворда ? Он у меня XP. 0

@Zefir 0 / 0 / 0 Регистрация: 09.06.2009 Сообщений: 6
	16.06.2009, 13:50 [ТС]
	Microsoft Word (0x800A175D) Не удается открыть банк макросов. /word/new.asp, line 7 <% Dim oWord Set oWord = CreateObject('Word.Application') ' Нет смысла показывать окно Word'a на сервере oWord.Application.Visible = False ' Открыть файл только на чтение oWord.Documents.Open 'C: est.doc', False, True (7) oWord.Application.Quit Set oWord = Nothing %> после open () не надо Спасибо за ссылку, щас посмотрю 0