|
Шабнов в MS Word. Замена картинки на свою | ☑ | ||
---|---|---|---|---|
0
Fuas4
15.07.15
✎
10:27
|
Господа. не могу сделать сабж, поисковик ничего по моему вопросу не показывает.
Суть: есть шаблон в Ворд, который я заполняю. У него есть 2 рисунка. Один я хочу менять на печать, а другой на подпись. Добавил 2 картинки в макет. Теперь вопросы: 1. как мне из 1с понять. какая из моих картинок должна быть подписью, а какая печатью? Добавлять закладки и присваивать им соответствующее имя? 2. Как программно заменить картинку в шаблоне на свою? Пытался записать макрос и посмотреть в нем, но не дает макрос выделять картинки в документе. Если кто кинет в меня примером кода, буду очень признателен |
|||
1
sash-ml
15.07.15
✎
11:05
|
Замени картинки в ворде на та текст уникальный
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "ЭТУ_ПОДПИСЬ_ПОМЕНЯЮ_НА_КАРТИНКУ_С_ПОДПИСЬЮ" .Replacement.Text = "--" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute With Selection If .Find.Forward = True Then .InlineShapes.AddPicture FileName:= _ "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg", LinkToFile _ :=False, SaveWithDocument:=True Else .Collapse Direction:=wdCollapseEnd End If End With |
|||
2
Fuas4
15.07.15
✎
11:27
|
(1) да, я думал об этом, но я хочу чтобы пользователь в шаблоне сам размер картинки определял. А тут, получается, размер всегда один будет. Не очень гибко
|
|||
3
Timon1405
15.07.15
✎
11:30
|
(0) в УНФ последней версии есть штатная вставка факсимиле
|
|||
4
ЧеловекДуши
15.07.15
✎
11:31
|
(2) Шаблон и Гибкость, как то не совместимо :)
|
|||
5
ЧеловекДуши
15.07.15
✎
11:32
|
Вики сулит о том, что как ни крути, но Шаблон не дает Гибкость, попросту загоняет в рамки заполнения :)
https://ru.wikipedia.org/wiki/Шаблон |
|||
6
Fuas4
15.07.15
✎
11:33
|
(4) совместимо. Если не лениться) Вдруг подпись указанной мной в коде ширины будет плохо смотреться? А так, заменив только содержимое картинки я бы переложил ответственность за это на пользователя, который себе шаблон создал
|
|||
7
Fuas4
15.07.15
✎
11:34
|
(3) к сожалению, у меня нет доступа к УНФ
|
|||
8
sash-ml
15.07.15
✎
12:19
|
Картинке необходимо указать заголовок замещающего текста.
Обтекание картинки должно быть "В Тексте" Получаешь картинку из коллекции активных картинок, проверяешь по и делаешь ей селект ActiveDocument.InlineShapes.Item(1).Select Получаешь размер. После чего вставляешь картинку в селекшн Selection.InlineShapes.AddPicture заголовок картинки слетает находиш в ActiveDocument.InlineShapes катринку без заголовка и меняешь размер на нужный |
|||
9
Fuas4
15.07.15
✎
12:22
|
(8) Спасибо!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |