Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
25.01.2021, 03:13:59

Войти
На форуме добавлена возможность подписки на RSS-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS , расположенную левее наименования раздела.
31 743 Сообщений в 5 102 Тем от 11 624 Пользователей
Последний пользователь: atoboqah
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Word и VBA
| | |-+  Автоматическая загрузка подписанных изображений на листы
Страниц: [1]   Вниз
Печать
Автор Тема: Автоматическая загрузка подписанных изображений на листы  (Прочитано 1463 раз)
0 Пользователей и 1 Гость смотрят эту тему.
agn89
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 7


Просмотр профиля E-mail
« : 01.11.2017, 15:20:27 »

Добрый день! Столкнулся со следующей проблемой.
Необходимо автоматически вставлять изображения из папки в Word с подписью фото снизу. На данном форуме нашел интересный пост который решил мою проблему, однако не могу разобраться с одной мелочью....Надпись под фото "Рисунок 1,2..и.тд. а необходимо фото 1,2...и.т.д. Ниже приведен макрос, который я нашел на форуме. Попытка заменить текст в трочке Selection.InsertCaption Label:="Рисунок", выдает ошибку: 4198. помогите пожалуйста разобраться...

Код: (vb)
Sub Перебор_всех_файлов_в_папке()
    Dim sFolder As String, sFiles As String, li As Long
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & Application.PathSeparator & "*.jpg")
    Do While sFiles <> ""
        li = li + 1
        Selection.InlineShapes.AddPicture FileName:=sFolder & "\" & sFiles, LinkToFile:=False, SaveWithDocument:=True
        Selection.InsertCaption Label:="Рисунок", TitleAutoText:="InsertCaption1", Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
Записан
agn89
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 7


Просмотр профиля E-mail
« Ответ #1 : 01.11.2017, 16:15:01 »

Считаю, что тема закрыта. Разобрался сам. Можно заменить слово рисунок на какое угодно, предварительно зайдя во вкладку ССЫЛКИ-->НАЗВАНИЯ-->Вставить название и создать там новое название, которое нужно получить в итоге Улыбка
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru