Имя: Пароль:
1C
 
Шабнов в 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) Спасибо!
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс