информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Все любят медSpanning Tree Protocol: недокументированное применениеПортрет посетителя
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 И ещё раз об интернет-голосовании 
 Типовые уязвимости в драйверах... 
 Logitech готовится закрыть очередную... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / software
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Всё, что можно сделать менюшечками-кнопочками в ворде, автоматизируется через VBA, поскольку Word по сути оболочка, дёргает методы тех же COM-объектов, что доступны и в VBA. 11.12.05 16:02  Число просмотров: 2636
Автор: HandleX <Александр Майборода> Статус: The Elderman
<"чистая" ссылка>
<software>
Пакетное сохранение JPG в Word'е 07.12.05 12:25  
Автор: Stuff <Павел> Статус: Member
<"чистая" ссылка>
Возможно ли чем нибудь пакетно копировать картинки в ворд (причем одно изображение - один doc'овский файл) и уменьшать их там до определенного размера?
Можно, и довольно просто 11.12.05 18:20  
Автор: ;-) Статус: Незарегистрированный пользователь
<"чистая" ссылка>
1) Начни в Word'е запись макроса.
2) Вручную вставь картинку в документ, задай ей размер, сохрани и закрой документ.
3) Останови запись макроса. Word сделает 90% работы - сгенерирует макрос на VBA для тех действий, что ты проделал вручную.
4) Осталось только просмотреть и немного подправить макрос, чтобы обработать им группу картинок - например добавить в него FindFirst/FindNext для *.jpg
Спасибо за идею. Вот что в итоге получилось 22.12.05 13:55  
Автор: Stuff <Павел> Статус: Member
<"чистая" ссылка>
В итоге мне вот такой скрипт подсказали
Option Explicit
'Папка в которой всё это безобразие надо делать:
Private Const TARGET_FOLDER As String = "d:\documents\"
'Маска поиска. Не советую делать .
Private Const SEARCH_CINTERIA As String = "*.jpg"

Sub Jpg2DocAll()
    Dim bstFile As String
    Dim clsDoc As Word.Document
    Dim bstFullName As String
    bstFile = Dir(TARGET_FOLDER & SEARCH_CINTERIA, vbNormal)
    
    
    Do While bstFile <> vbNullString
        bstFullName = TARGET_FOLDER & bstFile
        
        Set clsDoc = Application.Documents.Add
        
        With clsDoc
            .Range.InlineShapes.AddPicture FileName:=bstFullName, _
                                                   LinkToFile:=False, _
                                                   SaveWithDocument:=True
            .SaveAs FileName:=Replace$(bstFullName, ".jpg", ".doc"), _
                    AddToRecentFiles:=False

            .Close True
        End With
                
        Set clsDoc = Nothing
        
        bstFile = Dir()
    Loop
End Sub

---
Думаю VBA должно помочь 07.12.05 13:22  
Автор: amirul <Serge> Статус: The Elderman
<"чистая" ссылка>
> Возможно ли чем нибудь пакетно копировать картинки в ворд
> (причем одно изображение - один doc'овский файл) и
> уменьшать их там до определенного размера?

Только не спрашивай как :-)
Я в VBA не разбираюсь, знаю только что именно для автоматизации рутины (пакетная обработка из этого разряда) он и предназначен
По-мойму VBA здесь бессилен, или просто я в нем ничего не понимаю? 11.12.05 13:24  
Автор: Stuff <Павел> Статус: Member
<"чистая" ссылка>
Всё, что можно сделать менюшечками-кнопочками в ворде, автоматизируется через VBA, поскольку Word по сути оболочка, дёргает методы тех же COM-объектов, что доступны и в VBA. 11.12.05 16:02  
Автор: HandleX <Александр Майборода> Статус: The Elderman
<"чистая" ссылка>
1






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2019 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach