Добавить в корзинуПозвонить
Найти в Дзене
Технический писатель

Работа с макросами: макрос для выгрузки всех вложений из документа ворд

2
1 мин
Бывает что документ содержит вложенные файлы которые вам необходимо сохранить. Если этих файлов в документе много их можно сохранить все разом с помощью макроса указанного ниже. Алгоритм настройки и выполнения макроса Его необходимо скопировать и вставить как есть, кроме пути сохранения файлов. Вместо "С:\Рабочая папка\НАЗВАНИЕ ПАПКИ" необходимо указать путь куда вы хотите сохранить файлы из документа. Sub ExtractAndSaveEmbeddedFiles() Dim objEmbeddedShape As InlineShape Dim strShapeType As String, strEmbeddedDocName As String Dim objEmbeddedDoc As Object With ActiveDocument For Each objEmbeddedShape In .InlineShapes ' Find and open the embedded doc. strShapeType = objEmbeddedShape.OLEFormat.ClassType objEmbeddedShape.OLEFormat.Open ' Initialization Set objEmbeddedDoc = objEmbeddedShape.OLEFormat.Object ' Save embedded files with names as same as those of icon label. strEmbeddedDocName = objEmbeddedShape.OLEFormat.IconLabel objEmbeddedDoc.SaveAs "С:\Рабочая папка\НАЗВАНИЕ ПАПКИ" & str

Бывает что документ содержит вложенные файлы которые вам необходимо сохранить. Если этих файлов в документе много их можно сохранить все разом с помощью макроса указанного ниже.

Алгоритм настройки и выполнения макроса

  1. Откройте документ Microsoft Word.
  2. Нажмите сочетание клавиш Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений (VBA).
  3. В меню выберите «Вставка» → «Модуль» — это создаст новый модуль.
  4. Скопируйте код VBA из исходного документа Word и вставьте его в окно созданного модуля.
  5. Перед запуском макроса необходимо подключить библиотеку объектов Excel. Для этого в редакторе VBA откройте меню «Инструменты» → «Ссылки».
  6. В открывшемся диалоговом окне «Ссылки» найдите в списке «Библиотека объектов Microsoft Excel» (версия может отличаться). Установите флажок рядом с этой библиотекой и нажмите OK.
  7. Запустите макрос одним из способов:
    нажмите клавишу     F5;
    либо выберите в меню     Run → Run Sub/UserForm.
  8. После выполнения макроса Microsoft Excel автоматически откроет новую книгу. В ней все комментарии из документа Word будут организованы в виде таблицы.

Макрос

Его необходимо скопировать и вставить как есть, кроме пути сохранения файлов. Вместо "С:\Рабочая папка\НАЗВАНИЕ ПАПКИ" необходимо указать путь куда вы хотите сохранить файлы из документа.

Sub ExtractAndSaveEmbeddedFiles()

Dim objEmbeddedShape As InlineShape

Dim strShapeType As String, strEmbeddedDocName As String

Dim objEmbeddedDoc As Object

With ActiveDocument

For Each objEmbeddedShape In .InlineShapes

' Find and open the embedded doc.

strShapeType = objEmbeddedShape.OLEFormat.ClassType

objEmbeddedShape.OLEFormat.Open

' Initialization

Set objEmbeddedDoc = objEmbeddedShape.OLEFormat.Object

' Save embedded files with names as same as those of icon label.

strEmbeddedDocName = objEmbeddedShape.OLEFormat.IconLabel

objEmbeddedDoc.SaveAs "С:\Рабочая папка\НАЗВАНИЕ ПАПКИ" & strEmbeddedDocName

objEmbeddedDoc.Close

Set objEmbeddedDoc = Nothing

Next objEmbeddedShape

End With

End Sub