|
Active document Word | ☑ | ||
---|---|---|---|---|
0
dron9205
23.11.12
✎
17:14
|
Есть макет Active document. Печать договоров. Необходимые параметры заменяются в обработке печати, подставляет номер, дата и т.п., а вот в подвале, где указываются реквизиты организаций, не могу достучаться до реквизитов, т.к. они в шаблоне(макете) находятся рамке.
Подскажи как мне получить поля в рамке?? Прин рамки, про которую я говорю http://s017.radikal.ru/i403/1211/c0/65c32bd5f5fd.png |
|||
1
dron9205
23.11.12
✎
17:17
|
Пробывал через "Вставка - Поле - Автоматизация - DocVariable" параметр не видит..
Через |
|||
2
dron9205
23.11.12
✎
17:17
|
*через
Заменить.Execute("НЕПОНЯТНЫЙПОДВЛ", Ложь, Истина, Ложь, , , Истина, , Ложь, "выпвпа + ыловарылоав" + Символы.ПС + "ывлоаыолвап"); Тоже не понимает |
|||
3
AversDik2
23.11.12
✎
17:24
|
(0) Замени рамку на таблицу
|
|||
4
dron9205
23.11.12
✎
17:30
|
а потом как достучаться до таблицы этой через
КомОбъект.Tables.#что дальше писать# ??? |
|||
5
AversDik2
23.11.12
✎
17:32
|
(4) там будет работать
Заменить.Execute("НЕПОНЯТНЫЙПОДВЛ", Ложь, Истина, Ложь, , , Истина, , Ложь, "выпвпа + ыловарылоав" + Символы.ПС + "ывлоаыолвап"); |
|||
6
dron9205
23.11.12
✎
17:34
|
Точно. Все спасибо большое!
|
|||
7
Масянька
23.11.12
✎
17:34
|
(0) Я правильно понимаю, что это надпись?
|
|||
8
dron9205
23.11.12
✎
17:43
|
Да, это была надпись... Есть варианты с надпиьсю??
|
|||
9
Масянька
23.11.12
✎
17:45
|
Код для 7.7:
// подставляем значения в реквизиты покупателя: надпись, признак замены [] // надпись - РАГРУППИРОВАН СчетчикЦикла = 0; КолВоНадписей = мДок.Shapes.Count; Для СчетчикЦикла = 1 По КолВоНадписей Цикл мНашли = мДок.Shapes.Item(СчетчикЦикла).Select(); Если Число(мДок.Application.Selection.ShapeRange.Type) = 17 Тогда мДок.Application.Selection.Range.Find.Execute("[ПечПокупательРеквизиты]",0,0,,,,,,,СокрЛП(мПокупатель),2); мДок.Application.Selection.Range.Find.Execute("[ПечЮрАдресПокупателя]",0,0,,,,,,,СокрЛП(мЮрАдресПокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечПочтАдресПокупателя]",0,0,,,,,,,СокрЛП(мПочтПокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечТелефонПокупателя]",0,0,,,,,,,СокрЛП(мТелефонПокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечИННПокупателя]",0,0,,,,,,,СокрЛП(мИННПокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечКПППокупателя]",0,0,,,,,,,СокрЛП(мКПППокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечРСПокупателя]",0,0,,,,,,,СокрЛП(мРСчетПокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечБанкПокупателя]",0,0,,,,,,,СокрЛП(мБанкПокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечКСПокупателя]",0,0,,,,,,,СокрЛП(мКСчетПокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечБИКБанкаПокупателя]",0,0,,,,,,,СокрЛП(мБИКПокупателя),2); мДок.Application.Selection.Range.Find.Execute("[ПечПокупательПодпись]",0,0,,,,,,,СокрЛП(ПодписьОтветственногоЛица),2); КонецЕсли; КонецЦикла; |
|||
10
dron9205
23.11.12
✎
17:46
|
Ок, попробую возможно будет удобнее
|
|||
11
Масянька
23.11.12
✎
17:47
|
+(9) У меня в надписи вставлены линии - должны быть РАЗГРУППИРОВАНЫ. Линии - съезжают вниз, поправляют руками. А если ГРУППИРОВАТЬ, то не срабатывает.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |