1

Тема: Выбор рисунков из файлов Word

Уважаемые эксперты и любители! Есть главный документ, в который необходимо вставлять рисунки из ячеек таблиц других документов, которых может быть довольно много. У меня нет четкого представления, как это лучше сделать. Подскажите. Файлы прикладываю.

Post's attachments

Главный.docx 49.17 Кб, 4 скачиваний с 2015-07-03 

You don't have the permssions to download the attachments of this post.

2

Re: Выбор рисунков из файлов Word

Есть главный документ, в который необходимо вставлять рисунки из ячеек таблиц других документов, которых может быть довольно много.

Пока Вы приложили только главный документ. Приложите, пожалуйста, еще пример документа с рисунками.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

Re: Выбор рисунков из файлов Word

Файлы, из которых надо брать рисунки.

4

Re: Выбор рисунков из файлов Word

Примеры файлов.

Post's attachments

153009.docx 319.91 Кб, 6 скачиваний с 2015-07-03 

You don't have the permssions to download the attachments of this post.

5

Re: Выбор рисунков из файлов Word

Еще один файл.

Post's attachments

153999.docx 436.79 Кб, 3 скачиваний с 2015-07-03 

You don't have the permssions to download the attachments of this post.

6

Re: Выбор рисунков из файлов Word

Правильно ли я понимаю, что в каждом файле по 6 таких рисунков-штрихкодов?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

7

Re: Выбор рисунков из файлов Word

По крайней мере, девять. Пришлось удалить, чтобы загрузка выполнилась.

8

Re: Выбор рисунков из файлов Word

Есть ли какой-нибудь порядок загрузки картинок?
По какому принципу выбирается картинка для копирования?

Хочу Вам сказать, что, в принципе, в Ворде подобный механизм автоматической загрузки картинок из другого файла не предусмотрен.
Однако, можно предложить следующее:
1) Устанавливаем курсор в место размещения картинки в главном файле.
2) Запускаем макрос.
3) Выбираем файл, из которого копируется картинка.
4) Указываем порядковый номер картинки в этом файле.
После чего картинка копируется в главный файл.
Но это еще нужно реализовать.

Вариант 2:
1) Устанавливаем курсор в место размещения картинки в главном файле.
2) Запускаем макрос 1.
3) Выбираем файл, из которого копируется картинка.
4) Выделяем в этом файле картинку, которую нужно скопировать.
5) Запускаем макрос 2.
После чего картинка копируется в главный файл.

Вас такое решение устроит?
Если да, то какой из вариантов предпочтительнее?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

9

Re: Выбор рисунков из файлов Word

Есть еще вариант, при котором в главный файл можно скопировать все рисунки из файла с картинками.
(Это в том случае, если в главном файле находится много таблиц, а не одна).

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

10

Re: Выбор рисунков из файлов Word

Первый вариант меня больше устраивает.

11

Re: Выбор рисунков из файлов Word

Понял. Я подумаю.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

12

Re: Выбор рисунков из файлов Word

У меня получилось примерно так:

Sub PasteImage1()
    Dim fd As FileDialog
    Dim SourcePath As String
    Const CANCEL_BUTTON As Long = 0
    Dim intI As Integer
    
    'Открытие файла с картинками
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd
        If .Show <> CANCEL_BUTTON Then
            SourcePath = .SelectedItems(1)
        End If
    End With
    
    Documents.Open (SourcePath)
    Set fd = Nothing
    
    'Копирование картинки по порядковому номеру
    intI = InputBox("Введите номер картинки:", "Поиск")
    Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToFirst, Count:=intI, Name:=""
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    
    'Закрытие файла с картинками
    ActiveDocument.Close wdDoNotSaveChange
    'Вставка картинки в главный файл
    Selection.Paste
    'Закрытие и сохранение главного файла
    ActiveDocument.Close
End Sub

1) Устанавливаем курсор в место размещения картинки в главном файле.
2) Запускаем макрос.
3) Выбираем файл, из которого копируется картинка.
4) Указываем порядковый номер картинки в этом файле (например, 5).
После чего картинка копируется в главный файл.
Главный файл закрывается, и его можно сохранить.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

13

Re: Выбор рисунков из файлов Word

Спасибо! Буду пробовать!

14

Re: Выбор рисунков из файлов Word

Alex_Gur! Очень признательна за помощь! Отличный макрос, он очень поможет мне в работе. smile