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

• Пакетное сохранение JPG в Word'е - Stuff 07.12.05 12:25 [2496]
  • Можно, и довольно просто - ;-) 11.12.05 18:20 [3120]
    • Спасибо за идею. Вот что в итоге получилось - Stuff 22.12.05 13:55 [3084]
  • Думаю VBA должно помочь - amirul 07.12.05 13:22 [3134]
    • По-мойму VBA здесь бессилен, или просто я в нем ни... (-)  - Stuff 11.12.05 13:24 [3010]
      • Всё, что можно сделать менюшечками-кнопочками в во... (-)  - HandleX 11.12.05 16:02 [3156]