информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Атака на InternetГде водятся OGRы
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Блокировка российских аккаунтов... 
 Отзыв сертификатов ЦБ РФ, ПСБ,... 
 Памятка мирным людям во время информационной... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / software
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Спасибо за идею. Вот что в итоге получилось 22.12.05 13:55  Число просмотров: 2892
Автор: 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

---
<software> Поиск 






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


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