Имя: Пароль:
1C
1С v8
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) У меня в надписи вставлены линии - должны быть РАЗГРУППИРОВАНЫ. Линии - съезжают вниз, поправляют руками. А если ГРУППИРОВАТЬ, то не срабатывает.