|
1с перенос в колонтитулы шаблона word |
☑ |
0
sv201
03.07.13
✎
19:25
|
Добрый день
наткнулся на проблему при переносе данных из 1С в word почему то не заменяет значение в колонтитулах шаблона документа ворда
синтаксис
word = Новый COMОбъект("Word.Application");
word.Visible = Истина;
ШаблонОтчета = АттЦентр.ШаблонИтоговыйПротоколЭкзаменов.Хранилище.Получить();
МестоХраненияШаблона = ФайловыеФункцииКлиентСервер.ПроинициализироватьПутьКРабочемуКаталогу(Кандидат);
путьКфайлуШаблона = МестоХраненияШаблона+"Итоговый протокол экзаменов "+Строка(выборка.ПрефиксМК)+".docx";
ШаблонОтчета.Записать(путьКфайлуШаблона);
word.Documents.Open(путьКфайлуШаблона);
word.visible=истина;
word.Activate();
Документ=word.Application.Documents(1);
Документ.Activate();
Замена=Документ.Content.Find;
Замена.Execute("{№ЭЦ}",Ложь,Истина,Ложь,,,Истина,,Ложь, НомерАктЭЦ);
|
|
1
Мимохожий Однако
03.07.13
✎
19:40
|
В какой строке кода ты обращаешься к колонтитулам?
|
|
2
sv201
03.07.13
✎
19:42
|
Замена=Документ.Content.Find;
Замена.Execute("{№ЭЦ}",Ложь,Истина,Ложь,,,Истина,,Ложь, НомерАктЭЦ);
|
|
3
Мимохожий Однако
03.07.13
✎
19:45
|
Я бы включал запись макроса и изменил бы что-нибудь в колонтитуле, а потом этот код перенёс в 1С. Мне кажется эта строка не для колонтитула.
|
|
4
sv201
03.07.13
✎
19:48
|
так и есть это замена обычного текста в шаблоне worda
|
|
5
sv201
03.07.13
✎
19:49
|
я вот нашел на сайте
строку для замены текста в нижнем колонтитуле,
Документ.Sections(1).Footers(1).Range.Find.Execute("[НашаОрганизация]", Ложь, Истина, Ложь, , , Истина, , Ложь, Заказчик, 2);
|
|
6
sv201
03.07.13
✎
19:50
|
непонятно что за параметр в этой строке отвечает за нижний или верхний колонтитул
|
|
7
Мимохожий Однако
03.07.13
✎
19:52
|
(5)По ссылке я не увидел речь о колонтитулах.
|
|
8
sv201
03.07.13
✎
19:54
|
все нашел задача решается с помощью следующей строки:
документ.Sections(1).Headers(1).Range.Find.Execute("{номерЭц}", Ложь, Истина, Ложь, , , Истина, , Ложь, НомерАктЭЦ, 2);
|
|
9
sv201
03.07.13
✎
19:55
|
Footers вставляет в нижний колонтитул
Headers вставляет в верхний колонтитул
|
|
10
Мимохожий Однако
03.07.13
✎
19:57
|
Приятно, когда получается ))
|
|
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан