|
Шабнов в 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
|
Вики сулит о том, что как ни крути, но Шаблон не дает Гибкость, попросту загоняет в рамки заполнения :)
|
|
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) Спасибо!
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший